Verilerin yanyana sıralanması

[honestman]

Merhaba,

Sizden yardım istediğim konuyla ilgili ekli dosyada açıklama yaptım. Şimdiden yardımınıza teşekkürler...

 

[İhsan Tank]

Merhaba,

Sizden yardım istediğim konuyla ilgili ekli dosyada açıklama yaptım. Şimdiden yardımınıza teşekkürler...

merhaba
formülle yapılabilinir mi bilmiyorum ama
istediğiniz verileri tarayın kaç sütun olacak 4 satır istemişsiniz siz orayı tarayacaksınız. ardından istediğiniz yere gelip sağ tuş özel yapıştır işlemi ters'e çevir'in tik'ini işaretleyin tamam deyin.

 

[honestman]

merhaba
ihsan hocam öyle yaptığım zaman da bütün verileri yan yana sıralıyor benim istediğim her dört satırı birbirinden bağımsız olarak yan yana getirip, alt alta sıralaması bilmem anlatabildim mi?
Dosyada da örnekledim.

 

[honestman]

.................

 

[honestman]

sanırım olmuyor,sağlık olsun...

 

[Korhan Ayhan]

Selamlar,

Formülle çözümüde elbet vardır ama şimdilik size aşağıdaki kodu öneriyorum. Formülle çözümüde üretirsem burada yayınlarım.

Aradaki BOŞ satırları sildikten sonra aşağıdaki kodu çalıştırın.

Yeni liste E10 hücresinden itibaren yapılmaktadır. Dilerseniz adresleri değiştirebilirsiniz.

Option Explicit
 
Sub VERİLERİ_YANYANA_DİZ()
    Dim X As Long, Satır As Long
 
    Range("E10:H65536").ClearContents
    Satır = 10
 
    For X = 3 To Range("B65536").End(3).Row Step 4
        Cells(Satır, "E") = Cells(X, "B")
        Cells(Satır, "F") = Cells(X + 1, "B")
        Cells(Satır, "G") = Cells(X + 2, "B")
        Cells(Satır, "H") = Cells(X + 3, "B")
        Satır = Satır + 1
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub