Herhangi bir sayfanın olup olmadığını kontrol etme

[oguzka]

Merhaba

Kodlarla, çalışma kitabında 1, 2, 3 ... gibi isimlere sahip sayfaların olup olmadığını kontrol ettirmeyi ve eğer varsa bu sayfaları silme işlemi yaptırmayı nasıl yapabilirim?

 

[N.Ziya Hiçdurmaz]

yanıt

Sub sayfabulsil()
deg = InputBox("Bulunup silinecek sayfa ismini yazınız.")
    For i = 1 To Sheets.Count
        On Error GoTo git
        If Sheets(i).Name Like deg Then
        Application.DisplayAlerts = False
        Sheets(i).Delete
        Application.DisplayAlerts = True
        End If
    Next
git:
End Sub

 

[Orion1]

Sub sayfa_sil()
Dim sayfa(), sh As Worksheet, k As Byte
sayfa = Array("", "1", "2", "3")
Application.DisplayAlerts = False
For Each sh In Worksheets
    For k = 1 To UBound(sayfa)
        If sh.Name = sayfa(k) Then sh.Delete: Exit For
    Next k
Next
Application.DisplayAlerts = True
MsgBox "Sayfalar silindi." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[oguzka]

Sayın uzmanlarım çok teşekkür ederim

 

[Necdet]

Merhaba,

Bir örnekte ben vereyim.

Sub SayfaSil()
Dim i As Integer
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
    If IsNumeric(Sheets(i).Name) = True Then Sheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub