Excel'de hücre değerine göre çalışma sayfası nasıl silinir?

Bir çalışma kitabında birden fazla çalışma sayfasınız varsa ve belirli bir hücrenin içeriğine göre bazı sayfaları silmeniz gerekiyorsa, VBA bu görevi otomatikleştirmenize yardımcı olabilir. Örneğin, A1 hücresinde belirli bir kelime veya ifade bulunan tüm sayfaları kaldırmak isteyebilirsiniz. Bu kılavuz, Excel'de bu sayfaları hızlı bir şekilde tanımlamak ve silmek için VBA'yı nasıl kullanacağınızı gösterecektir.

VBA koduyla hücre değerine göre çalışma sayfasını silme

VBA koduyla hücre değerine göre çalışma sayfasını silme

Burada, belirli bir hücrede belirli bir değere sahip tüm sayfaları silmek için size bir kod tanıtacağım, lütfen şu adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarını basılı tutun.

2. Ekle Insert > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Hücre değerine göre çalışma sayfasını silme:

Sub deletesheetbycell()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
                                    "", , , , , 2)
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Range("A1").Value = shName Then
            xWs.delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted " & cnt & " worksheets.", vbInformation, "Kutools for Excel"
End Sub

Not: Yukarıdaki kodda, A1, sayfaları silmek istediğiniz belirli metni içeren özel hücredir.

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve size hangi değere göre sayfaları silmek istediğinizi girmenizi hatırlatan bir uyarı kutusu açılacaktır, ekran görüntüsüne bakın:

4. Ve sonra Tamam düğmesine tıklayın, A1 hücresinde KTE metnine sahip olan tüm sayfalar anında silinir. Ekran görüntüsüne bakın: