Makro ile otomatik filtre ile gecikmiş işleri filtreleme problemi?

[Deniz_Excel]

Merhaba herkese.

Yapmak istediğim şey çok basit 2 filtreli bir işlem. Biri tarihlerin olduğu kolonda bugünden öncesini filtreleyecek diğeri de çalışılıyor yazan satırları.
Bu nedenle makro kaydedip bu iki işlemi manual olarak yaptım. Oluşan makroyu ekte koyduğum excel içerisindeki şekle atadım. Ancak makro filtreyi doğru yapmıyor.
Bunun nedeni tarih formatından kaynaklanıyor diye düşünüyorum ancak sorunu çözemedim. Yardımcı olabilirseniz çok memnun olurum. İlgili Excel örneğini linkte bulabilirsiniz.

gecikmis_isleri_makro_ile_filtreleme.xlsm dosyasını indir - download

gecikmis_isleri_makro_ile_filtreleme.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[muratboz06]

Aşağıdaki makroyu modulünüze ekleyip, sayfadaki butona atayınız.

Sub FiltreleÇalışılıyor()
    ActiveSheet.Range("C:C").NumberFormat = "0"
    ActiveSheet.Range("B9").CurrentRegion.AutoFilter Field:=2, Criteria1:= _
        "<" & Format(Date, "0")
    ActiveSheet.Range("B9").CurrentRegion.AutoFilter Field:=3, Criteria1:= _
        "Çalışılıyor"
    ActiveSheet.Range("C:C").NumberFormat = "d/m/yy"
End Sub

 

[Deniz_Excel]

Aşağıdaki makroyu modulünüze ekleyip, sayfadaki butona atayınız.

Sub FiltreleÇalışılıyor()
    ActiveSheet.Range("C:C").NumberFormat = "0"
    ActiveSheet.Range("B9").CurrentRegion.AutoFilter Field:=2, Criteria1:= _
        "<" & Format(Date, "0")
    ActiveSheet.Range("B9").CurrentRegion.AutoFilter Field:=3, Criteria1:= _
        "Çalışılıyor"
    ActiveSheet.Range("C:C").NumberFormat = "d/m/yy"
End Sub

Merhaba teşekkürler. Makro doğru çalıştı ancak filtreyi temizlediğimde tarih kolonundaki tarihler sayı formatına dönüşüyor. 88242 gibi.

 

[muratboz06]

Kodu gereksiz uzatmışım. Deneyiniz.

Sub FiltreleÇalışılıyor()
   
    ActiveSheet.Range("$B$9").CurrentRegion.AutoFilter Field:=2, Criteria1:= _
        "<" & Format(Date, "0")
    ActiveSheet.Range("$B$9").CurrentRegion.AutoFilter Field:=3, Criteria1:= _
        "Çalışılıyor"

End Sub

 

[Deniz_Excel]

Teşekkürler çalışıyor