Merhaba arkadaşlar,
ben hazırladığım bir programın misal 31.12.2005 tarihinden sonra kullanılmamasını istiyorum. Onun için
diye bir makro yazdım çalışma kitabını açınca makro otomotik çalışıyor ancak (Silinecek Sayfalarda Veri Olabilir Silmek İçin Sil i tıklatın) diye SİL ve İPTAL seçenekleri olan bir mesaj kutusu çıkıyor ve İPTAL deyince sayfalar silinmiyor. Ben koşul oluştuğunda seçenek bırakmadan silinmesini istiyorum ama bir yolunu bulamadım. Yardımlarınız için şimdiden teşekkür ederim.
ben hazırladığım bir programın misal 31.12.2005 tarihinden sonra kullanılmamasını istiyorum. Onun için
Kod:
Sub Auto_open()
zaman=date
If zaman>"12/31/2005" then
sheets(Array("sayfa1","Sayfa2","Sayfa3").delete
End If
End Sub