excel vba sekme problemi

[ekmekevi]

merhaba arkadaşlar döngü ile sayfa isimlerini kontrol etmek istiyorum sayfanın var olup olmadığını anlamak istiyorum yardımcı olumusunuz

For Each syf In Worksheets
If syf.Name = cmbsofor.Value Then
syf.Select
Exit For
End If
Next syf
sayfa varsa sececek yoksa ekleyecek var olduğunu bulup seçiyoruz fakat yok olduğu zaman hangi kod olamlı teşekkürler

 

[Muzaffer Ali]

Merhaba.

dim SayfaVar as boolean

For Each syf In Worksheets
If syf.Name = cmbsofor.Value Then
syf.Select
sayfavar=true
Exit For
End If
Next syf

if sayfavar=false then
    'Aradığın sayfa yok.
end if

 

[ekmekevi]

muzaffer kardeş akıl takılınca bazen takılıyor yardım için sağol