Otomatik Sayfa Silme, Çalışma kitaplarında yer alan yüzlerce Çalışma Sayfasının silinmesini sağlayacak hazır makro kodları içermektedir.
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
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 Sub
Faydalanmanız temennisiyle.
Dosya Bilgileri
Dosya Adı: otomatik_sayfa_silme.xlsm
Dosya Boyutu: 25.82 KB
Toplam İndirme Sayısı: 0
Bu içerikteki dosyayı indirmek için giriş yapmalısınız. ExcelDepo üyelik bilgileriniz ile bu siteye de giriş yapabilirsiniz.
