Merhaba Arkadaş eklediğim uygulamada.

UserForm4 de Adı Soyadı TextBox1 İsim yazıp yeni kişi ekle butonu ile yeni bir exel sayfası oluşturuyorum. Ayni isimde sayfa varsa hata veriyor. Hatadan sonra ŞABLON (1), ŞABLON (2) şeklinde sayfa ekliyor. 

Benim istediğim adı soyadı yazdığımızda ayni isimde bir Excel sayfası varsa uyarı versin Excel sayfası oluşturmasın. Ayni isim de Excel sayfası yoksa Excel sayfası oluştursun.

Ben yapmaya çalıştım olmadı. 
Bu konuda yardımlarınıza ihtiyacım var.

....................

If ActiveSheet.Name = TextBox1.Value Then



MsgBox "...!!!.AYNİ İSMİMDE KAYIT VAR. AYNİ İSİMDE İKİ KAYIT OLMAZ.!!!...", vbInformation

If TextBox1 = "" Then

Exit Sub: End If

............
Kodunuzu bu şekilde dener misiniz?

Denemem mümkün olmadı ama aşağıdaki kod işinize yarayabilir

 if ActiveWorkbook.Sheets(textbox1).Name <> "" then

        msgbox "bu isimde sayfa var"

        Exit sub

        End if

---

Birde alttaki kod vardı kendinize göre ayarlayabilirsiniz.

Sub Sayfabul()



Dim sayfaZafer As String



    sayfaZafer = "zafer"

    

    If Sayfaad(sayfaZafer) = True Then

        MsgBox "VAR"

    Else

        MsgBox "YOK"

    End If

    



'    If Sayfaad(sayfaZafer) = False Then

'        Sheets.Add(After:=Sheets(Sheets.Count)).Name = sayfaZafer

'        ThisWorkbook.Sheets("Sayfa1").Select

'    End If

    

End Sub



Function Sayfaad(syfad As String) As Boolean

    Dim ws As Worksheet

    On Error Resume Next

    Set ws = Worksheets(syfad)

    If Not ws Is Nothing Then Sayfaad = True

End Function

Hocalarım hepinize teşekkürler.

Eklediğiniz kodları uyguladım hepsinde hata veriyor. Uygulamada aşağıdaki kod var. Eklediğiniz kodları aşağıdaki koda nasıl ekleyebilirim. 

Sadece kod eklemek yerine örnek ekleseydiniz şimdiye kadar çözülmüştü bence tabii açıklamada eklemiş olsaydınız daha yüksek olasılıktı çözülme olasılığı.