macro trouble

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
 
P

Paul Robinson

Hi
Put in
Application.Screenupdating = False

near the top of the code. It is automatically made true when the sub
finishes.
regards
Paul
 
J

JLGWhiz

I'm not sure this is exactly what you had, so try it and post back if it
does not do what you wanted.

Sub Transfer_()
'
' Transfer_ Macro
'

With Sheets("Form")
.Range("Form").Copy
With Sheets("Sales ")
.Range("Sales[[#Headers],[PRODUCT ID ]]").PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
.Range("TabOrder").ClearContents
.Range("D3").FormulaR1C1 = "=t0"
.Range("D3").FormulaR1C1 = "=TODAY()"
End With
ActiveWorkbook.Save
End Sub

I might have guessed wrong on the named ranges.



Hi
Put in
Application.Screenupdating = False

near the top of the code. It is automatically made true when the sub
finishes.
regards
Paul
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top