Excel VBA ile Sayfa Silme Makrosu: Tek ve Çoklu Sayfa Silme İşlemleri
1. Hemen Kullanılabilir 4 Adet VBA Sayfa Silme Kodu
📌 Bu bölümdeki kodlar: Dim ile değişken tanımlar, ThisWorkbook.Sheets ile sayfaya erişir, .Delete ile sayfayı siler, Application.DisplayAlerts ile uyarı mesajlarını yönetir, For Each ile döngü oluşturur.
1. Tek Sayfa Sil
"Sayfa2" adlı sayfayı siler.
Sub TekSayfaSil()
Application.DisplayAlerts = False
ThisWorkbook.Sheets("Sayfa2").Delete
Application.DisplayAlerts = True
End Sub
3. Dinamik Sayfa Sil
Kullanıcıdan sayfa adı alarak siler.
Sub DinamikSayfaSil()
Dim sayfaAdi As String
sayfaAdi = InputBox("Silinecek sayfa adı:")
If sayfaAdi = "" Then Exit Sub
Application.DisplayAlerts = False
ThisWorkbook.Sheets(sayfaAdi).Delete
Application.DisplayAlerts = True
End Sub
2. "Sayfa" ile Başlayanları Sil
Adı "Sayfa" ile başlayan tüm sayfaları siler.
Sub SayfaIleBaslayanlariSil()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Sheets
If ws.Name Like "Sayfa*" Then ws.Delete
Next
Application.DisplayAlerts = True
End Sub
4. Tüm Sayfaları Temizle (Uyarılı)
Uyarı mesajını göstererek tüm sayfaları siler.
Sub TumSayfalariTemizle()
If MsgBox("Tüm sayfalar silinecek. Devam?", vbYesNo) = vbYes Then
Application.DisplayAlerts = False
Do While ThisWorkbook.Sheets.Count > 1
ThisWorkbook.Sheets(1).Delete
Loop
Application.DisplayAlerts = True
End If
End Sub
2. VBA Makroları için Ön Hazırlık
1. Geliştirici Sekmesini Aktifleştirin
Excel'de VBA kodlarını yazabilmek için önce Geliştirici sekmesini aktif etmelisiniz. Detaylı bilgi için tıklayın.
3. Modül Ekleyin
Kodlarınızı yazmak için bir Modül eklemelisiniz. Makro yazma rehberi için tıklayın.
2. Visual Basic Düzenleyici'yi Açın
Alt + F11 (Windows) veya Option + F11 (Mac) ile hızlıca açabilirsiniz.
4. Kodu Çalıştırın
Yazdığınız kodu çalıştırmak için F5 tuşuna basın veya Çalıştır butonuna tıklayın. VBA makro nedir? öğrenmek için tıklayın.
F5
▶️ Makroyu çalıştır
3. Sıkça Sorulan Sorular
01 Excel VBA ile sayfa nasıl silinir?
ThisWorkbook.Sheets("SayfaAdı").Delete kodu ile sayfayı silebilirsiniz.
02 Birden fazla sayfa nasıl silinir?
For Each ws In ThisWorkbook.Sheets döngüsü ile tüm sayfaları dolaşarak silebilirsiniz.
03 Uyarı mesajları nasıl kapatılır?
Application.DisplayAlerts = False ile uyarıları kapatabilirsiniz.
04 Mac'te sayfa silme çalışır mı?
Evet, Mac'te de aynı kodlar çalışır.
05 Hata alıyorum, ne yapmalıyım?
Sayfa adını kontrol edin, son sayfayı silmeye çalışmayın, sayfa korumasını kaldırın.
06 Silinen sayfayı geri getirebilir miyim?
Hayır, Delete işlemi geri alınamaz. Yedek almayı unutmayın.