VB code to reorganize

[rizmomin]

Hello:

Please refer to attached file.
I have data as shown in column Q thru U.
I need VB code to do following:
Go thru data from Q2 down to last row (In this case Row#94).
Copy Date Column Q data in Column A (Start A1).
Copy Date Column S data in Column A (Start C1).
Copy Date Column T data in Column A (Start E1).
By pass if text "Check X????" is found in Column S.

I have manually done data as shown in column A thru E

Let me know if you have any questions.
Thanks.

R

[Pete_UK]

Hi Riz,

You can do this with a couple of formulae, if you are interested. Put this in P2:

=IF(OR(Q2="",LEFT(S2,7)="Check X",T2=""),"",MAX(P$1:P1)+1)

then copy down. Then put this formula in A1:

=IFERROR(VLOOKUP(ROWS($1:1),$P:$T,COLUMNS($A:A)+1,0),"")

Copy across into C1 and D1, format D1 as number with 2dp, then copy down.

Hope this helps.

Pete

[mjr veverka]

...Column Q...in Column A (Start A1).
...Column S...in Column A (Start C1).
...Column T...in Column A (Start E1).

Do the 'B' and 'D' columns contain any data or are they empty ?

Edit:

If 'B' and 'D' are empty:

Please Login or Register  to view this content.

If 'B' and 'D' are not empty:

Please Login or Register  to view this content.

[rizmomin]

Hello pv:

Thanks a lot, i will use your code, 'B & D' empty.

Thanks to all

Riz

[bakerman2]

If you have a really big range this might speed things up.

Please Login or Register  to view this content.