Tarih yeniden eskiye filtreleme

[sinnernekolens]

İyi günler, Aşağıdaki koda H sutunundaki tarihleri yeniden eskiye filtreleme ekleyebilir miyiz? yardımlarınızı rica ederim.

Private Sub ComboBox1_Change()
Dim alan As String
alan = Sayfa5.ComboBox1.Text
On Error Resume Next
Sayfa5.Range("$A$1:$K$65536").AutoFilter Field:=6, Criteria1:=alan
End Sub

 

[Fath]

Merhaba,
Ekleyin bakalım; belki iş görür.
Range("h:h").Sort Key1:=Range("h2"), Order1:=xlAscending
H2 hücresinden itibaren sıralama yapıyor. H1 de başlık bilgisi olabileceğini düşündüm. Bu noktaya dikkat edersiniz.
Kolay gelsin.
Not:Uyarlamadır.

 

[sinnernekolens]

iyi akşamlar, formül işe yaradı ancak yeni tarihlerin üst de olmasını istiyorum bu eskiden yeniye gidiyor.

 

[Fath]

Dener misiniz?
Range("h:h").Sort Key1:=Range("h2"), Order1:=xlDscending

 

[sinnernekolens]

maalesef olmadı örnek dosya ektedir. yine eskiden yeniye gidiyor

 

[Ömer BARAN]

Merhaba.
Aşağıdaki gibi deneyiniz.
Sondaki 2 azalan sıralama anlamına geliyor, 2'yi 1 yaparsanız artan sıralama gerçekleşir.

Range("A2:K" & Rows.Count).Sort [H2], 2

 

[sinnernekolens]

Ömer bey çok teşekkür ederim. Konu çözülmüştür.

 

[Ömer BARAN]

Kolay gelsin.