Extracting and transposing data by looping

Morning all!

I am having trouble with some coding, and would love some advice and help.

In the worksheet I am attaching, what I am trying to do is extract info from cells A:E and transposing them into columns G:J. For the purpose of what I want it to eventually look like, I basically copied and pasted the info in to cells M:P to illustrate.

This is the code I have come up with so far:

Please Login or Register  to view this content.

It gives me the information I need up to row 101, but I need it loop and gather the rest of the data for me. The biggest problem I am having is with rows 105, 125, 145, 165, etc. The purpose of those rows is to tell me the issueage and duration, that's it. How do I create a continuous working loop to have it look like columns M:P?

TerminalReserveMacro.xlsm

Hi TexasBobcat,

Please don't enter duplicate threads. You will get an inferior answer, and responders will probably get frusrated, confused, and will not answer.

Try the following Macro based on the color codes in your SpreadSheet. All the cells in Columns A thru E that contain data must be of the proper color.

Delete your original Macro. Two macros with the same name will cause problems, and may cause Excel to Freeze. Put this macro in an Ordinary Code module such as Module1.

To add a module in the VBA Editor:
a. 'Left Click' on any cell in the Excel Spreadsheet.
b. ALT-F11 to get to VBA.
c. CTRL-R to get project explorer (if it isn't already showing).
d. 'Right Click' on the Project or on any module in 'Project Explorer'.
e. Insert > Module
f. To rename the Module press 'F4' to access the 'Properties' Window (if the 'Properties' Window is not already visible)
g. To the right of the (Name) Property, type in the New Name. The name MUST be unique and VBA must be DORMANT (i.e. no Macros running).

Please Login or Register  to view this content.

Lewis

How would I make such a code? I am a rookie at this.

To add a module in the VBA Editor:
a. 'Left Click' on any cell in the Excel Spreadsheet.
b. ALT-F11 to get to VBA.
c. CTRL-R to get project explorer (if it isn't already showing).
d. 'Right Click' on the Project or on any module in 'Project Explorer'.
e. Insert > Module
f. To rename the Module press 'F4' to access the 'Properties' Window (if the 'Properties' Window is not already visible)
g. To the right of the (Name) Property, type in the New Name. The name MUST be unique and VBA must be DORMANT (i.e. no Macros running).

Cut and paste the code from above into that module.

The code you gave me only works if the cells are formatted in color, and for that I thank you for taking your time to do that, but I need a code that doesn't take into account color. I need it to work for blank colored cells because not all my worksheets are formatted with color.