excel vba sekme problemi

ekmekevi

Altın Üye
Katılım
9 Kasım 2020
Mesajlar
39
Excel Vers. ve Dili
365 türkce
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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Kod:
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

Altın Üye
Katılım
9 Kasım 2020
Mesajlar
39
Excel Vers. ve Dili
365 türkce
muzaffer kardeş akıl takılınca bazen takılıyor yardım için sağol
 
Üst