Nov 29, 2014
10:28:12am
10:28:12am
Sorry, had family over and din't get back on.
Try the below with the following names. You can name them whatever you want.
"A12" = "cllnm1"
"C11:G11" = "Rng1goto"
Sub Add_Line_1()
'
' Add_Line_1 Macro
'
ActiveSheet.Range("cllnm1").Select
Rows(ActiveCell.Row).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("Rng1goto").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
"A12" = "cllnm1"
"C11:G11" = "Rng1goto"
Sub Add_Line_1()
'
' Add_Line_1 Macro
'
ActiveSheet.Range("cllnm1").Select
Rows(ActiveCell.Row).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("Rng1goto").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
- New username
- Mr Salad
- Bio page
- Cougar8Duck
- Joined
- Jul 2, 2010
- Last login
- Oct 28, 2023
- Total posts
- 0 (0 FO)
