Tarih Geldiğinde Sayfaların otomotik silinmesi

[kimfx]

Merhaba arkadaşlar,
ben hazırladığım bir programın misal 31.12.2005 tarihinden sonra kullanılmamasını istiyorum. Onun için

Sub Auto_open()
zaman=date
If zaman>"12/31/2005" then
sheets(Array("sayfa1","Sayfa2","Sayfa3").delete
End If
End Sub

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.

 

[Exelans]

Sub Auto_open()
Application.DisplayAlerts=False
zaman=date
If zaman>"12/31/2005" then
sheets(Array("sayfa1","Sayfa2","Sayfa3").delete
End If
Application.DisplayAlerts=True
End Sub

 

[kimfx]

Eyvallah kardeş

 

[balca]

Sayın Exelans;

Verdiğiniz kodları denedim ama aşağıdaki satır hata verdi..


sheets(Array("sayfa1","Sayfa2","Sayfa3").delete

 

[Exelans]

Kodların o kısmı bana ait değil.
Ben denemedim.
Ben sadece Sayfa Silme esnasında Uyarı vermesin dedim.

Sub Auto_open()
zaman=date
If zaman>"12/31/2005" then
sheets(Array("sayfa1","Sayfa2","Sayfa3").delete
End If
End Sub

Sub Auto_open()
Application.DisplayAlerts=False
zaman=date
If zaman>"12/31/2005" then
sheets(Array("sayfa1","Sayfa2","Sayfa3").delete
End If
Application.DisplayAlerts=True
End Sub

 

[balca]

Anladım..


sheets(Array("sayfa1","Sayfa2","Sayfa3").delete

Satırı hata vermekte, dolayısıyle makro çalışmıyor cevapları bekleyeceğiz.

 

[Haluk]

Eğer problem bilgisayarda önceden kaydedilmiş bir dosyanın, belli bir tarihten sonra tamamının silinmesi ise aşağıdaki linke göz atın, kendinize uyarlayabilirsiniz...

http://www.excel.web.tr/viewtopic.php?p=23401#23401

 

[Haluk]

sheets(Array("sayfa1","Sayfa2","Sayfa3").delete

Satırı hata vermekte, dolayısıyle makro çalışmıyor cevapları bekleyeceğiz.

Çalışma kitabında sadece 3 sayfa varsa, bu kod hata verir.

Ã?rneğin, 4ncü bir sayfa daha ilave edip, kodu tekrar çalıştırın.

 

[ALPEN]

Çalışma kitabında sadece 3 sayfa varsa, bu kod hata verir.

Ã?rneğin, 4ncü bir sayfa daha ilave edip, kodu tekrar çalıştırın.

Ek olarak

kodda bir parantez eksik gibi.

sheets(Array("sayfa1","Sayfa2","Sayfa3")).delete

 

[balca]

Sayın Raider;

Teşekkürler