sayfa yoksa makro çalışmasın

[alirizapekbilir]

kitap içerisinde sayfa1 yoksa makro çalışmasın varsa çalışsı arasına kodları ben ekleyeyim nasıl olur acaba

 

[leumruk]

Selamlar,

Sub kontrol()
Dim knt As Boolean
knt = False
For x = 1 To Sheets.Count
If Sheets(x).Name = "Sayfa1" Then
knt = True
Exit For
End If
Next

If knt = True Then
MsgBox "Sayfa1 var"
Else
MsgBox "Sayfa1 yok"
End If

End Sub

 

[alirizapekbilir]

teşekkürler

teşekkürler kardeşim sağolasın oldu