makroda dikey olarak yazılanları yatay olarak yazma

[can-can]

merhaba arkadaslar excelde yeniyim yardımlarınızı bekliyorum sayygılar...
örnek:
http://dosya.co/xd12zmie73wz/dikey_hucredeki_yazılanları_yatay_olarak_yazma.xlsx.html

 

[Orion1]

Standart bir modüle yapıştırıp,çalıştırınız.

Sub transpose59()
Dim liste()
liste = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value
Range("A1:XFD1").Clear
Range("A1").Resize(1, UBound(liste)) = Application.Transpose(liste)
End Sub

 

[can-can]

Standart bir modüle yapıştırıp,çalıştırınız.

Sub transpose59()
Dim liste()
liste = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value
Range("A1:XFD1").Clear
Range("A1").Resize(1, UBound(liste)) = Application.Transpose(liste)
End Sub

tesekkurler hocam.

 

[Orion1]

tesekkurler hocam.

Rica ederim.
İyi çalışmalar.