Hücrede belirtilen sayfa varsa silsin, yoksa uyarı versin.

[leumruk]

Sub Sil()
Worksheets(Worksheets("AnaSayfa").Range("A3").Text).Delete
End Sub

Selamlar...
Yukarıdaki kod sayfa silme işlemini gerçekleştiriyor. Benim isteğim sayfa varsa silmesi, sayfa yoksa sayfanın olmadığına dair uyarı vermesi.
Saygılarımla...
Yardımlarınızı bekliyorum.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub Sil()
On Error GoTo err
Worksheets(Worksheets("AnaSayfa").Range("A3").Text).Delete
err:
If err Then
MsgBox err.Description & " Böyle bir sayfa bulunamadı", vbInformation
End If
End Sub

 

[leumruk]

Teşekkürler N.Ziya Hiçdurmaz.