AccessTr.neT
Sayfaya İsim Vermek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sayfaya İsim Vermek (/konu-sayfaya-isim-vermek.html)

Sayfalar: 1 2 3 4 5


Sayfaya İsim Vermek - m_demir - 30/04/2020

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.


RE: Sayfaya İsim Vermek - SeferŞANLI - 30/04/2020

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

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?


RE: Sayfaya İsim Vermek - berduş - 30/04/2020

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



RE: Sayfaya İsim Vermek - feraz - 30/04/2020

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



RE: Sayfaya İsim Vermek - m_demir - 30/04/2020

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




RE: Sayfaya İsim Vermek - feraz - 30/04/2020

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ığı.