Sheetleri Silme

[ANTALYA 01]

Merhabalar
Ekteki Çalışmaya şöyle bir makro ihtiyacım bulunmaktadır.01/04/2009 dan 04/05/2009 Kadar Sayfalar Mevcut 01/01/2009 da olabilir Makroyu çalıştırdığımda Çalışma sayfasındaki Bütün sayfaları silecek Sadece En son tarihli olan 04/05/2009 Tarihli Sayfanın makronun çalışması bittiğinde kalmasını istiyorum.Bu tarih 05/05/2009-06/05/2009 Olabilir en son sayfa kalması yeterli.Teşekkürler.

 

[leumruk]

Merhaba,
Aşağıdaki kod işinizi görür:

Sub Sil()
Application.DisplayAlerts = False
For x = 1 To Worksheets.Count - 1
ActiveWindow.SelectedSheets.Delete
Next
Application.DisplayAlerts = True
End Sub

 

[ANTALYA 01]

H

Teşekkür ederim.

 

[leumruk]

Teşekkür ederim.

Rica ederim.