Makro ile filtre uygulama

[recepkull]

Arkadaşlar aşağıdaki dosyada görüldüğü gibi VeriTabanı sayfasında bazı veriler var. B sütununda tarihler D sütununda ise araç plakaları yazıyor. Benim yapmak istediğim J hücresinde hangi ay ismi yazıyorsa ve K hücresinde hangi plaka yazıyorsa buna göre filtre uygulamak. Deneme yanılma yoluyla bir kaç saattir uğraşıyorum yapamadım yardımınıza ihtiyacım var.

 

[ÖmerBey]

Merhaba,
Şu kodu deneyiniz.

Sub Kod()
Dim a As Byte, son As Long
For a = 1 To 12
    If Format(DateSerial(1, a, 1), "mmmm") = Range("J2") Then
        Exit For
    End If
Next
son = Cells(Rows.Count, "D").End(3).Row
With Range("B6:D" & son)
    .AutoFilter Field:=1, Operator:=xlFilterValues, _
        Criteria2:=Array(1, Format(DateSerial(Year(Date), a + 1, 1) - 1, "m\/d\/yyyy"))
    .AutoFilter Field:=3, Criteria1:=Range("K2").Value
End With
End Sub

 

[recepkull]

Teşekkür ederim hocam. Verdiğiniz kod örnek dosyada tam istediğim gibi çalışıyor. Çok fazla bilmediğim tanımlama var umarım kendi dosyama uyarlayabilirim.