Sayfa varsa sil

[ibrahimnur]

excel çalışma kitabımda veriler isminde sayfam var.
makro ile bu sayfayı silmek istiyorum. ancak sayfa varmı yokmu kontrolu yapmak istiyorum.
sayfa varsasilsin yoksa sayfabulunamadı uyarısı versin. teşekkürler.

 

[mustafaine1]

Application.DisplayAlerts = False
Dim sayfa As Worksheet
On Error Resume Next
Set sayfa = Sheets("Veriler")
On Error GoTo 0
If Not sayfa Is Nothing Then
sayfa.Delete
Else
MsgBox "sayfa bulunamadi"
End If

Seklinde deneyiniz..

 

[ibrahimnur]

teşekkür ederim. tam istediğim gibi.eline sağlık

 

[mustafaine1]

Rica ederim, kolay gelsin..