I have recorded macro to copy (A3:M3) and paste specific cells (A3:M3) to another workbooks specific cells(A3:M3).
My problem is that I would like to create a command button to do function,
BUT have the ability to change row value
IE: if I select 3 in row input box it copies cells(A3:M3)
if I select 4 in row input box it copies cells(A4:M4)
if I select 5 in row input box it copies cells(A5:M5)
the cells will ALWAYS be pasted into the same target cells in 2nd workbook (A3:M3)
any suggestions (I am trying to create a command to create an estimate from call log entry)
Sub testcopy()
'
' testcopy Macro
'
'
Range("A3:M3").Select
Selection.Copy
Windows("Mid Template rev56.xltm").Activate
Workbooks.Open Filename:= _
"C:\Users\AY\Memphis\Custom Office Templates\Mid Template rev56.xltm" _
, Editable:=True
Sheets("DASHBOARD").Select
ActiveWindow.SmallScroll Down:=-51
Range("A3:M3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("(CALL LOG).xlsx").Activate
End Sub
My problem is that I would like to create a command button to do function,
BUT have the ability to change row value
IE: if I select 3 in row input box it copies cells(A3:M3)
if I select 4 in row input box it copies cells(A4:M4)
if I select 5 in row input box it copies cells(A5:M5)
the cells will ALWAYS be pasted into the same target cells in 2nd workbook (A3:M3)
any suggestions (I am trying to create a command to create an estimate from call log entry)
Sub testcopy()
'
' testcopy Macro
'
'
Range("A3:M3").Select
Selection.Copy
Windows("Mid Template rev56.xltm").Activate
Workbooks.Open Filename:= _
"C:\Users\AY\Memphis\Custom Office Templates\Mid Template rev56.xltm" _
, Editable:=True
Sheets("DASHBOARD").Select
ActiveWindow.SmallScroll Down:=-51
Range("A3:M3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("(CALL LOG).xlsx").Activate
End Sub