Kaydet butonu yardım

[vimpir]

Private Sub CommandButton1_Click()
If mpbs.Value <> "" Then
If mpbt.Value <> "" Then
If TextBox1.Text <> "" Then
If TextBox2.Text <> "" Then
If TextBox3.Text <> "" Then
If ComboBox1.Text <> "" Then
If ComboBox2.Text <> "" Then
If TextBox4.Text <> "" Then
If TextBox5.Text <> "" Then
If ComboBox3.Text <> "" Then
If ComboBox4.Text <> "" Then
If ComboBox5.Text <> "" Then
If ComboBox6.Text <> "" Then
If TextBox6.Text <> "" Then
If TextBox7.Text <> "" Then
If TextBox8.Text <> "" Then
If TextBox9.Text <> "" Then
If TextBox10.Text <> "" Then
If ComboBox7.Text <> "" Then
If TextBox11.Text <> "" Then
If mbt.Value <> "" Then
If TextBox12.Text <> "" Then
If TextBox13.Text <> "" Then
If TextBox14.Text <> "" Then
If TextBox15.Text <> "" Then
If TextBox16.Text <> "" Then
If TextBox31.Text <> "" Then

If Yeni_mi = True Then

For i = 2 To Sheets("KAYIT").Range("A65536").End(xlUp).Row
If UCase(Sheets("KAYIT").Range("C" & i).Value) = UCase(ComboBox1.Text) And _
UCase(Sheets("KAYIT").Range("D" & i).Value) = UCase(TextBox3.Text) Then
MsgBox "Mükerrer Ürün Girişi Olabilir Kontrol Et!!", vbYesNo, "MÜKERRER KAYIT BULUNDU"
End If
Next i

With Sheets("KAYIT")
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("A" & Bos_Satir).Value = mpbt.Value
.Range("B" & Bos_Satir).Value = TextBox1.Text
.Range("C" & Bos_Satir).Value = TextBox2.Text
.Range("D" & Bos_Satir).Value = TextBox3.Text
.Range("E" & Bos_Satir).Value = ComboBox1.Text
.Range("F" & Bos_Satir).Value = ComboBox2.Text
.Range("G" & Bos_Satir).Value = TextBox4.Text
.Range("H" & Bos_Satir).Value = TextBox5.Text
.Range("I" & Bos_Satir).Value = ComboBox3.Text
.Range("J" & Bos_Satir).Value = ComboBox4.Text
.Range("K" & Bos_Satir).Value = ComboBox5.Text
.Range("L" & Bos_Satir).Value = ComboBox6.Text
.Range("M" & Bos_Satir).Value = TextBox6.Text
.Range("N" & Bos_Satir).Value = TextBox7.Text
.Range("O" & Bos_Satir).Value = TextBox8.Text
.Range("P" & Bos_Satir).Value = TextBox9.Text
.Range("Q" & Bos_Satir).Value = TextBox10.Text
.Range("R" & Bos_Satir).Value = ComboBox7.Text
.Range("S" & Bos_Satir).Value = TextBox11.Text
.Range("T" & Bos_Satir).Value = mbt.Value
.Range("U" & Bos_Satir).Value = TextBox12.Text
.Range("V" & Bos_Satir).Value = TextBox13.Text
.Range("W" & Bos_Satir).Value = TextBox14.Text
.Range("X" & Bos_Satir).Value = TextBox15.Text
.Range("Y" & Bos_Satir).Value = TextBox16.Text
.Range("Z" & Bos_Satir).Value = TextBox31.Text


End With

Else
Degistirilecek_Satir = ListBox1.ListIndex + 2
With Sheets("KAYIT")

.Range("A" & Bos_Satir).Value = mpbt.Value
.Range("B" & Bos_Satir).Value = TextBox1.Text
.Range("C" & Bos_Satir).Value = TextBox2.Text
.Range("D" & Bos_Satir).Value = TextBox3.Text
.Range("E" & Bos_Satir).Value = ComboBox1.Text
.Range("F" & Bos_Satir).Value = ComboBox2.Text
.Range("G" & Bos_Satir).Value = TextBox4.Text
.Range("H" & Bos_Satir).Value = TextBox5.Text
.Range("I" & Bos_Satir).Value = ComboBox3.Text
.Range("J" & Bos_Satir).Value = ComboBox4.Text
.Range("K" & Bos_Satir).Value = ComboBox5.Text
.Range("L" & Bos_Satir).Value = ComboBox6.Text
.Range("M" & Bos_Satir).Value = TextBox6.Text
.Range("N" & Bos_Satir).Value = TextBox7.Text
.Range("O" & Bos_Satir).Value = TextBox8.Text
.Range("P" & Bos_Satir).Value = TextBox9.Text
.Range("Q" & Bos_Satir).Value = TextBox10.Text
.Range("R" & Bos_Satir).Value = ComboBox7.Text
.Range("S" & Bos_Satir).Value = TextBox11.Text
.Range("T" & Bos_Satir).Value = mbt.Value
.Range("U" & Bos_Satir).Value = TextBox12.Text
.Range("V" & Bos_Satir).Value = TextBox13.Text
.Range("W" & Bos_Satir).Value = TextBox14.Text
.Range("X" & Bos_Satir).Value = TextBox15.Text
.Range("Y" & Bos_Satir).Value = TextBox16.Text
.Range("Z" & Bos_Satir).Value = TextBox31.Text

End With
End If
ListBox1.RowSource = "KAYIT!B2:k" & Sheets("KAYIT").Range("A65536").End(xlUp).Row
Else
MsgBox "POLİÇE NUMARASI GİRMEDİNİZ"
End If

End Sub


ARKADAŞLAR BİR TÜRLÜ YAPAMADIM YARDIMCI OLURMUSUNUZ...