Textboxlari Kaydetme

[osmanfenerli1907]

MERHABALAR
Ben userform1deki textbox1 ve textbox2 yi sayfa1e kayıt yaptırıyorum.Ancak textbox1 deki isimden sayfa1in A sutununda aynısı var ise Bir uyarı versin kayıt yapmasın istiyorum.
teşekkürler

 

[zafer]

Merhaba

Aşağıdaki kodları inceleyiniz.
Butona ekleyiniz.

Private Sub CommandButton1_Click()
SON = Sheets("Sayfa1").Cells(65536, 1).End(xlUp).Row
For i = 1 To SON
If Cells(i, 1) = TextBox1 Then GoTo bit
Next

çalışacak kodlarınız..................
.................

Exit Sub
bit:
MsgBox "Aynı isimden var"
End Sub

 

[osmanfenerli1907]

SY HOCAM ben şu kodları kullanıyorum:
Set S1 = Sheets("ŞİFRE")
If ADI = "" Or KULLANICIADI = "" Then
MsgBox "EKSİK BİLGİ GİRİŞİ TESBİT EDİLMİŞTİR !", vbExclamation, "DİKKAT !"
KULLANICIADI.SetFocus
Exit Sub
End If
If KULLANICIADI <> "" And ADI <> "" Then
SATIR = S1.[A65536].End(3).Row + 1
S1.Cells(SATIR, 1) = KULLANICIADI
S1.Cells(SATIR, 2) = ADI
MsgBox "İŞLEM TAMAMLANDI.", vbMsgBoxRight, " !"
Sheets.Add After:=Sheets(Worksheets.Count)
ActiveSheet.Name = KULLANICIADI.Text & "-" & ADI.Text
End If
S1.Select

BU KODLARA yerleştirebilirmisiniz?

 

[zafer]

Merhaba

Set S1 = Sheets("ŞİFRE")
If ADI = "" Or KULLANICIADI = "" Then
MsgBox "EKSİK BİLGİ GİRİŞİ TESBİT EDİLMİŞTİR !", vbExclamation, "DİKKAT !"
KULLANICIADI.SetFocus
Exit Sub
End If
If KULLANICIADI <> "" And ADI <> "" Then
SATIR = S1.[A65536].End(3).Row + 1

For i = 1 To SATIR
If Cells(i, 1) = TextBox1 Then GoTo bit
Next

S1.Cells(SATIR, 1) = KULLANICIADI
S1.Cells(SATIR, 2) = ADI
MsgBox "İŞLEM TAMAMLANDI.", vbMsgBoxRight, " !"
Sheets.Add After:=Sheets(Worksheets.Count)
ActiveSheet.Name = KULLANICIADI.Text & "-" & ADI.Text
End If
S1.Select

Exit Sub
bit:
MsgBox "Aynı isimden var"

 

[osmanfenerli1907]

Sy hocam sizin dediğiniz gibi yapıyorum ama hiçbir kayıt yapmıyor herzaman aynı kayıt var çıkıyor.Yardımcı olabilirmisiniz?
TEŞEKKÜRLER