Filtrede son günü otomatik seçme & filtreyi temizleme

[feridici_genc]

İyi günler.

Şöyle bir sorunum var,
Ekte bulunan tabloda otomatik filtre kullanıyorum. Tarih sütunundaki filtrede her zaman en son günü seçiyorum ardından O sütunundaki filtre den de Sıfır ve #YOK dışında kalanları seçiyorum. Bu işi makro ile yaparak "Son Gün" butonuna atayabilir miyiz?
Ayrıca "Temizle" butonuna da seçimli filtreyi temizleyebilen bir makro atayabilir miyiz?

Örnek olarak tabloda bir filtreleme yaptım.
***Bilgi: Her gün de mutlaka sıfır var ama "#YOK" seçeneği olmayabiliyor.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodları deneyiniz.

Sub Son_Gün()
SonGün = Format(WorksheetFunction.Max(Range("$H$26:$H$7423")), "m\/d\/yyyy")
ActiveSheet.Range("$H$26:$O$7423").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, SonGün)
ActiveSheet.Range("$H$26:$O$7423").AutoFilter Field:=8, Criteria1:=">0", Operator:=xlAnd
End Sub

Sub Temizle()
    ActiveSheet.ShowAllData
End Sub

 

[feridici_genc]

ÇOK Teşekkür ederim.
iyi akşamlar.