PLLLLEASEEEE HELP FOR MACRO

[catch22]

i've got 1 worksheet with 30 rows and 20 columns. Now what i want is a macro that will:
cut column B and paste it in Column A under A30. After that it should cut column C and paste it under Column A (ie now A60).This process should go on till all the columns are cut and pasted in column A.

I require this so that I can then work on the data better in 1 column. After that, I would require another macro to reverse what I have done, but with the data that I have worked upon. ie, get the modified data back into the 20 columns.

I hope i've not confused you. i've trid my best to explain the requirement. Could anyone pls help me? it's urgent.

thanks a ton in advance

 

[DonkeyOte]

working on this as we speak Mr Heller...

 

[DonkeyOte]

In this instance in row 31 I have entered the column letter eg B31 = B C31 = C etc - you could use cells so as to not to need this but this is how I am used to coding...

By pasting values you're not removing the data from it's original point so you don't need to reverse the macro.

Sub TEST()

DATA = Range("B31:U31")
CROW = 30

For Each LDATA In DATA

If LDATA = "" Then Exit For

Range(LDATA & "1:" & LDATA & "30").Copy
Range("A" & CROW).PasteSpecial xlPasteValues

CROW = CROW + 30

Next LDATA

End Sub


_________________
LASW10
This message was edited by lasw10 on 2002-11-07 05:24

 

[catch22]

sweety luke,

your macro has worked very well for the 1st part ie. pasting the data in 1 column. however, after i have worked on the data, i am not able to get the worked upon data back into the original columns. is that part to be done manually? (ie cut & paste) pls revert

 

[DonkeyOte]

you should find that this method doesn't move the original data (it copies and pastes not cut and paste) - so I didn't think you would need to put it back...

i.e. if you copy B1:B30 to A30 - the data will appear in A30:A59 but it will still be in B1:B30...

 

[DonkeyOte]

Sorry - just got what you were getting at...this will put the amended data back into columns B - U



Sub REVERT()

DATA = Range("B31:U31")
CROW = 30

For Each LDATA In DATA

If LDATA = "" Then Exit For

Range("A" & CROW & ":" & "A" & CROW + 29).Copy
Range(LDATA & "1").PasteSpecial xlPasteValues

CROW = CROW + 30

Next LDATA

End Sub

 

[catch22]

smoooch smoooch smooch..what more can i say!! ( & do!!)...why do i always come along late? why are the good ones always taken? i guess, this is my fate