....................
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
Kod:
For Each sayfa In Worksheets
If sayfa.Name = me.TextBox1.value Then
MsgBox "Bu isimden bir sayfa bulunmaktadır", vbCritical
Exit sub
End if
Next
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.
Kod:
If TextBox1 = "" Then
MsgBox "...!!!.LÜTFEN ADI SOYADI GİRİNİZ.!!!...", vbInformation
Exit Sub: End If
If ActiveSheet.Name = TextBox1.Text Then
If TextBox1 = "" Then
MsgBox "...!!!.AYNİ İSMİMDE KAYIT VAR. AYNİ İSİMDE İKİ KAYIT OLMAZ.!!!...", vbInformation
Exit Sub: End If
Else
If TextBox1 = "" Then
MsgBox "...!!!.LÜTFEN ADI SOYADI GİRİNİZ.!!!...", vbInformation
Exit Sub: End If
Sheets("ŞABLON").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Unprotect "123"
ActiveSheet.Name = (TextBox1.Text)
ActiveSheet.Range("a1").Value = (TextBox1.Value)
ActiveSheet.Range("c2").Value = (TextBox2.Value)
ActiveSheet.Range("c3").Value = (TextBox3.Value)
ActiveSheet.Range("c4").Value = (TextBox4.Value)
ActiveSheet.Range("c5").Value = (TextBox5.Value)
'Call VeriSayfasinaKaydet
MsgBox ("YENİ KİŞİ EKLENDİ.")
Me.ListBox2.Clear
For A = 4 To Sheets.Count
ListBox2.AddItem Sheets(A).Name
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ığı.