M
Michel Khennafi
Good evening
I would like to replace the text RANGE("B13").select by a more dynamic way
of moving the cursor.
My intent was to tell Excel GO UP ONE ROW... What is the instruction I need
to put in the macro to say Move up / move down... Go right / go left
Thanks
Macro1 Macro
' Macro recorded 4/27/2006 by Michel Khennafi
'
'
Application.Goto Reference:="Record_x"
Selection.EntireRow.Insert
Sheets("Summary Sheet").Select
Range("record").Select
Selection.Copy
Sheets("Vacation").Select
Application.Goto Reference:="Record_x"
Range("B13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.Goto Reference:="record"
Range("F38").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("G38").Select
Selection.ClearContents
End Sub
I would like to replace the text RANGE("B13").select by a more dynamic way
of moving the cursor.
My intent was to tell Excel GO UP ONE ROW... What is the instruction I need
to put in the macro to say Move up / move down... Go right / go left
Thanks
Macro1 Macro
' Macro recorded 4/27/2006 by Michel Khennafi
'
'
Application.Goto Reference:="Record_x"
Selection.EntireRow.Insert
Sheets("Summary Sheet").Select
Range("record").Select
Selection.Copy
Sheets("Vacation").Select
Application.Goto Reference:="Record_x"
Range("B13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.Goto Reference:="record"
Range("F38").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("G38").Select
Selection.ClearContents
End Sub