Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Drag/fill colums and Delete Columns
I know I can drag/fill and delte a colum range as follows below from a
recorded macro. How do I use column numbers in VBA to replicate these acts? Assume ahead of time I know for the drag/fill I kno my range is C2:C17. Also assume that for the delete I know the starting range of C19:J32. Thanks 'Drag and fill Range("C2:C17").Select Selection.AutoFill Destination:=Range("C2:J17"), Type:=xlFillDefault Range("C2:J17").Select 'Delete Range Range("C19:J32").Select Range("J19").Activate Selection.ClearContents |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Drag/fill colums and Delete Columns
ExcelMonkey Wrote: I know I can drag/fill and delte a colum range as follows below from a recorded macro. How do I use column numbers in VBA to replicate these acts? Assume ahead of time I know for the drag/fill I kno my range is C2:C17. Also assume that for the delete I know the starting range of C19:J32. Thanks 'Drag and fill Range("C2:C17").Select Selection.AutoFill Destination:=Range("C2:J17"), Type:=xlFillDefault Range("C2:J17").Select 'Delete Range Range("C19:J32").Select Range("J19").Activate Selection.ClearContents could be.. Range("C19:J32").Select Selection.ClearContents Range("C19").Select the auto fill could be this Range("C2").Select Selection.AutoFill Destination:=Range("C2:C17"), Type:=xlFillDefault Range("D2").Select -- davesexcel ------------------------------------------------------------------------ davesexcel's Profile: http://www.excelforum.com/member.php...o&userid=31708 View this thread: http://www.excelforum.com/showthread...hreadid=564089 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Drag/fill colums and Delete Columns
Sub fillcol()
Cells(2, 3).AutoFill Destination:=Range(Cells(2, 3), Cells(17, 3)) End Sub for the active column Sub fillcol() ac=activecell.column Cells(2, ac).AutoFill Destination:=Range(Cells(2,ac), Cells(17, ac)) End Sub same idea for your delete Range(Cells(2,3), Cells(17, 13)).clear -- Don Guillett SalesAid Software "ExcelMonkey" wrote in message ... I know I can drag/fill and delte a colum range as follows below from a recorded macro. How do I use column numbers in VBA to replicate these acts? Assume ahead of time I know for the drag/fill I kno my range is C2:C17. Also assume that for the delete I know the starting range of C19:J32. Thanks 'Drag and fill Range("C2:C17").Select Selection.AutoFill Destination:=Range("C2:J17"), Type:=xlFillDefault Range("C2:J17").Select 'Delete Range Range("C19:J32").Select Range("J19").Activate Selection.ClearContents |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Drag/fill colums and Delete Columns
So Don why is this not working: I am trying to fill range C3:C17 to F3:F17.
Sub fillcol() Dim X As Integer Range(Cells(3, 3), Cells(17, 3)).Select Selection.AutoFill Destination:=Range(Cells(3, 6), Cells(17, 6)) End Sub "Don Guillett" wrote: Sub fillcol() Cells(2, 3).AutoFill Destination:=Range(Cells(2, 3), Cells(17, 3)) End Sub for the active column Sub fillcol() ac=activecell.column Cells(2, ac).AutoFill Destination:=Range(Cells(2,ac), Cells(17, ac)) End Sub same idea for your delete Range(Cells(2,3), Cells(17, 13)).clear -- Don Guillett SalesAid Software "ExcelMonkey" wrote in message ... I know I can drag/fill and delte a colum range as follows below from a recorded macro. How do I use column numbers in VBA to replicate these acts? Assume ahead of time I know for the drag/fill I kno my range is C2:C17. Also assume that for the delete I know the starting range of C19:J32. Thanks 'Drag and fill Range("C2:C17").Select Selection.AutoFill Destination:=Range("C2:J17"), Type:=xlFillDefault Range("C2:J17").Select 'Delete Range Range("C19:J32").Select Range("J19").Activate Selection.ClearContents |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do I drag and fill hyperlinks? | Excel Worksheet Functions | |||
Fill & Drag to Right !! HELP ! | Excel Discussion (Misc queries) | |||
Why is my drag and fill not following the pattern? | Excel Worksheet Functions | |||
Drag down the color fill box | Excel Discussion (Misc queries) | |||
Drag and fill from other sheets | Excel Discussion (Misc queries) |