Listede adı geçen sayfaları sil

[simetri.]

Merhabalar.

B3 hücresine başka bir kod yardımı ile

Getirdiğim verileri (sayfa adlarını)

Silecek bir kod gerekli.

Yardımlarınız için şimdiden teşekkür ederim.

Butona tıkladığım zaman( B3:B13 )aralığındaki isimlere ait

sayfalar silinecek.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sayfa_Sil()
 
    Dim i As Byte
    
    Application.DisplayAlerts = False
    On Error Resume Next
    For i = 3 To 13
        If Cells(i, "B") <> "" Then
            Sheets("" & Cells(i, "B") & "").Delete
        End If
    Next i
    
    Application.DisplayAlerts = True
    
End Sub

.

 

[simetri.]

Kod çalışıyor.

Paylaşım için çok teşekkür ederim.

Sayın Ömer Bey