Tarihe Göre Verilerin Silinmesi

[h.aykol_]

hücrede yazılı tarih geldiği gün silinsin

ekli sayfada örnekte istediğim gibi istediğim sütunda yazılı olan tarih geldiğinde hücre silinsin istiyorum.mümkünmü acaba!!!

 

[Necdet]

Merhaba,

D9

=EĞER(BUGÜN()>=B9+C9;"";B9+C9)

 

[3641]

Ekli dosyadada açıkladığım gibi
Verilerin bulunduğu hücreleri belirtilen tarih'e gelindiğinde otomatik silinsin istiyorum.

Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili dosyanın ThisWorkbok'un kod bölümüne kopyalayınız.
Kırmızı olan yeri siz kendinize göre ayarlayabilirsiniz.

Private Sub Workbook_Open()
If Date > Sheets("Sayfa1").[Q1] Or Date = Sheets("Sayfa1").[Q1] Then
    Sheets("Sayfa1").Range("[B][COLOR=red]A1:N16[/COLOR][/B]").ClearContents
End If
End Sub

 

[3641]

Sayın Necdet Yeşertener İlginiz İçin Teşekkür Ederim.
Buna Ek Olarak Hücreler Silindikten Sonra Otomatik Kaydet İlave Edebilirmiyiz.
Neden Derseniz Kaydetmeden Çıkıp Macroları Aktif Etmediği Sürece Güvenlik Tam Anlamıyla Sağlanmış Olmuyor.

Sildikten Sonra Otomatik Kaydederse Şayet Bilgiler Geri Gelmeyecektir.

 

[Necdet]

Merhaba,

Private Sub Workbook_Open()
If Date > Sheets("Sayfa1").[Q1] Or Date = Sheets("Sayfa1").[Q1] Then
    Sheets("Sayfa1").Range("A1:N16").ClearContents
    [COLOR=red]ActiveWorkbook.Save
[/COLOR]End If
End Sub

 

[3641]

Necdet Bey Teşekkür Ederim
Çalışmalarınızda Başarılar....