Yan yana olan satırları alt alta dizmek

[Ayşe21]

Merhaba, yardımcı olursanız çok sevinirim.
Örnek:
1 2 3 4
5 6 7 8

Yapmak istediğim:
1
2
3
4
5
6
7
8

2500 tane böyle satır var (tabi rakamlar örnek verildi, 98, 254, ve s. gibi aslinda). Yan yana olan her 4 satırın sürekli alt alta sıra oluşturması lazım.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub cevir()
    son = Cells(Rows.Count, "A").End(3).Row
    For i = 1 To son
        yeni = Cells(Rows.Count, "F").End(3).Row
        Range("A" & i & ":D" & i).Copy: Cells(yeni, "F").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Next
    [A1].Select
    Application.CutCopyMode = False
End Sub

 

[Ayşe21]

Aşağıdaki makroyu deneyiniz:

Sub cevir()
    son = Cells(Rows.Count, "A").End(3).Row
    For i = 1 To son
        yeni = Cells(Rows.Count, "F").End(3).Row
        Range("A" & i & ":D" & i).Copy: Cells(yeni, "F").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Next
    [A1].Select
    Application.CutCopyMode = False
End Sub

Geri dönüşünüz için çok teşekkür ederim, Yusuf bey. Ama maalesef 4 sütünün sadece 3ünü yaptı (Excel 2010da çalışıyorum.)

Aşağıdaki makroyu deneyiniz:

Sub cevir()
    son = Cells(Rows.Count, "A").End(3).Row
    For i = 1 To son
        yeni = Cells(Rows.Count, "F").End(3).Row
        Range("A" & i & ":D" & i).Copy: Cells(yeni, "F").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Next
    [A1].Select
    Application.CutCopyMode = False
End Sub

Hızlı geri dönüşünüz için çok teşekkür ederim, Yusuf bey. Ama maalesef 4 sütünün sadece 3ünü yaptı Excel 2010 kullanıyorum.

 

[yasin85]

Merhaba,

https://www.excel.web.tr/threads/yan-yana-verileri-kosullara-goere-alt-alta-getirme.179599/page-2#post-987642

inceleyiniz daha önce ihtiyacım olmuştu ve bu konuda çözmüştü değerli hocalarımız..

 

[Ayşe21]

Merhaba,

https://www.excel.web.tr/threads/yan-yana-verileri-kosullara-goere-alt-alta-getirme.179599/page-2#post-987642

inceleyiniz daha önce ihtiyacım olmuştu ve bu konuda çözmüştü değerli hocalarımız..

Teşekkür ederim Sn. @yasin85, baktım, ama sanırım aradığım bu değil. Dosyalar da açılmadı ayrıca. Yine de teşekkürler.

 

[Necdet]

Geri dönüşünüz için çok teşekkür ederim, Yusuf bey. Ama maalesef 4 sütünün sadece 3ünü yaptı (Excel 2010da çalışıyorum.)

Hızlı geri dönüşünüz için çok teşekkür ederim, Yusuf bey. Ama maalesef 4 sütünün sadece 3ünü yaptı Excel 2010 kullanıyorum.

Yusuf bey son satırı bulurken sanırım dalgınlığına gelmiş.

yeni = Cells(Rows.Count, "F").End(3).Row

yerine

yeni = Cells(Rows.Count, "F").End(3).Row +1

olarak kullanırsanız sorun kalmaz.

 

[Ayşe21]

Yusuf bey son satırı bulurken sanırım dalgınlığına gelmiş.

yeni = Cells(Rows.Count, "F").End(3).Row

yerine

yeni = Cells(Rows.Count, "F").End(3).Row +1

olarak kullanırsanız sorun kalmaz.

Çok teşekkür ederim, bir daha deneyeyim.