Soru Belirli bir tarihe gelince hücre silme

[bycmbr]

Merhabalar,
tüm konuları okudum ama bir türlü beceremedim.
belirli bir tarih geldiğinde örnek : 25.04.2024 sayfa 2 deki a1 ve a2 hücresini silmek istiyorum araştırarak aynı sayfada saat geldiğinde silmeyi yaptım ama tarih kısmını beceremedim yardımcı olursanız teşekkür ederim.

saat örneğim bu ;

Sub Zsil()

dTime = TimeValue("15:18:01") + TimeSerial(0, 0, 10)
Application.OnTime dTime, "Zsil"

Call sil

End Sub


Sub sil()

Range("a2:a3").Select
Selection.ClearContents


End Sub

 

[Korhan Ayhan]

Merhaba,

Arşiv konularını bir kurcalayın derim...

Arşiv

 

[bycmbr]

Korhan bey inanın baktım fakat bilgim çok olmadığı için kodu yaratamadım.

 

[Korhan Ayhan]

Boş bir modüle uygulayıp deneyiniz.

Kod dosya açılışında çalışmaya başlayacaktır.. Dosya açıldığında ve uygun tarih geldiğinde kod devreye girecektir.

Option Explicit

Sub Auto_Open()
    DoEvents
    Application.OnTime Now + TimeSerial(0, 0, 1), "Clear_Range"
End Sub

Sub Clear_Range()
    If Date = "19.04.2024" Then
        DoEvents
        Sheets("Sayfa2").Range("A1:A2").ClearContents
    End If
    Call Auto_Open
End Sub

 

[bycmbr]

çok teşekkürler elinize sağlık.