How can I transpose the copied range (macro)

[jfalcone1]

From horizontal to vertical.


Sub Button83_Click()

ActiveSheet.Unprotect ""
Sheets("Output").Range("C4:O129").ClearContents
Sheets("Database").Range("A7:B200,AF7:AK200,AN7:AO200,AR7:AS200,AV7:AV200").SpecialCells(xlCellTypeVisible).Copy Sheets("Output").Range("C4")

Sheets("Database").Range("C7:AE200").SpecialCells(xlCellTypeVisible).Value = ("X")
Range("C6:AE6").Copy Sheets("Output").Range("C504")

ActiveSheet.Protect ""
End Sub

 

[VoG]

Try

Range("C6:AE6").Copy
Sheets("Output").Range("C504").PasteSpecial Transpose:=True

 

[jfalcone1]

Its pasting fine, just no transpose....im workin on the code now.

 

[jfalcone1]

working. THANKS A LOT!


I have an additional question now.

Say I wanted to format the fonts of the pasted cells to match destination formatting, how would I do that?

Here is the existing code.


Sub Button83_Click()

ActiveSheet.Unprotect ""
Sheets("Output").Range("C4:O129").ClearContents
Sheets("Database").Range("A7:B200,AF7:AK200,AN7:AO200,AR7:AS200,AV7:AV200").SpecialCells(xlCellTypeVisible).Copy Sheets("Output").Range("C4")

Sheets("Database").Range("C7:AE200").SpecialCells(xlCellTypeVisible).Value = ("X")
Range("C6:AE6").Copy
Sheets("Output").Range("C604").PasteSpecial Transpose:=True

ActiveSheet.Protect ""
End Sub