Sayfa Silme

[xternet]

Merhaba arkadaşlar


Sub deneme()
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
End Sub


Bu kod Sheet1 sayfasını siliyor yalnız silmeden önce "silinsin mi" diye soruyor.
Sormadan direk silmesini nasıl sağlarız?

 

[EmrExcel16]

Şu kodu ekleyin.

Sub deneme()
Application.DisplayAlerts = False
Sheets("Sheet1").Delete
Application.DisplayAlerts = True
End Sub

 

[xternet]

Teşekkürler Sayın EmrExcel16
Makro kaydederek öğrenmeye çalışınca böyle basit noktalar da kaçıyor.

İyi çalışmalar.

 

[EmrExcel16]

Rica ederim , başlangıç seviyesinde öğrenmenin en iyi yöntemlerinden biridir, ama her kodu maalesef bu yöntemle bulamıyoruz. O yüzden gözden kaçması çok normal