Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to add columns into worksheet
I wrote a macro to add columns into a worksheet called "DrListWorkCopy"
For some reason the macro incerted 3 extra columns at the end of column"Z". Anyone see where I went wrong? These are my codes Public Sub IncertColDrListWorkCopy() Dim WorkCopy As Worksheet Set WorkCopy = Sheets("DrListWorkCopy") With WorkCopy Columns("L").Select Selection.Insert 'Shift:=xlToLeft Columns("O").Select Selection.Insert 'Shift:=xlToLeft Columns("Q").Select Selection.Insert 'Shift:=xlToLeft Columns("W").Select Selection.Insert 'Shift:=xlToLeft Columns("Z").Select Selection.Insert 'Shift:=xlToLeft End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to add columns into worksheet
Nothing pops out right away.
But when funny things happen on inserting/deleting, I look for merged cells. They are a pain. I do my best to not use them. Blubber wrote: I wrote a macro to add columns into a worksheet called "DrListWorkCopy" For some reason the macro incerted 3 extra columns at the end of column"Z". Anyone see where I went wrong? These are my codes Public Sub IncertColDrListWorkCopy() Dim WorkCopy As Worksheet Set WorkCopy = Sheets("DrListWorkCopy") With WorkCopy Columns("L").Select Selection.Insert 'Shift:=xlToLeft Columns("O").Select Selection.Insert 'Shift:=xlToLeft Columns("Q").Select Selection.Insert 'Shift:=xlToLeft Columns("W").Select Selection.Insert 'Shift:=xlToLeft Columns("Z").Select Selection.Insert 'Shift:=xlToLeft End With End Sub -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to add columns into worksheet
Wow Dave
Really shows how experienced you are. Yes, its due to merged cells adjacent to column Z. Thanks!!! "Dave Peterson" wrote: Nothing pops out right away. But when funny things happen on inserting/deleting, I look for merged cells. They are a pain. I do my best to not use them. Blubber wrote: I wrote a macro to add columns into a worksheet called "DrListWorkCopy" For some reason the macro incerted 3 extra columns at the end of column"Z". Anyone see where I went wrong? These are my codes Public Sub IncertColDrListWorkCopy() Dim WorkCopy As Worksheet Set WorkCopy = Sheets("DrListWorkCopy") With WorkCopy Columns("L").Select Selection.Insert 'Shift:=xlToLeft Columns("O").Select Selection.Insert 'Shift:=xlToLeft Columns("Q").Select Selection.Insert 'Shift:=xlToLeft Columns("W").Select Selection.Insert 'Shift:=xlToLeft Columns("Z").Select Selection.Insert 'Shift:=xlToLeft End With End Sub -- Dave Peterson |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to add columns into worksheet
Those merged cells can be more trouble than they're worth!
Blubber wrote: Wow Dave Really shows how experienced you are. Yes, its due to merged cells adjacent to column Z. Thanks!!! "Dave Peterson" wrote: Nothing pops out right away. But when funny things happen on inserting/deleting, I look for merged cells. They are a pain. I do my best to not use them. Blubber wrote: I wrote a macro to add columns into a worksheet called "DrListWorkCopy" For some reason the macro incerted 3 extra columns at the end of column"Z". Anyone see where I went wrong? These are my codes Public Sub IncertColDrListWorkCopy() Dim WorkCopy As Worksheet Set WorkCopy = Sheets("DrListWorkCopy") With WorkCopy Columns("L").Select Selection.Insert 'Shift:=xlToLeft Columns("O").Select Selection.Insert 'Shift:=xlToLeft Columns("Q").Select Selection.Insert 'Shift:=xlToLeft Columns("W").Select Selection.Insert 'Shift:=xlToLeft Columns("Z").Select Selection.Insert 'Shift:=xlToLeft End With End Sub -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro Needed to pull specific columns from worksheet | Excel Programming | |||
create a macro to delete columns and then border remaining columns | Excel Programming | |||
I set up a macro to hide/unhide columns. It hides more columns | Excel Programming | |||
insert columns macro is putting 2 columns instead of 1 | Excel Worksheet Functions | |||
VBA to show or hide columns in one worksheet conditioned on value in other worksheet | Excel Programming |