PDA

View Full Version : Transpose Column to Row (2 column)



ADITYAKANWAR
11-30-2016, 04:12 AM
Dear Sir,

Can you help me

Actually, I need to transpose the data from column to Row (Below is the example of my data)

Format is not always same some have 7 rows and some have 8 rows, After every data, there is Blank row,for me main problem his Amount (Column B), I need to insert the new Column After EFT INCOMING and put the amount

Please Consider Book1

Fennek
11-30-2016, 12:48 PM
Hi,

for book1.xlsx this code should help:



Sub Main
for each Ar in columns(2).specialcells(2).areas
Ar.cells(1).offset(0,2).resize(1, Ar.count) = application.transpose(Ar)
next Ar
End Sub


regards

ADITYAKANWAR
12-01-2016, 01:47 AM
it's working not properl

I Need Date and Amount also

Thanks in Advance


Hi,

for book1.xlsx this code should help:



Sub Main
for each Ar in columns(2).specialcells(2).areas
Ar.cells(1).offset(0,2).resize(1, Ar.count) = application.transpose(Ar)
next Ar
End Sub


regards