A
Amin
hi i have recorded a macro for my workbook to cut paste data however what i
have observed is that the procedure is than some how rough when is pasteing
and coming back to the last sheet. may i know how to get it done very
smoothly without shaken.
here is the code
Sub Transfer_()
'
' Transfer_ Macro
'
'
Range("Form").Select
Selection.Copy
Sheets("Sales ").Select
Range("Sales[[#Headers],[PRODUCT ID ]]").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("Sales[[#Headers],[PRODUCT ID ]]").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("A9").Select
Sheets("Form").Select
Application.Goto Reference:="TabOrder"
Application.CutCopyMode = False
Selection.ClearContents
Range("D3").Select
ActiveCell.FormulaR1C1 = "=t0"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B3").Select
ActiveWorkbook.Save
End Sub
have observed is that the procedure is than some how rough when is pasteing
and coming back to the last sheet. may i know how to get it done very
smoothly without shaken.
here is the code
Sub Transfer_()
'
' Transfer_ Macro
'
'
Range("Form").Select
Selection.Copy
Sheets("Sales ").Select
Range("Sales[[#Headers],[PRODUCT ID ]]").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("Sales[[#Headers],[PRODUCT ID ]]").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("A9").Select
Sheets("Form").Select
Application.Goto Reference:="TabOrder"
Application.CutCopyMode = False
Selection.ClearContents
Range("D3").Select
ActiveCell.FormulaR1C1 = "=t0"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B3").Select
ActiveWorkbook.Save
End Sub