tarih azalan sıralama

[sadolayn]

Merhaba arkadaşlar
Çoklu kullanılan ortak bir Excel dosyamda "A" sutünuna tarih girişi yapılıyor. Fakat yapılan girişler tarih sırasına göre olmuyor . Örneğin a kişisi "A1" hücresine 20.01.2020 giriyorsa b kişisi "A2" hücresine 18.01.2020 tarihini girebiliyor. Ben ilgili girişlerden sonra tekrar excel dosyası açıldığında "A" sütünundaki tarihlerin azalandan artan şeklinde otomatik sıralanmasını istiyorum. Tabi ki diğer sütün ve satırlardaki verilerda azalandan artana doğru sıralacak . İlgili kodu paylaşırmısınız rica etsem .
şimdiden teşekkürler

 

[ridvansahin]

eğer listenizde hücre birleştirme yapmadıysanız tarih sütununu seçip sağ üstte yer alan sırala ve filtre uygulamaya tıklarsanız , sıralama istediğiniz gibi olur

 

[u.L.a.s]

Merhabalar

Bu dediğiniz veriyi sheet1 de varsayarsak

Thisworkbook VBA düzeneğine aşağıdaki kod düzeneğini koymanız excel her açıldığında tarih sırasına göre sıralama yapacaktır.

Private Sub Workbook_Open()
    Range("A1").Select
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("A1:A65500"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select

End Sub

 

[sadolayn]

@ u.La.s çok teşekkür ederim. Tam istediğim gibi oldu

 

[u.L.a.s]

rica ederim kolay gelsin