İki tarih arasındaki verilerin süzülmesi

[yavuz829]

Merhaba arkadaşlar eklediğim örnekte olduğu gibi iki tarih arasındaki verileri süzmek istiyorum. Bu konuda yardım ederseniz sevinirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayı denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1:B2")) Is Nothing Then Exit Sub
    On Error Resume Next
    If Not IsDate(Range("B1").Value) And Range("B1") <> 0 Then
        MsgBox "Lütfen tarih giriniz !", vbCritical
        Range("B1").ClearContents
        Range("B1").Select
        Exit Sub
    End If
    
    If Not IsDate(Range("B2").Value) And Range("B2") <> "" Then
        MsgBox "Lütfen tarih giriniz !", vbCritical
        Range("B2").ClearContents
        Range("B2").Select
        Exit Sub
    End If
    On Error GoTo 0
    
    If IsDate(Range("B1").Value) And IsDate(Range("B2").Value) Then
        If Range("B1") > Range("B2") And Range("B2") <> 0 Then
            MsgBox "İlk tarih son tarihten büyük olamaz !" & Chr(10) & "Lütfen kontrol ediniz !", vbCritical
            Range("B1:B2").ClearContents
            Range("B1").Select
            Exit Sub
        End If
        Range("A3:E3").AutoFilter Field:=2, Criteria1:=">=" & CLng(CDate(Range("B1"))), Operator:=xlAnd, Criteria2:="<=" & CLng(CDate(Range("B2")))
    Else
        Range("A3:E3").AutoFilter Field:=2
    End If
End Sub

 

[mustafa1205]

Korhan Hocam Kod hata verdi ama acaba örneğe tatbik etme imkanınız varmı

 

[yavuz829]

Hocam tarihleri yazdığımız zaman kod sayfasını açıyor ekteki hatayı veriyor.

 

[İhsan Tank]

Hocam tarihleri yazdığımız zaman kod sayfasını açıyor ekteki hatayı veriyor.

merhaba
üstteki kod bende hata vermedi bilginize
boş bir module kopyalayarak dener misiniz

Sub Makrotilki()
ActiveSheet.Range("$A$3:$E$18").AutoFilter Field:=2, Criteria1:= _
">=" & CLng(CDate(Range("B1"))), Operator:=xlAnd, Criteria2:="<=" _
& CLng(CDate(Range("B2")))
End Sub

 

[yavuz829]

Çok teşekürler hocam ellerinize sağlık.

 

[İhsan Tank]

Çok teşekürler hocam ellerinize sağlık.

rica ederim
Korhan Ayhan hocam'ada teşekkür ederim
:yazici:

 

[mustafa1205]

Eline Sağlık Hocam Çok güzel çalışıyor