İki tarih arası verileri süzme

[kemal turan]

Merhaba ustalarımız
Cepten yazdığım için dosya ekkemiyorum.
Sorum şöyle
Sayfa1 a1 de başlangıç tarih
Sayfa1 a2 de bitiş tarihi
Aranacak tarih sayfa 2 de Tarih f sütununda sıralı
Sayfanın kod bölümüne yazilacak kod ile
Sayfa1 A1 ve A2 hücresi tarihi değişince
Sayfa 2 F sütünü Sayfa B sütununa
Sayfa2 G sütünü Sayfa1 C sutununà
Sayfa2 H sutunu Sayfa 1 D sütununa
Sürüm verileri getirecek bir kod rica ediyorum
Teşekkür ederim

 

[Korhan Ayhan]

Sayfa1 isimli sayfanızın kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
    On Error Resume Next
    Range("B:D").ClearContents
    If Not IsEmpty(Range("A1")) And Not IsEmpty(Range("A2")) Then
        If Range("A1") <= Range("A2") Then
            Sheets("Sayfa2").Range("F1").AutoFilter Field:=1, _
            Criteria1:=">=" & CLng(Range("A1")), Operator:=xlAnd, _
            Criteria2:="<=" & CLng(Range("A2"))
            Son = Sheets("Sayfa2").Range("F" & Rows.Count).End(3).Row
            Sheets("Sayfa2").Range("F1:H" & Son).Copy Range("B1")
            Sheets("Sayfa2").ShowAllData
        End If
    End If
    On Error GoTo 0
End Sub

 

[kemal turan]

Korhan hocam
Çok teşekkür ederim .
Selametle kalınız

 

[kemal turan]

Korhan hocam merhaba
Mevcut kodu herhangi bir çalışma kitabında uyguladığımda çalışıyor
Kendi çalışma kitabımdaki sayfaya uyguladım
Sadece başlıkları getiriyor
Aşağıdaki uyan tarih verilerini getirmiyor
Ne sorun var acaba

 

[kemal turan]

Merhaba hocam
Field:=6 yapınca düzeldi
Sheets("Sayfa2").Range("F1").AutoFilter Field:=6