Alt alta olan hücreleri sutunlara dönüştürme

[oornek1]

Merhaba

veritabanından almış olduğum excel tablolarını alt alt sıralanmış halini yan yana almak istiyorum,

A
1 - omer
2 - 08.04.2021
3 - 12,000
4 - modem
5 - 08.04.2021
6 - 10,000

yukarıdaki tabloyu B1 hücresinden başlayarak aşağıya doğru yan yana sıralaması gerekiyor
B
1 - omer | 08.04.2021 | 12,000
2 - modem| 08.04.2021 | 10,000
şeklinde yapmak istiyorum

aşağıdaki makro tam olarak istediğim sonucu veriyor, ama bu sadece A1:A3 hücrelerindeki kayıtları B1 hücresine yanyana veriyor ben yaklaşık 1400 veriyi bu şekilde almak istiyorum.

Sub SutunlaraAktar()
    Range("A1:A3").Select
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

 

[Necdet]

Merhaba,

Verdiğiniz kod doğru ama sadece ilk 3 satır için geçerliyse isteğiniz yanlış.
İsteğiniz doğru ise kodlar yanlış

Aşağıdaki kod istediğinizi B sütununa , kodda yapılan işlemi ise C sütununa yazar.

Seçim artık sizin.

Sub SutunlaraAktar()

    Dim i As Long
    Dim j As Long
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row Step 3
        j = j + 1
        Range("B" & j) = Cells(i, "A") & " | " & Cells(i + 1, "A") & " | " & Cells(i + 2, "A")
    
        Range("A" & i & ":A" & i + 3).Copy
        Range("C" & j).PasteSpecial Transpose:=True
    
    Next i
    
End Sub

 

[Korhan Ayhan]

Alternatif formülle çözüm;

B1 hücresine uygulayıp ihtiyacınız kadar sağa ve alta doğru sürükleyiniz.

=KAYDIR($A$1;SATIR($A1)*3-2+SÜTUN(A$1)-1-1;)

 

[oornek1]

Teşekkür ederim yardımlarınız için