Gelişmiş filitreleme

[kahramang1]

Merhabalar. Ekli dosyanın arama sayfasında gelişmiş filtreleme mevcuttur. Ben vade tarihi bugünden küçük olanları sıralamasını yapması için "vade" alanına nasıl bir değer yazmam gerekli bir türlü bulamadım. Yardımcı olursanız sevinirim. Kolay gelsin.

 

[YUSUF44]

Kriter alanında B2 hücresine

="<"&BUGÜN()

yazarak dener misiniz?

 

[YUSUF44]

Ayrıca eğer aşağıdaki kodları arama sayfasının kod bölümüne yapıştırırsanız kriter alanında yapılan değişikliklere göre otomatik filtre yapılır:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:M2]) Is Nothing Then Exit Sub
    Range("A6:M1005").Clear
    Sheets("LİSTE").Range("B1:N1000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("arama!Criteria"), CopyToRange:=Range("A6"), Unique _
        :=False
End Sub

 

[kahramang1]

Her ikisi de çok işe yaradı. Çok teşekkür ederim. Makro atamaya gerek kalmadan gerekli arama yapılıyor. Kolay gelsin.