Veri tabanında sıralama

[mertmustafa01]

Merhaba Arkadaşlarım ekli dosyamda veri tabanı kısmında muhtelif tarihlerde verileri girilebiliyor. tarih siralamasını yapıp raporlar kısmında hesabı düzgün getirmesi gerekiyor. bana yardımcı olurmusunuz
kullanıcı adı : demir
şifre: 2611

 

[Korhan Ayhan]

Böyle deneyiniz.

Private Sub CommandButton5_Click()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    With Sheets("Veritabanı").ListObjects("Tablo24")
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("Tablo24[[#All],[Tarih]]"), Order:=xlAscending
        .Sort.Header = xlYes
        .Sort.Apply
    End With
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

 

[mertmustafa01]

Böyle deneyiniz.

Private Sub CommandButton5_Click()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    With Sheets("Veritabanı").ListObjects("Tablo24")
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("Tablo24[[#All],[Tarih]]"), Order:=xlAscending
        .Sort.Header = xlYes
        .Sort.Apply
    End With
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

Çok Teşekkür ederim elinize sağlık