Makro ile Özel Sıralama

[osmanli2]

Sayın üstadlar, ekteki örnekteki tabloda "b6:n65536" herbir grubu ayrı ayrı kendi içinde olmak şartı ile büyükten küçüğe sıralayan makro konusunda yardımlarınız rica ederim. Saygılar...

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Sirala()
    Dim X As Long, Ilk As Long, Son As Long
    
    For X = 6 To Cells(Rows.Count, 2).End(3).Row
        If IsNumeric(Cells(X, 2)) Then
            If Ilk = 0 Then Ilk = X
        Else
            Son = X - 1
        End If
        
        If Ilk > 0 And Son > 0 Then
            Range("B" & Ilk & ":N" & Son).Sort Range("E" & Ilk), xlDescending
            Ilk = 0
            Son = 0
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[osmanli2]

makro ile özel sıralama

Çok teşekkür ederim Sayın Korhan. Emeğinize sağlık.