iki tarih arasi süzme

[hoguz2]

Arkadaslar Merhaba,

Formda bir cok ornek olmasina karsin kendime gore uyarlayamadigim bu iki tarih arasi veri denetleme isleminini auto filtre ile yapmaya calisiyorum mantik olarak dogru oldugunu dusundugum bu kodta neden sonuc alamiyorum. rakam olarak denedigim zaman dogru tarih olarak yanlis. yardimci olursaniz sevinirim.



Private Sub CommandButton1_Click()
On Error Resume Next
Dim ilk_tarih As Date, son_tarih As Date
ilk_tarih = CDate(TextBox1.Value)
son_tarih = CDate(TextBox3.Value)
Set veri = Worksheets("sayfa2")
Sheets("RAPOR").Select
Range("A4:G3000").Select
Selection.ClearContents
Range("a1").Select
Sheets("sayfa2").Select
Range("a1").Select
Selection.AutoFilter
[K1] = CDate(TextBox1)
[L1] = CDate(TextBox3)
If Not Empty = TextBox1 Then
veri.Range("a1").AutoFilter field:=2, Criteria1:=">=[K1]", Operator:=xlAnd, Criteria2:="<=[L1]"
End If
If Not Empty = TextBox2 Then
veri.Range("a1").AutoFilter field:=7, Criteria1:=TextBox2.Value
End If
If Not Empty = ComboBox2 Then
veri.Range("a1").AutoFilter field:=3, Criteria1:=ComboBox2.Value
End If
If Not Empty = ComboBox1 Then
veri.Range("a1").AutoFilter field:=1, Criteria1:=ComboBox1.Value
End If
If Not Empty = ComboBox3 Then
veri.Range("a1").AutoFilter field:=5, Criteria1:=ComboBox3.Value
End If
If Not Empty = ComboBox4 Then
veri.Range("a1").AutoFilter field:=6, Criteria1:=ComboBox4.Value
End If
End Sub

bu kodda calismayan satir

veri.Range("a1").AutoFilter field:=2, Criteria1:=">=[K1]", Operator:=xlAnd, Criteria2:="<=[L1]"

satiridir

yukarida dim as date satirlarini da bir onceki denemem icin yazmistim.

o satirda su sekildeydi ama o da calismadi.


veri.Range("a1").AutoFilter field:=2, Criteria1:=">=ilk_tarih", Operator:=xlAnd, Criteria2:="<=son_tarih"

ya da yukardaki suzme islemini baska kodlarla nasil yapabilirim. yardimlarinizi rica ederim.

İyi geceler

 

[Korhan Ayhan]

Selamlar,

Kodunuzda a&#351;a&#287;&#305;daki de&#287;i&#351;ikli&#287;i yaparak denermisiniz. Di&#287;er b&#246;l&#252;m&#252;de a&#351;a&#287;&#305;daki &#246;rne&#287;e g&#246;re d&#252;zeltiniz.

Criteria1:=">=" & [K1]

 

[hoguz2]

uzgunum olmadi hala ayni sorun devam ediyor.

 

[Korhan Ayhan]

Selamlar,

&#214;rnek bir dosya eklermisiniz.