user form kaydet hatası

[muzzymania]

selamlar;

USERFORM oluşturmak sıfırdan başlama (yeni başlayanlar) ı takip ettim kendi çalışmamam uyarlamaya çalıştım fakat kaydet butonu nerede hata yapıyorum bilmiyorum ama ilk satıra kaydediyor başlıklar gidiyor ve kaydetmiyor veriyi listtedede görülmüyor, bu konuda yardım edebilirmisiniz?

 

[muzzymania]

selamlar;

USERFORM oluşturmak sıfırdan başlama (yeni başlayanlar) ı takip ettim kendi çalışmamam uyarlamaya çalıştım fakat kaydet butonu nerede hata yapıyorum bilmiyorum ama ilk satıra kaydediyor başlıklar gidiyor ve kaydetmiyor veriyi listtedede görülmüyor, bu konuda yardım edebilirmisiniz?lütfeeeeeeeeeen

 

[Husgvarna]

Merhaba.

"Data" Sayfası "a1" i boş bırakmayın.Mesela "S.No" yazın.

Formun "Kaydet" butonu altındaki kodları aşağıdaki gibi değiştirip deneyin.

 Private Sub CommandButton6_Click()
'KAYDET
    If TextBox2.Text <> "" Then
    
         If TextBox7.Text <> "" Then
 For i = 2 To Sheets("Data").Range("A65536").End(xlUp).Row
               If UCase(Sheets("Data").Range("d" & i).Value) = UCase(TextBox7.Text) And _
          UCase(Sheets("Data").Range("f" & i).Value) = UCase(TextBox2.Text) Then
                    MsgBox "Bu isimde bir kişi zaten kayıtlarda var", vbCritical, "MÜKERRER KAYIT BULUNDU"
                    Exit Sub
                End If
            Next i
   With Sheets("Data")
                  Son_Dolu_Satir = .Range("A65536").End(xlUp).Row
                  Bos_Satir = Son_Dolu_Satir + 1
           .Range("A" & Bos_Satir).Value = _
                   Application.WorksheetFunction.Max(.Range("A:A")) + 1
           .Range("D" & Bos_Satir).Value = TextBox7.Text
           .Range("F" & Bos_Satir).Value = TextBox2.Text
           .Range("G" & Bos_Satir).Value = TextBox6.Text
           .Range("H" & Bos_Satir).Value = TextBox5.Text
           .Range("M" & Bos_Satir).Value = TextBox13.Text
           .Range("N" & Bos_Satir).Value = TextBox14.Text
           .Range("O" & Bos_Satir).Value = TextBox12.Text
           .Range("Q" & Bos_Satir).Value = TextBox17.Text
           .Range("R" & Bos_Satir).Value = TextBox16.Text
           .Range("S" & Bos_Satir).Value = TextBox15.Text
           .Range("T" & Bos_Satir).Value = TextBox10.Text
           .Range("U" & Bos_Satir).Value = TextBox8.Text
           .Range("V" & Bos_Satir).Value = TextBox9.Text
           .Range("B" & Bos_Satir).Value = ComboBox1.Text
           .Range("C" & Bos_Satir).Value = ComboBox5.Text
           .Range("E" & Bos_Satir).Value = ComboBox2.Text
           .Range("I" & Bos_Satir).Value = ComboBox9.Text
            .Range("J" & Bos_Satir).Value = ComboBox8.Text
            .Range("K" & Bos_Satir).Value = ComboBox10.Text
            .Range("L" & Bos_Satir).Value = ComboBox3.Text
           .Range("P" & Bos_Satir).Value = ComboBox11.Text
           .Range("Z" & Bos_Satir).Value = ComboBox12.Text
          .Range("AA" & Bos_Satir).Value = ComboBox13.Text
  End With
  ListBox1.RowSource = "Data!B2:f" & Sheets("Data").Range("A65536").End(xlUp).Row
                Else
   MsgBox "İsim ve Müşteri No Girmeniz gerekiyor"
   End If
Else
 MsgBox "İsim ve Müşteri No Girmeniz gerekiyor"
 End If
End Sub

 

[muzzymania]

çok teşekkür ederim eğer cvp vermeseydiniz 1 haftalık emeğim bşa gidecekti allah razı olsun , sonradan eklediğim değiştirmelerle alakalı iiş soruns sanıyorum;?

 

[Husgvarna]

çok teşekkür ederim eğer cvp vermeseydiniz 1 haftalık emeğim bşa gidecekti allah razı olsun , sonradan eklediğim değiştirmelerle alakalı iiş soruns sanıyorum;?

Rica ederim kolay gelsin.