Paste / Special / Transpose Code

[Benjamin_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

 

[Jonmo1]

Avoid SendKeys at ALL costs....but that's another story...

The reason it doesn't work, is you need to tell it where to paste..
Paste Special must be preceeded by a Range (where to paste to)..

Like Range("A1").PasteSpecial

it can't be just
PasteSpecial


Try this (without sendkeys)

Sheets("NOTE JOURNAL 3").Range("T3").End(xldown).Offset(0,1).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

 

[Norie]

Benjamin

You really, really should not use SendKeys.

What, in words, is this code meant to do?

 

[Benjamin_Hogan]

Well, the typical new record just goes to the T column, but at times I need to add information in either U:AK, in other times also/or in AL:Aw those two ranges are not always used and as I mention, complement the information deposited in the columns E:T - The columns A:D are filled-in manually.

Again, thank you very much for all your help . . .

Marco.-

Avoid SendKeys at ALL costs....but that's another story...

The reason it doesn't work, is you need to tell it where to paste..
Paste Special must be preceeded by a Range (where to paste to)..

Like Range("A1").PasteSpecial

it can't be just
PasteSpecial


Try this (without sendkeys)

Sheets("NOTE JOURNAL 3").Range("T3").End(xldown).Offset(0,1).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True