karışık verileri derleme

[hayri tekin]

Merhaba,
ekli dosyamdaki tabloda veriler dağınık şekildedir.Bunları derleyip,X2 hücresinden itibaren alt alta yazdırmak istiyorum.Mümkün olur mu bilemiyorum.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub VERİLERİ_DÜZENLE()
    Dim X As Long, Y As Byte, Satır As Long
    
    Range("X2:AA" & Rows.Count).ClearContents
    Satır = 2
    
    For X = 3 To Cells(Rows.Count, "I").End(3).Row
        For Y = 10 To 22
            If Cells(X, Y) <> "" Then
                Cells(Satır, "X") = Cells(X, Y)
                Cells(Satır, "Y") = Cells(X + 1, Y)
                Cells(Satır, "Z") = Cells(X + 2, Y)
                Cells(Satır, "AA") = Cells(X + 3, Y)
                Satır = Satır + 1
            End If
        Next
        X = X + 3
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[hayri tekin]

Korhan üstadım,
iyi ki varsınız;ellerinize sağlık.
saygılar