ben_hogan
03-16-2010, 11:22 AM
Do you have any idea why this code would not work? it stops before the paste step. Thank you for your help . . .
Marco.-
Sub post_note_in_journal()
'
' post_note_in_journal Macro
'
'
Range("G8:G23").Select
Selection.Copy
Sheets("NOTE JOURNAL FOR TEST").Select
Range("E3").Select
Application.SendKeys "^{DOWN}", Wait
Application.SendKeys "{DOWN}", Wait
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.SendKeys "{HOME}", Wait
End Sub
Marco.-
Sub post_note_in_journal()
'
' post_note_in_journal Macro
'
'
Range("G8:G23").Select
Selection.Copy
Sheets("NOTE JOURNAL FOR TEST").Select
Range("E3").Select
Application.SendKeys "^{DOWN}", Wait
Application.SendKeys "{DOWN}", Wait
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.SendKeys "{HOME}", Wait
End Sub