Paste Special / Values / Transpose

[ben_hogan]

Dear Sirs,

The code up to the RIGHT step works fine, but the PasteSpecial part. Can someone please help me out telling me what am I doing wrong?

Also, I have not been able to find a reference about Expriecions, such as the definition and examples of usage.

Thank you for your help . . . .

Marco.-
Code:
Range("Q9:Q25").Select

Sheets("NOTE JOURNAL 3").Select

Range("T3").Select
Application.SendKeys "^{DOWN}", True
Application.SendKeys "{RIGHT}", True


PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

[mdmackillop]

I thought I answered this here (http://www.vbaexpress.com/forum/showpost.php?p=207997&postcount=3)

[ben_hogan]

Yes, you did. Thank you. But this is a variance or a little different scenario. Please review. Thank you again, Marco.-

[mdmackillop]

Try following the steps I pasted in the other code, rather than using the SendKeys method.

BTW, it is considered good etiquette to repond to posted answers, and to mark the thread Solved when you have your solution.

[ben_hogan]

OK MD,

Thank you. I'll keep it in mind. However, please check the other scenario I posted if you have the chance. There's a tricky variation to the same problem I was trying to solve.

Thank you again,

Marco.-

[mdmackillop]

There's a tricky variation to the same problem I was trying to solve

I don't see it.
Sub post_note_in_journal()
Range("Q9:Q25").Copy
Sheets("NOTE JOURNAL 3").Range("T3").End(xlDown).Offset(,1). _
PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub

[ben_hogan]

Thank you MD - It worked like a charm. I could not find where to declare the question as answered. Please advice . . . .

Thanks Again,

Marco.-

[mdmackillop]

see Thread Tools