alt alta yazılı satırlardaki verileri yan yana farklı sütünlara yazdırma

[mattafixxx]

örnek tabloda da yazdığım gibi alt alta yazılı satırlardaki bilgilerin yanyana sütünlara yazılmasını istiyorum nasıl yapabilirim. Yardımcı olursanız sevinirim

 

[İhsan Tank]

örnek tabloda da yazdığım gibi alt alta yazılı satırlardaki bilgilerin yanyana sütünlara yazılmasını istiyorum nasıl yapabilirim. Yardımcı olursanız sevinirim

Merhaba
formül olarak

=KAYDIR($A$1;SÜTUN(A1)-1;1-1)

Bunu deneyin.
Kod olarak boş bir module kopyalayın ve deneyin

Option Explicit
Sub sütunlaştır_61()
Dim ts, kaplan, trabzonspor, hamsi
trabzonspor = MsgBox("Sütuna Yayıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
kaplan = 3
For ts = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(2, kaplan) = Cells(ts, "A")
kaplan = kaplan + 1
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Sütuna Yaydım", , "Bitiş"
End Sub

 

[Necdet]

Merhaba,

Koda veya makroya gerek var mı?

• A1:A5 Seç
• Kopyala
• C2 Seç
• Özel Yapıştır
• İşlemi Tersine Çevir
• Tamam