Tarihleri Küçükten Büyüğe Sıralama

[iplikci_80]

Arkadaşlar "ŞABLON" sayfasındaki B11 ile J60 arasındaki verileri küçük tarihten büyük tarih sırasına göre sıralama yaptırmaya çalıştığım makroyu çalıştıramadım bu konuda ve alternatif tavsiyeleriniz hususunda yardımlarınızı rica ediyorum.

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Sub sırala()
Application.EnableEvents = False
    ActiveWorkbook.Worksheets("ŞABLON").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ŞABLON").Sort.SortFields.Add Key:=Range("B11:B60") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ŞABLON").Sort
        .SetRange Range("B11:J60")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Application.EnableEvents = True

End Sub

 

[Seyit Tiken]

Alternatif : Çift Tıklama

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Application.ScreenUpdating = False
Sheets("ŞABLON").Sort.SortFields.Clear
Sheets("ŞABLON").Sort.SortFields.Add Key:=Range("B11")
With Sheets("ŞABLON").Sort
.SetRange Range("B11:J60")
.Apply
End With
Application.ScreenUpdating = True
End Sub

 

[iplikci_80]

Arkadaşlar ilginize teşekkür ederim.

 

[Orion1]

Makro kaydet yöntemi ile bu tür kodları elde edebilirsiniz.