Tek bir sütundaki sıralı verileri satırlara sıralama

[rzayildirim]

Arkadaşlar merhaba,
birinci sayfada tek sütunda sıralı olan bilgileri ikinci sayfaya ekteki örnekte gösterdiğim gibi sıralatamıyorum.
Bu konuda yardımcı olabilir misiniz.

 

[Ömer]

Merhaba,

Bu şekilde deneyin. Bazı satırlardaki boşlukları da kod ile sildirdim.

Sub Duzenle()
 
    Dim S2 As Worksheet, sat As Long, i As Long
    
    Set S2 = Sheets("Sayfa2")
    
    Application.ScreenUpdating = False
    Sheets("Sayfa1").Select
    Columns("A:A").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    S2.Range("A2:E" & Rows.Count).ClearContents
    
    sat = 2
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row Step 5
        Cells(i, "A").Resize(5, 1).Copy
        S2.Cells(sat, "A").PasteSpecial , Transpose:=True
        sat = sat + 1
    Next i
 
    Application.CutCopyMode = False
    Application.ScreenUpdating = False
    
End Sub

.

 

[rzayildirim]

Çok teşekkür ederim.