Combining two line of code

[Ardy]

Hello All;
How would you combine this two line of code Excel-2007

Sheets(1).Range("B4").Copy
Sheets(3).Range("A3").PasteSpecial Paste:=xlPasteValues
Sheets(1).Range("B5").Copy
Sheets(3).Range("B3").PasteSpecial Paste:=xlPasteValues

I have tried

Sheets(1).Range("B4, B5").Copy
Sheets(3).Range("A3, B3").PasteSpecial Paste:=xlPasteValues
The first line is OK but the second gives me an error.

Ardy

 

[Rick Rothstein \(MVP - VB\)]

Try it this way...

Sheets(1).Range("B4:B5").Copy
Sheets(3).Range("A3").PasteSpecial Paste:=xlPasteValues, Transpose:=True

Rick

 

[Jim Thomlinson]

Sheets(3).Range("A3").value = Sheets(1).Range("B4").value
Sheets(3).Range("B3").value = Sheets(1).Range("B5").value

or

Sheets(1).Range("B4, B5").Copy
Sheets(3).Range("A3").PasteSpecial Paste:=xlPasteValues, Transpose:=True

 

[Ardy]

Sheets(3).Range("A3").value = Sheets(1).Range("B4").value
Sheets(3).Range("B3").value = Sheets(1).Range("B5").value

or

Sheets(1).Range("B4, B5").Copy
Sheets(3).Range("A3").PasteSpecial Paste:=xlPasteValues, Transpose:=True

--
HTH...

Jim Thomlinson









- Show quoted text -

That is great, I love this news group.......I hope some body pays you
guys becuse it is well worthed.....

Can you explain the Transpose part dose this mean go to right insted
of down......

 

[Jim Thomlinson]

Transpose just turns rows into columns and vice versa... As for getting
paid... Just your never ending gratitude...