Otomatik Sayfa Silme isimli içerikte, Çalışma kitaplarında yer alan yüzlerce sayfanın oldukça kolay bir şekilde silinmesini sağlayacak hazır makro kodları yer almaktadır.
Makrolar ile Otomatik Sayfa Silme
Kodu çalıştırdığınızda, makrolar ile işlemler yapıldığında işlemin geri alınması mümkün olmadığı için, olası hatalı çalıştırmayı önlemek adına bir soru uyarısı ekranı çıkacaktır.Bu ekranda Evet ve Hayır şeklinde iki seçenek bulunmaktadır.
Evet seçeneğine tıklarsanız, kodlarımızda belirttiğimiz "Anasayfa" isimli sayfa dışındaki tüm sayfalar silinecektir.
Kendi çalışmalarınıza uyarlamak için "Anasayfa" yerine kendinizin sayfa adını yazmanız yeterli olacaktır.
Hayır seçeneğine tıklarsanız, kodlar çalışmayacak ve herhangi bir silme işlemi gerçekleşmeyecektir. Bunun sonucunda da karşınıza bir bilgi penceresi çıkacaktır.Hazır Kodlar
VBA:
Sub SayfaSil()
Dim sayfa As Worksheet
If MsgBox(Chr(34) & "Anasayfa" & Chr(34) & " isimli sayfanız haricindeki tüm sayfalarınız silinecektir, bunu yapmak istediğinize emin misiniz?", vbYesNo + vbQuestion, "Sayfaları Silme") = vbYes Then
Application.ScreenUpdating = False: Application.DisplayAlerts = False
For Each sayfa In Worksheets
If sayfa.Name <> "Anasayfa" Then
sayfa.Delete
End If
Next
Application.ScreenUpdating = True: Application.DisplayAlerts = True
Else
MsgBox "Silme işleminden vazgeçtiniz!", vbCritical, "Sayfa Silme İptal Edildi!"
End If
End SubFaydalanmanız temennisiyle.
İki Farklı Değişken Koşula Bağlı Veri Çekme
2025-03-15
Büyük Küçük Harf Fonksiyonlarını Kullanma
2025-03-15
