Paste Special - Transpose

  • Thread starter Thread starter Bonnie
  • Start date Start date
B

Bonnie

I have a list of items that I need transposed into
columns; I'm currently doing copy, paste special,
transpose manually. Is there an automated way to do
this? Either by writing a macro or programming a key?

thank you.
 
Yes, it will only redo the exact section as what I have
recoreded. I need to do multiple sections.
 
I have it half figured out, but need help with the rest.
I managed to get it to copy the highlighted section and
paste special into a cell. However, it keeps pasting
into the same cell. How do I get it to paste into one
cell (row) after the other. See macro below. Currently
it pastes into cell A600, how do I get the next one I do
to paste into cell A601, then cell A602 etc...

Keyboard Shortcut: Ctrl+q
'
Selection.Copy
Range("A600").Select
Selection.pastespecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
End Sub
 
Hi Bonnie,

Perhaps this will work for you. Replace
Range("A600").Select
with
Range("A1000").End(xlUp).Offset(1, 0).Select

HTH
Regards,
Howard
 
try
Selection.Copy
cells(cells(rows.count,"a").end(xlup).row+1,"a").pastespecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub
 
Back
Top