Kitap içerisinde Sayfa ismi kontrolu

[cellswhite]

Selamlar,

Aşağıdaki makro içerine ne yazarsak sayfa açılırken "frekans sheetı olmadıgından dolayı dosya açılamıyor" diye bir ekleme yapmalıyım.

destek verebilirmisiniz.

Auto_Open()
..kod
End Sub

 

[uzmanamele]

merhaba

bunun gibi bir kod işinizi görür mü?

Sub SayfaVar_mı()
For i = 1 To Worksheets.Count
If Sheets(i).Name = "ana_sayfa" Then
MsgBox "hoşgeldiniz"
Exit Sub
End If
Next
MsgBox "ana_sayfa yok!"
End Sub

 

[cellswhite]

Merhaba,

Hızlı dönüş için teşekkurler.

İyi çalışmalar.

 

[Mehmet Şahin]

Merhaba,
Geç kaldım galiba ama alternatif olabilir. İyi çalışmalar.

Sub Auto_Open()
If Not sh_kontrol("frekans") Then
MsgBox "Frekans Sayfası Yok"
Else
MsgBox "Frekans Sayfası Var"
End If
End Sub
Function sh_kontrol(sh_ad As String) As Boolean
    On Error Resume Next
    sh_kontrol = CBool(Len(Worksheets(sh_ad).Name) > 0)
End Function