I'm looking to create a macro, one where depending on which the active cell is, if I hit say Ctrl + Shift + D. The macro would fill down the row I selected one row, but there are certain columns I want it to fill down:
I want it to Fill Down columns: A to E, G, I, K, M to P, R to T.
For example, my cursor is in cell N45, I want it to fill down row 45, but only columns A to E, G, I, K, M to P, R to T to row 45.
Can this be done. My testworkbook is attached.
Paste this code to your sheet code page and try please.
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Whoa Application.EnableEvents = False If Not Target.Cells.CountLarge > 1 Then If Not Intersect(Target, Columns(1)) Is Nothing Then Target.Offset(, 1).Select ElseIf Not Intersect(Target, Columns(2)) Is Nothing Then Target.Offset(, 1).Select ElseIf Not Intersect(Target, Columns(3)) Is Nothing Then Target.Offset(, 1).Select ElseIf Not Intersect(Target, Columns(4)) Is Nothing Then Target.Offset(, 1).Select ElseIf Not Intersect(Target, Columns(5)) Is Nothing Then Target.Offset(, 1).Select ElseIf Not Intersect(Target, Columns(6)) Is Nothing Then Target.Offset(, 1).Select ElseIf Not Intersect(Target, Columns(7)) Is Nothing Then Target.Offset(1, -6).Select End If End If Letscontinue: Application.EnableEvents = True Exit Sub Whoa: MsgBox Err.Description Resume Letscontinue End Sub
Last edited by cemregunay; 07-30-2014 at 11:31 PM.
Re: Macro to Fill Down Row
And example file
Umm..it did nothing?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks