TextBox boşsa Run Time error 13 hatası veriyor

[bedri41]

Aşağıdaki makroda TextBox15 boş olduğunda kırmızı bölümde hata veriyor TextBox15 e 0 (sıfır) girerek geçmek istediğimde Combobox4 ile yazdırdığım yeri siliyor.
Yardımcı olabilirmisiniz ?

Private Sub ÇIKIŞ_Click()
Unload UserForm1
End Sub

Private Sub KAYDET_Click()

If ComboBox2.Value = "" Or ComboBox4.Value = "" Or ComboBox6.Value = "" Or TextBox4.Value = "" Then
MsgBox "EKSİK BİLGİ GİRİŞİ YAPTINIZ LÜTFEN KONTROL EDİN", vbInformation
Exit Sub
End If

With Sheets("GIRIS")
Satır = .Range("A65536").End(3).Row + 1
Set Bul1 = .Rows("1:1").Find(ComboBox6.Value)
Set Bul2 = .Rows("1:1").Find(ComboBox8.Value)
Sütun1 = Bul1.Column
Sütun2 = Bul2.Column
.Cells(Satır, 1) = Format(TextBox1, "dd.mm.yyyy")
.Cells(Satır, 2) = ComboBox2
.Cells(Satır, 3) = ComboBox3
.Cells(Satır, 4) = ComboBox4
.Cells(Satır, 6) = (TextBox2.Value)
.Cells(Satır, 5) = ComboBox5
.Cells(Satır, Sütun1) = CDbl(TextBox4.Value)
.Cells(Satır, 25) = ComboBox7
.Cells(Satır, 26) = Format(TextBox8, "dd.mm.yyyy")
.Cells(Satır, 29) = TextBox9
.Cells(Satır, 27) = TextBox13
.Cells(Satır, 28) = TextBox14
.Cells(Satır, Sütun2) = CDbl(TextBox15.Value)
.Cells.EntireColumn.AutoFit
Set Bul = Nothing
End With

If TextBox4.Value < 0 Or TextBox15.Value < 0 Then
MsgBox "DURUM KUTUSUNUN ve PAX KUTUSUNUN BOŞ OLMASI GEREKİR", vbInformation
Exit Sub
End If

End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = Format(Date - 1, "DD.MM.YYYY")
ComboBox2.RowSource = "TANIMLAR!A2:A" & [TANIMLAR!A65536].End(3).Row
ComboBox3.RowSource = "TANIMLAR!B2:B" & [TANIMLAR!B65536].End(3).Row
ComboBox4.RowSource = "TANIMLAR!C2:C" & [TANIMLAR!C65536].End(3).Row
ComboBox5.RowSource = "TANIMLAR!D2" & [TANIMLAR!D65536].End(3).Row
ComboBox6.RowSource = "TANIMLAR!E2:E" & [TANIMLAR!E65536].End(3).Row
ComboBox7.RowSource = "TANIMLAR!F2:F" & [TANIMLAR!F65536].End(3).Row
ComboBox8.RowSource = "TANIMLAR!G2:G" & [TANIMLAR!G65536].End(3).Row
End Sub

 

[Orion1]

on error resume next

bunu deneyin.

 

[bedri41]

Sn. Gizlen çok teşekkür ederim. Sorun çözüldü.

 

[Orion1]

Sn. Gizlen çok teşekkür ederim. Sorun çözüldü.

Rica ederim.
Yalnız bu kodu mümkün olduğunca kullanmamaya bakın.
iyi çalışmalar.