Koşullu Sıralama

[oornek1]

Merhaba Arkadaşlar;

A2 ile A100 Arasında AH, AHU, TUT, şeklinde guruplar var bu gurupların elemanlarında D2 hücresinde her gurubu kendi içerisinde büyükten küçüğe doğru sıralama yapılması gerekiyor örnek dosya ekledim

 

[Muzaffer Ali]

Aşağıdaki kodları deneyin.

Sub Sırala()
    Dim SonSatir As Integer
    
    With ThisWorkbook.Worksheets("YanEkran")
        SonSatir = .Cells(Rows.Count, 1).End(3).Row + 1
        
        Range("A:F").AutoFilter
        
        .AutoFilter.Sort.SortFields.Clear
        .AutoFilter.Sort.SortFields.Add Key:=Range("D1:D" & SonSatir)

        .AutoFilter.Sort.SortFields.Clear
        .AutoFilter.Sort.SortFields.Add Key:=Range("A1:A" & SonSatir)
        
        Range("A:F").AutoFilter

    End With
End Sub

Kodlar önce D sütununu sonra A sütununu sıralıyor.