Excel Copy Paste special transpose 1

[puforee]

I would like to know if VBA can help me do a copy then paste special transpose AND maintain the formatting of the paste location.

Thanks,

 

[Andrzejek]

I took this:

[pre]
A B
1 1/1/2018 date
2 Joe text
3 123 number
4 $12.50 money
[/pre]
and with this code:

Range("A1:A4").Copy
Range("C1").PasteSpecial Paste:=xlPasteAll, _
    Operation:=xlNone, SkipBlanks:= False, Transpose:=True

I've got his:

[pre]
C D E F
1 1/1/2018 Joe 123 $12.50
[/pre]


---- Andy

There is a great need for a sarcasm font.

 

[puforee]

Thanks. One more thing. Did this leave the target formatting alone? If my paste range has formatting I want it to remain when new information is pasted in. Thanks again.

 

[SkipVought]

Try this...

Range("A1:A4").Copy
Range("C1").PasteSpecial Paste:=[b]xlPasteValues[/b], _
    Operation:=xlNone, SkipBlanks:= False, Transpose:=True

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[puforee]

I will do this first thing in the morning. I will let you know the results. Thanks Skip

 

[puforee]

Skip,
Very nice. This does exactly what I want it to do. Thanks and here is a Star.