I need a macro to paste 31 rows of data in every other column D:XFB

[navelgazer]

I need a macro that will help me paste 31 rows of the same data in every other column D:XFB. The data for each row is already entered in column B. Hope this is enough information. Let me know. Thank you in advance for your help.

 

[ssingh75]

Can you please put some example...

Susheel
Excel,Access - 2007

 

[repairman615]

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> a()<br>Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br><SPAN style="color:#00007F">Dim</SPAN> ws <SPAN style="color:#00007F">As</SPAN> Worksheet: <SPAN style="color:#00007F">Set</SPAN> ws = ActiveSheet<br><SPAN style="color:#00007F">Dim</SPAN> i<br>    <SPAN style="color:#00007F">With</SPAN> ws.Range("B1:B31")<br>        <SPAN style="color:#00007F">For</SPAN> i = 4 <SPAN style="color:#00007F">To</SPAN> 16381 <SPAN style="color:#00007F">Step</SPAN> 2<br>            .Copy Destination:=Cells(1, i)<br>        <SPAN style="color:#00007F">Next</SPAN> i<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>  Application.ScreenUpdating = t<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[navelgazer]

Wow, repairman! Two of my questions in one day! Thank you so much. Between this and my other question you save me about two days worth of copy and pasting. haha. I never knew Excel could be so useful. Anyway, the macro worked great. Thanks again and thank you for your time.

 

[repairman615]

Wow, repairman! Two of my questions in one day! Thank you so much. Between this and my other question you save me about two days worth of copy and pasting. haha. I never knew Excel could be so useful. Anyway, the macro worked great. Thanks again and thank you for your time.

You are welcome and Glad to help!

 

[navelgazer]

Hey, repairman. Maybe you could help me with this too. (or maybe I should start a new thread?)

I need a macro that will help me auto-fill rows 2-31 with the data contained in row one of every other column 1:13485, where the data in row 1 changes every other column.


Example of data:


COLUMN1 COLUMN2 COLUMN3 COLUMN4
ROW1 ABC 333 DEF 999
ROW2 XXX 444 ZZZ 222
ROW3 555 111
ROW4 666 123
ROW5 777 345
ROW6 888 346


Example of desire output:

COLUMN1 COLUMN2 COLUMN3 COLUMN4
ROW1 ABC 333 DEF 999
ROW2 ABC 444 DEF 222
ROW3 ABC 555 DEF 111
ROW4 ABC 666 DEF 123
ROW5 ABC 777 DEF 345
ROW6 ABC 888 DEF 346

Thank you for your help. Much appreciated!

 

[repairman615]

Hello,

Best to start another thread to gain the knowledge of more members.

Also I will look into this later, as time does not permit now.