otomatik sıralama

[Kardeşpayı]

Merhabalar,
ekli dosyada h hücresinde değişiklik yaptığımda g hücresinin sıralamasının ona göre değişmesini istiyorum forumda bulduğum bazı şeyleri denedim ama olmadı.sıralamanın servis dışılar üstte devamında da küçükten büyüye göre sayıların sıralanmasını istiyorum.Nasıl yapacağım konusunda yardımcı olursanız çok sevinirim şimdi den teşekkürler

 

[maliex]

butona atadım

 

[maliex]

buda otomatik olan

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("H:H")) Is Nothing Then Exit Sub
 Range("Tablo1[[#Headers],[Out of Order/ Servis Dışı]]").Select
    ActiveWorkbook.Worksheets("takip").ListObjects("Tablo1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("takip").ListObjects("Tablo1").Sort.SortFields.Add _
        Key:=Range("Tablo1[Out of Order/ Servis Dışı]"), SortOn:=xlSortOnValues, _
        Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("takip").ListObjects("Tablo1").Sort.SortFields.Add _
        Key:=Range("Tablo1[Kalan gün sayısı]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("takip").ListObjects("Tablo1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        End With

End Sub

 

[Kardeşpayı]

teşekkür ederim.

 

[Kardeşpayı]

buda otomatik olan

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("H:H")) Is Nothing Then Exit Sub
Range("Tablo1[[#Headers],[Out of Order/ Servis Dışı]]").Select
    ActiveWorkbook.Worksheets("takip").ListObjects("Tablo1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("takip").ListObjects("Tablo1").Sort.SortFields.Add _
        Key:=Range("Tablo1[Out of Order/ Servis Dışı]"), SortOn:=xlSortOnValues, _
        Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("takip").ListObjects("Tablo1").Sort.SortFields.Add _
        Key:=Range("Tablo1[Kalan gün sayısı]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("takip").ListObjects("Tablo1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        End With

End Sub

kodun bir yerinde hata olabilir mi dosya da çalışmadı