macro to paste data in alternate cells-pawan

[Guest]

i want to paste data in alternate cells. e.g. i have following 2 columns:
A B
PWV3 DIGOUTHG
ILA3 DIGOUTHG
ILB3 DIGOUTHG
PDE3 DIGOUTHG
ILC3 DIGOUTHG
QWR3 DIGOUTHG
PWV4 DIGOUTHG
ILA4 DIGOUTHG

I want to paste PWV3 in row 1 and 3 of column B. Then I want to paste ILA3
in row 2 and 4 of column B...and so on....it is tedious to do it for large
numner of rows. Can we write macro for this...

thank you...

-Pawan

 

[Guest]

so for ILB3, where would that go? you explanation would indicate 3 and 5 but
that would over-write PWV3.

 

[Guest]

Oh..Pratick....
Unknowingly I wrote in wrong way...
corrected question is here...

i want to paste data in alternate cells. e.g. i have following 2 columns:

 

[Guest]

Sub Main()
DIM Index as Long
DIM rw as Long
index = 1
DO Until Cells(rw,1) = ""
index =index +1
Cells(index,2) = Cells(rw,1)
index = index + 2
Cells(index,2) = Cells(rw,1)

rw=rw+1
LOOP
End Sub

 

[Guest]

I am not able to do this. It is giving run time error : 1004-Applicatio
defined or object defined error. Can u pls help me?
-Pawan

 

[Dave Peterson]

I think Patrick forgot to initialize rw.

Sub Main()
DIM Index as Long
DIM rw as Long
index = 1
rw = 1 '<-- Added
DO Until Cells(rw,1) = ""
index =index +1
Cells(index,2) = Cells(rw,1)
index = index + 2
Cells(index,2) = Cells(rw,1)
rw=rw+1
LOOP
End Sub

 

[Patrick Molloy]

oops !

thanks Dave

I think Patrick forgot to initialize rw.

Sub Main()
DIM Index as Long
DIM rw as Long
index = 1
rw = 1 '<-- Added
DO Until Cells(rw,1) = ""
index =index +1
Cells(index,2) = Cells(rw,1)
index = index + 2
Cells(index,2) = Cells(rw,1)
rw=rw+1
LOOP
End Sub

 

[Dave Peterson]

You are welcome, Sir!

oops !

thanks Dave