Varolan sayfa adını tekrar kullanmayı engelleme.

[Mayhart]

Arkadaşlar, yaptığım küçük uygulama, bir listeden seçilen hisse senedi adı ile yeni sayfa oluşturuyor ve içine bazı bilgiler yazıyor.

Yapamadığım şey ise şu;
eğer listeden seçilen isim ile daha önce sayfa açılmış ise, sadece bir uyarı verip uygulamanın sonlanması.

Yardımcı olacaklara şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyin.

Sub SAYFA_VARMI()
    Dim Sayfa As Worksheet
    
    On Error Resume Next
    Set Sayfa = Sheets("Sayfa5")
    On Error GoTo 0
        
    If Not Sayfa Is Nothing Then
        MsgBox "Sayfa var!"
    Else
        MsgBox "Sayfa yok!"
    End If
End Sub

 

[Mayhart]

Tam benim istediğim gibi. Çok teşekkür ederim. Ellerinize sağlık.