sutunları satırlara dönüştürmek

[ixxxi]

Merhaba,
"A" sutunundaki değerleri (A1,A2,A3...) 1. satıra (A1, B1, C1...) aktarmanın kolay bir yolu varmıdır? Teşekkürler ...

 

[Orion1]

A sütunundaki verileri 1nci satıra listeler.Transpose eder.256 dan büyükse hata verir.

Sub sutun()
liste = Range("A1:A" & Cells(65536, "A").End(xlUp).Row)
Range("A1").Resize(1, Cells(65536, "A").End(xlUp).Row) = Application.Transpose(liste)
End Sub

 

[Orion1]

Fonksiyonla:
B1 hücresine aşağıdaki formülü girin ve 1nci satırda istediğiniz kadar kopyalayın.

=DOLAYLI("A"&SÜTUNSAY($A$1:B$1))

 

[ulashcan]

Cevap gelmiş...

 

[ixxxi]

teşekkür ederim arkadaşım. eline sağlık...

 

[Orion1]

teşekkür ederim arkadaşım. eline sağlık...

Rica ederim.
İyi çalışmalar.

 

[Seyit Tiken]

Alternatif :

Sub Düğme1_Tıklat()
For s = 1 To 3
Cells(1, s) = Cells(s, 1)
Next
End Sub

 

[spilavci]

Merhaba ,

Copy veya cut---pasta special---transpose

Selamlar.