Sutuna Şartlı Kayıt

[seddur]

Merhabalar.Aşağıdaki kod ile userform'dan Kayıt sayfasına benzersiz veri girişi yapıyorum.Yardım istediğim konu Textbox19'daki isme ve textbox2'deki tarihe göre bulunan satırın boşsa textbox3'deki değeri "C" sutununa değilse "D" sutununa orası da boş değilse "E" sutununa aşağıdaki kodlarla birlikte yazdırmak.Teşekkür Ediyorum.
Set s1 = Sheets("Kayıt")
i = Sheets("Kayıt").Cells(Rows.Count, "a").End(3).Row + 1
If WorksheetFunction.CountIfs(s1.Range("A:A"), UserForm4.TextBox19 = 0 Then
Sheets("Kayıt").Cells(i, "a") = UserForm4.TextBox19.Text
Sheets("Kayıt").Cells(i, "b") = UserForm4.TextBox2.Text
Sheets("Kayıt").Cells(i, "c") = UserForm4.TextBox3.Text
Sheets("Kayıt").Cells(i, "D") = UserForm4.TextBox12.Text
Sheets("Kayıt").Cells(i, "E") = UserForm4.TextBox13.Text
End if

 

[seddur]

Kodları yanlış yazmışım doğrusunu tekrar yazıyorum."A" sutununda isimler "B" sutununda tarihler var.
Set s1 = Sheets("Kayıt")
i = Sheets("Kayıt").Cells(Rows.Count, "a").End(3).Row + 1
If WorksheetFunction.CountIfs(s1.Range("A:A"), UserForm4.TextBox19 = 0 Then
Sheets("Kayıt").Cells(i, "a") = UserForm4.TextBox19.Text
Sheets("Kayıt").Cells(i, "b") = UserForm4.TextBox2.Text
Sheets("Kayıt").Cells(i, "c") = UserForm4.TextBox3.Text
Sheets("Kayıt").Cells(i, "j") = UserForm4.TextBox12.Text
Sheets("Kayıt").Cells(i, "k") = UserForm4.TextBox13.Text
End if

 

[seddur]

Aşağıdaki şekilde Aynı textboxdan farklı sutuna kayıt yapıyorum ama C ve D sutunu doluysa E sutununa nasıl kayıt yapacak onu bulamadım.Aşağıdaki kod ile C sutunu doluysa D sutununa kayıt yapıyorum.Ama her ikiside doluysa E sutununa kayıt yapsın istiyorum
set s1 = Sheets("Kayıt")
For X = 1 To s1.Cells(Rows.Count, "a").End(xlUp).Row
If s1.Cells(X, "a").Value = UserForm4.TextBox19.Text And CDate(s1.Cells(X, "b").Value) = CDate(UserForm4.TextBox2.Value) Then
If s1.Cells(X, "c") <> "" Then
s1.Cells(X, 4).Value = UserForm4.TextBox3.Text
GoTo atla
Else
s1.Cells(X, 3).Value = UserForm4.TextBox3.Text
atla:
Sheets("Kayıt").Cells(X, "g") = UserForm4.TextBox12.Text
Sheets("Kayıt").Cells(X, "h") = UserForm4.TextBox13.Text
Sheets("Kayıt").Cells(X, "ı") = UserForm4.TextBox14.Text