Kod yardımı

[mkarakas_58]

Private Sub CommandButton1_Click()
    Dim ayni, Satır As Long, say As Byte
    If TextBox2.Text = Empty Then
    MsgBox "ADI SOYADI GİRMEDEN KAYIT YAPAMAZSINIZ!", vbExclamation, "": Exit Sub
    End If
    Worksheets("HAVUZ").Select
    For Each ayni In Range("D2:D65536")
        If TextBox2.Value = ayni Then
        MsgBox "BU KİŞİ DAHA ÖNCE TANIMLANMIŞ !!!", , "DİKKAT MÜKERRER AD SOYAD TANIMI"
        Exit Sub
        End If
        Next ayni
    Satır = Range("B65536").End(3).Row + 1
    
    Cells(Satır, "B") = TextBox3.Text
    Cells(Satır, "C") = TextBox1.Value
    Cells(Satır, "D") = TextBox2.Text
    Cells(Satır, "E") = TextBox4.Text
    Cells(Satır, "F") = TextBox5.Text
    Cells(Satır, "G") = TextBox6.Text
    Cells(Satır, "H") = TextBox7.Text
    Cells(Satır, "I") = TextBox10.Text
    Cells(Satır, "J") = TextBox8.Text
    Cells(Satır, "K") = TextBox9.Text
    Cells(Satır, "L") = TextBox11.Text
    Cells.EntireColumn.AutoFit
    
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Private Sub UserForm_Click()

End Sub

Arkadaşlar bu kodda TEXTBOX2.TEXT e girilen aynı isimler varsa kayıt almamakta ama ben isimlere göre değilde TEXTBOX1 girdiğim kimlik no ile kontrollunu istiyorum. Yani TEXTBOX1 e girilen kimlik no ile daha önce kayır varsa uyarı versin ve kimlik no girmeden kayıt yapmasın uyarı vermesini istiyorum... Yardımcı olursanız çok sevinirim...

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Private Sub CommandButton1_Click()
    Dim ayni, Satır As Long, say As Byte
    If TextBox1.Text = Empty Then
    MsgBox "TC.KİMLİK NO GİRMEDEN KAYIT YAPAMAZSINIZ!", vbExclamation, "": Exit Sub
    End If
    Worksheets("HAVUZ").Select
    For Each ayni In Range("C4:C65536")
        If Val(TextBox1.Value) = ayni Then
        MsgBox "BU KİŞİ DAHA ÖNCE TANIMLANMIŞ !!!", , "DİKKAT MÜKERRER TC KİMLİK NO TANIMI"
        Exit Sub
        End If
        Next ayni
    Satır = Range("B65536").End(3).Row + 1
    
    Cells(Satır, "B") = TextBox3.Text
    Cells(Satır, "C") = TextBox1.Value
    Cells(Satır, "D") = TextBox2.Text
    Cells(Satır, "E") = TextBox4.Text
    Cells(Satır, "F") = TextBox5.Text
    Cells(Satır, "G") = TextBox6.Text
    Cells(Satır, "H") = TextBox7.Text
    Cells(Satır, "I") = TextBox10.Text
    Cells(Satır, "J") = TextBox8.Text
    Cells(Satır, "K") = TextBox9.Text
    Cells(Satır, "L") = TextBox11.Text
    Cells.EntireColumn.AutoFit
End Sub

 

[mkarakas_58]

Evet istediğim oldu teşekkür ederim hocam ama şimdide bazen yeni kayıtta diğer eski kayıtın üstüne yazıyor. Ayrıca kaydet dediğimde exceli kasıyor...

 

[dEdE]

...bazen yeni kayıtta diğer eski kayıtın üstüne yazıyor. Ayrıca kaydet dediğimde exceli kasıyor...

Merhaba,
Kodunuzda kayıt yapılacak satır kişisel durum satırındaki veriden yola çıkılarak bulunmaktadır.

[B]Satır = Range("B65536").End(3).Row + 1 [/B]

Veri girerken kişisel durumu girmezseniz son kaydın üstüne yazar. Ben bu satırı değiştirmedim. Kimlik no satırı zorunlu olduğu için bunu kullanmak daha anlamlı olur. Bu durumda yukarıdaki satırı

Satır = Range("[B]C[/B]65536").End(3).Row + 1

şeklinde değiştirmek yeterlidir. Yaptığım değişiklik excelin kasılmasına neden olmaz. Daha doğrusu önceki kodlardan bir farkı yok.

 

[mkarakas_58]

Tamam ustam çok saol sorun dediğiniz gibiymiş ilginiz için teşekk. İyi gecelerrrr