Tarih değişince Hücredeki Değerlerin Silinmesi

[ozgurpeh]

Arkladaşlar Merhaba;

Çalışma Kitabında gün içinde yapmış olduğumuz çalışmaların ertesi gün tarih değiştiğinde bellirlediğimiz hücrelerdeki bilgilerin silinemsi için ne yapmalıyız ? Konuyu forumda arattım fakat bana yardımcı olacak bilgiler yoktu. Ek' te yolladığım Örnek üzerinde yardımcı olabilirmisiniz. Ürün ve adet bilgileri tarih değişince silinmesini istiyorum

 

[hamitcan]

Aşağıdaki kodu ilgili sayfanın kod kısmına ekleyin.

Private Sub Worksheet_Activate()
sonkayittarihi = ActiveWorkbook.BuiltinDocumentProperties("Last save time")
If Date > sonkayittarihi Then [b3:c500].ClearContents
End Sub

 

[ozgurpeh]

Aşağıdaki kodu ilgili sayfanın kod kısmına ekleyin.

Private Sub Worksheet_Activate()
sonkayittarihi = ActiveWorkbook.BuiltinDocumentProperties("Last save time")
If Date > sonkayittarihi Then [b3:c500].ClearContents
End Sub

PC tarihi değişincemi silinecek ??

 

[hamitcan]

Eğer son kayıt tarihi, bugünün tarihinden küçük ise kod ilgili aralığı siliyor; tabii ki sayfa aktif olduğunda.

 

[ozgurpeh]

Eğer son kayıt tarihi, bugünün tarihinden küçük ise kod ilgili aralığı siliyor; tabii ki sayfa aktif olduğunda.

Teşekürler