Özel Filtreleme

[serkankeser]

Herkese Merhaba.
A ve B sütunlarinda verilerim var. B sütunu tarihlerden oluşuyor.
Macro kaydet:
Veri/Filtre/Otomatik Fitre Uyguladıktan sonra B sütununda özel filtre ile tarih araılığı filtre yaptırıyorum.
İşlemi bitirdikten sonra macroyu düğmeye atadığımda süz işlemi yapmıyor.
Ekli dosyayı incelerseniz daha iyi anlaşılacak galiba. İlgilenen arkadaşlara şimdiden teşekkür ederim.
Herkese iyi günler dileğiyle.

 

[omerceri]

Makroyu aşağıdaki gibi değiştirirsen
Sub Makro1()
Range("A1:B25").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=">=" & CDbl(Range("d1")), Operator:=xlAnd, Criteria2:="<=" & CDbl(Range("e1"))
End Sub

 

[omerceri]

Sheets("sayfa1").Range("A1").AutoFilter Field:=2, Criteria1:=">=" & CDbl(Range("d1")), Operator:=xlAnd, Criteria2:="<=" & CDbl(Range("e1"))
gibi de&#287;i&#351;tirirsen daha iyi

 

[serkankeser]

Çok teşekkür ederim Sayın ömerceri eline sağlık.