iki tarih arasi süzme yapmak

[dennisf06]

merhaba,

Texbox1 e baslangic Texbox2 ye bitis tarihini yazip A sütununda tarihleri süzme yapmak istiyorum. konuyla ilgili diger calismalari inceledim ama malesef dosya indiremedigim icin cabalarim sonucsuz kaldi. tesekkür ederim.

 

[Orion1]

Userforma 1 botun ekleyin ve aşağıdaki kodu yapıştırın.

Private Sub CommandButton1_Click()
Dim tar1 As Date, tar2 As Date
tar1 = TextBox1.Value
tar2 = TextBox2.Value
Range("A1").AutoFilter
Range("A1").AutoFilter field:=1, Criteria1:=">=" & CLng(tar1), Operator:=xlAnd, Criteria2:="<=" & CLng(tar2)

End Sub

 

[dennisf06]

merbaba Orion1 ustam

bugün bana cok emeginiz gecti. dediklerinizi aynen uyguladim. yalniz texbox1 ve texbox2 yi sildigim zaman geriye dönüs olmuyor. en son süzme yaptigi gibi kaliyor. geriye dönüsü nasil yapabilirim. bir de texbox1 tarihini L1 texbox2 nin tarihini L2 hücresine yazdirabilirmiyiz. tesekkür ederim.

 

[Orion1]

merbaba Orion1 ustam

bugün bana cok emeginiz gecti. dediklerinizi aynen uyguladim. yalniz texbox1 ve texbox2 yi sildigim zaman geriye dönüs olmuyor. en son süzme yaptigi gibi kaliyor. geriye dönüsü nasil yapabilirim. bir de texbox1 tarihini L1 texbox2 nin tarihini L2 hücresine yazdirabilirmiyiz. tesekkür ederim.

textbox1'i sildikten sonra yada textbox2'yi sildikten sonra butona basınız.
Kodlar aşağıdadır.

Dim tar1 As Date, tar2 As Date
[B][COLOR="Red"]If TextBox1.Value = "" Or TextBox2.Value = "" Then
    Range("A1").AutoFilter
    Exit Sub
End If[/COLOR][/B]
tar1 = TextBox1.Value
tar2 = TextBox2.Value
Range("A1").AutoFilter
Range("A1").AutoFilter field:=1, Criteria1:=">=" & CLng(tar1), Operator:=xlAnd, Criteria2:="<=" & CLng(tar2)

 

[dennisf06]

hocam Range("A1").AutoFilter field:=1, Criteria1:=">=" & CLng(tar1), Operator:=xlAnd, Criteria2:="<=" & CLng(tar2) satirinda field:=1 burada 1 rakamini hata gösteriyor.

 

[dennisf06]

Orion1 hocam hatayi gördüm. kodu End Sub ile sonlandirmamisim. olabilirse texbox1 ve texbox2 ye yazdigim tarihleri L1 ve L2 ye yazdirabilirmiyiz.simdiden emekleriniz icin cok cok tesekkür ederim.

 

[Orion1]

Orion1 hocam hatayi gördüm. kodu End Sub ile sonlandirmamisim. olabilirse texbox1 ve texbox2 ye yazdigim tarihleri L1 ve L2 ye yazdirabilirmiyiz.simdiden emekleriniz icin cok cok tesekkür ederim.

Buyurun

Dim tar1 As Date, tar2 As Date
[B][COLOR="Blue"]Range("L1").Value = TextBox1.Value
Range("L2").Value = TextBox2.Value[/COLOR][/B]
If TextBox1.Value = "" Or TextBox2.Value = "" Then
    Range("A1").AutoFilter
    Exit Sub
End If
tar1 = TextBox1.Value
tar2 = TextBox2.Value
Range("A1").AutoFilter
Range("A1").AutoFilter field:=1, Criteria1:=">=" & CLng(tar1), Operator:=xlAnd, Criteria2:="<=" & CLng(tar2)

 

[dennisf06]

Orian1 hocam emeklerinize cok tessekür ederim. saglicakla kalin.

 

[Orion1]

Orian1 hocam emeklerinize cok tessekür ederim. saglicakla kalin.

Rica ederim.
İyi çalışmalar.