Kayıt İşlemi

[Ercan6321]

Merhabalar. Excel de kayıt işlemi yaparken textbox lar dolu olacak ve seçili hücre boş ise kayıt işlemi yapılacak. diğer durumlarda kesinlikle kayıt işlemi yapılamayacak şekilde bir kayit formu hazırlamak istiyorum. Yardımlarınızı bekliyorum. Şimdiden Teşekkur ederim.

 

[AdemCan]

Merhaba kayıt işlemi için örnek kod.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
    If TextBox1 <> "" And TextBox2 <> "" _
       And (OptionButton1.Value = True Or OptionButton2.Value = True _
       Or OptionButton3.Value = True Or OptionButton4.Value = True Or OptionButton5.Value = True) _
       And ActiveCell.Value = "" Then
            If Len(TextBox1.Value) = 11 Then
                tc = WorksheetFunction.CountIf(Sayfa1.Range("B:B"), TextBox1.Value)
                If tc = 0 Then
                    ActiveCell.Value = TextBox1.Value
                    ActiveCell.Offset(0, 2).Value = TextBox2.Value
                    MsgBox "Kayıt işlemi tamamlandı.", vbInformation, ""
                    TextBox1.Value = "": TextBox2.Value = ""
                Else
                    MsgBox TextBox1.Value & " T.C. Kimlik Numaralı kişi kayıtlı.", vbInformation, ""
                    Exit Sub
                End If
            Else
                MsgBox "Kayıt işlemi başarısız." & vbNewLine & "-T.C. Kimlik Numarası 11 haneli olmalıdır.", vbExclamation, ""
                Exit Sub
            End If
        Else
            MsgBox "Kayıt işlemi başarısız." & vbNewLine & "- T.C. No ya da Adı Soyadı boş olabilir." & vbNewLine & "-Sıra No seçilmemiş olabilir." & vbNewLine & "-Seçilen sıra no dolu olabilir.", vbExclamation, ""
    End If
Application.ScreenUpdating = True
End Sub

 

[Ercan6321]

Çok teşekkür ederim

 

[AdemCan]

Rica ederim.