textbox ile 2 tarih arası filtreleme

[TURUNCU28]

arkadaşlar merhaba. bir uygulama yapmaya çalışıyorum ancak bir konuda yardımlarınızı rica edeceğim. userformda tarih ve firma kriterlerine göre arama yaptırıp onu başka bir excel sayfasına yazdırmak istiyorum. firma kriterini işlevsel olarak kullanabiliyorum ancak 2 tarih arasını filtrelemeyi maalesef başaramadık.

 

[TURUNCU28]

arkadaşlar forumdan ve başka forumlardan bir sürü araştırma yapıp uygulamaya çalıştım ancak enteresan bir şekilde uygulama hata da vermiyor ama işlem de yapmıyor. desteklerinizi rica ediyorum

 

[hoguz2]

merhaba

Private Sub CommandButton1_Click()
Worksheets("Sayfa1").Range("A1").AutoFilter Field:=1, Criteria1:=">=" & CLng(CDate(TextBox1.Value)), _
Operator:=xlAnd _
, Criteria2:="<=" & CLng(CDate(TextBox2.Value))
End Sub

 

[TURUNCU28]

merhaba

Private Sub CommandButton1_Click()
Worksheets("Sayfa1").Range("A1").AutoFilter Field:=1, Criteria1:=">=" & CLng(CDate(TextBox1.Value)), _
Operator:=xlAnd _
, Criteria2:="<=" & CLng(CDate(TextBox2.Value))
End Sub

bu kodu uyarlayıp deniyorum ekteki dosyada da bu var ancak çalışmıyor maalesef

 

[hoguz2]

ekli dosyanızı altin uye olmadigim icin goremiyorum. fakat bu kodda hata yok . sayfa1 in A stunundan baslayarak textboxlardaki degere gore yine A kolonuna filtre yapıyor. Sayfa isimleri ya da sütün duzeltmesi yaptiniz mi field1 dedigi kısım A sutunudur. field2 B field3 C diye gider.

google ya da yandex drive yukleyin isterseniz. hucrelerdeki degerleri tarih formatina ceviren bir satir da ekleyebilirsiniz oradan da sorun cikiyor olabilir..

 

[TURUNCU28]

buraya yükledim dosyayı değerlendirme şansınız varsa sevinirim

https://drive.google.com/open?id=0B59jDxLPw34RN2l2TGNIbXpDY0E

 

[hoguz2]

ben kodlarınızı su sekilde denedim filtreleme yapti. L2:L yazmissiniz ya orda bir sıkıntı var. otomatik filtreyi a1 den baslatin.


s1.Range("A1").AutoFilter Field:=12, Criteria1:=">=" & CLng(CDate(TextBox5.Value)), _
Operator:=xlAnd _
, Criteria2:="<=" & CLng(CDate(TextBox6.Value))

 

[TURUNCU28]

ben kodlarınızı su sekilde denedim filtreleme yapti. L2:L yazmissiniz ya orda bir sıkıntı var. otomatik filtreyi a1 den baslatin.


s1.Range("A1").AutoFilter Field:=12, Criteria1:=">=" & CLng(CDate(TextBox5.Value)), _
Operator:=xlAnd _
, Criteria2:="<=" & CLng(CDate(TextBox6.Value))

Teşekkür ederim. dediğiniz gibi yapınca süper çalıştı. elinize sağlık