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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 08:41 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com