sutunu yatay olarak sıralamak

[serkanım]

merhaba

Bir sutundaki verileri guruplar halinde yatay olarak makro ile sıralamak mümkünmüdür.

emeği geçen herkese teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Yerlestir()
    
    Dim sut As Integer, i As Long, son As Long
    
    Range("E2:M" & Rows.Count).ClearContents
    
    sut = 5
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" Then
            son = Cells(i, "A").End(xlDown).Row - 1
            Range("C" & i & ":C" & son).Copy Cells(2, sut)
            sut = sut + 1
        End If
    Next i
    
End Sub

.

 

[serkanım]

Teşekkürler

Merhaba Ömer Bey,

Sormuş olduğum 2 ayrı makro örneği ve geçmiş dönemlerdeki sorularıma vermiş olduğunuz cevaplardan dolayı tekrar teşekkür ederim.
Emeğinize Sağlık..