Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Just a bit alteration in the nice code.Pls try.
Sub CopyColumns1() Dim col As Long col = Cells(1, Columns.Count).End(xlToLeft).Column With Sheets("sheet20") For i = 1 To col Step 3 Columns(i).Copy .Cells(1, .Cells(1, .Columns.Count) _ .End(xlToLeft).Column + 1) Next i End With End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Help to code Macro to Copy fron one sheet and paste in other sheet | Excel Programming | |||
Q: Creating a macro to sort and group columns in a sheet according to another sheet | Excel Programming | |||
Copy certain columns to another sheet using a macro | Excel Programming | |||
Macro to copy columns from 1st sheet to 2nd according to mapping-p | Excel Programming | |||
macro to copy columns to sheet | Excel Discussion (Misc queries) |