Büyükten küçüğe sıralama

[esolen]

Arkadaşlar Merhaba;

ekteki dosya için yardımınızı rica ederim.

 

[Erdal]

Merhabalar eki inceleyiniz.

 

[Necdet]

Merhaba,

Makro ile isterseniz Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [C:C]) Is Nothing Or Target.Row < 3 Then Exit Sub
    Dim Son As Long
    
    Son = Cells(Rows.Count, "B").End(3).Row
    Application.ScreenUpdating = False
    Range("B2:C" & Son).Copy Range("E2")
    Range("E3:f" & Son).Sort Key1:=[F1], Order1:=xlDescending, Key2:=[E1]
    Application.ScreenUpdating = True
    
End Sub

 

[esolen]

teşekkür ederim..