İki tarih arası süzme (makro ile)

[kemal turan]

Ek dosyada ustalarımın çalışmalarından revize edilmiş iki tarih arası makro ile süzme çalışması vardır.

 

[dennisf06]

merhaba,

iki tarih arasi süzme yapabilmek icin bu dosyadaki kodlari kullanabilirmiyim acaba. Ikitane texbox a A sütunundaki tarihleri baslangic ve bitis tarihleri olarak girmek istiyorum. dosyayi göremedigim icin kodlari acik bir sekilde yazabilirmisiniz. görebilen diger arkadaslarinda yardimlarini bekliyorum. tesekkür ederim.

 

[Mehmet Sait]

merhaba,

iki tarih arasi süzme yapabilmek icin bu dosyadaki kodlari kullanabilirmiyim acaba. Ikitane texbox a A sütunundaki tarihleri baslangic ve bitis tarihleri olarak girmek istiyorum. dosyayi göremedigim icin kodlari acik bir sekilde yazabilirmisiniz. görebilen diger arkadaslarinda yardimlarini bekliyorum. tesekkür ederim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A3")) Is Nothing Then Exit Sub
Dim Baslangıctarihi As Long, Bitistarihi As Long

Baslangıctarihi = Range("A1").Value
Bitistarihi = Range("A2").Value

'B3 TE BAŞLIĞINIZ OLDUĞUNU VARSAYARSAK
'B4 ve aşağı doğru tarihler olduğunu varsayarak

Range("B3:B100").AutoFilter Field:=1, _
Criteria1:=">=" & Baslangıctarihi, _
Operator:=xlAnd, _
Criteria2:="<=" & Bitistarihi
End Sub

 

[dennisf06]

merhaba Dunya Bey,

tesekkürler ilginize. vermis oldugunuz kodlar calisti. daha önce texbox icine asagidaki kodlari tek bir tarih icin süzme islemi icin kullandim. texbox icine tarih yazma ile vermis oldugunuz kodlari veya benim belirtmis oldugum kodlari uyarlamamiz mümkün mü. nedeni ise tarih ile birlikte baska texbox da metin süzmesi yapiyorum. tesekkür ederim.

Private Sub TextBox1_Change()
On Error Resume Next
TARÝH = TextBox1.Value = CDate(TextBox1.Value)
Set FC2 = Range("A14:J65000").Find(What:=TARÝH)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=CDate(TextBox1.Value)
If TARÝH = "" Then
Selection.AutoFilter Field:=1
End If
End Sub