Cdbl hatası

[BYSERTTAS]

Kıymetli hocalarım..
Aşağıdaki Kodda TextBox32 den TextBox62 ye kadar olanlarda eğer arada boş textbox varsa işlem yapmıyor. TextBox Boş olsa bile sayfaya nasıl Rakam Olarak Kayıt Yaptırabilirim. yardımcı olursanız sevinirim.
Dim aySayfa As Worksheet
On Error Resume Next
Set aySayfa = ThisWorkbook.Sheets(ComboBox2.Value)
On Error GoTo 0

If Not aySayfa Is Nothing Then
SonSatır = WorksheetFunction.CountA(aySayfa.Range("A:A")) + 1

aySayfa.Cells(SonSatır, 1) = CDbl(KayıtId)
aySayfa.Cells(SonSatır, 2) = KımlıkNo
aySayfa.Cells(SonSatır, 3) = La4_adı
aySayfa.Cells(SonSatır, 4) = La4_ünvanı
aySayfa.Cells(SonSatır, 5) = La4_iban
aySayfa.Cells(SonSatır, 6) = CDbl(ComboBox1)
aySayfa.Cells(SonSatır, 7) = ComboBox2
aySayfa.Cells(SonSatır, 8) = CDbl(TextBox32)
aySayfa.Cells(SonSatır, 9) = CDbl(TextBox33)
aySayfa.Cells(SonSatır, 10) = CDbl(TextBox34)
aySayfa.Cells(SonSatır, 11) = CDbl(TextBox35)
aySayfa.Cells(SonSatır, 12) = CDbl(TextBox36)
aySayfa.Cells(SonSatır, 13) = CDbl(TextBox37)
aySayfa.Cells(SonSatır, 14) = CDbl(TextBox38)
aySayfa.Cells(SonSatır, 15) = CDbl(TextBox39)
aySayfa.Cells(SonSatır, 16) = CDbl(TextBox40)
aySayfa.Cells(SonSatır, 17) = CDbl(TextBox41)
aySayfa.Cells(SonSatır, 18) = CDbl(TextBox42)
aySayfa.Cells(SonSatır, 19) = CDbl(TextBox43)
aySayfa.Cells(SonSatır, 20) = CDbl(TextBox44)
aySayfa.Cells(SonSatır, 21) = CDbl(TextBox45)
aySayfa.Cells(SonSatır, 22) = CDbl(TextBox46)
aySayfa.Cells(SonSatır, 23) = CDbl(TextBox47)
aySayfa.Cells(SonSatır, 24) = CDbl(TextBox48)
aySayfa.Cells(SonSatır, 25) = CDbl(TextBox49)
aySayfa.Cells(SonSatır, 26) = CDbl(TextBox50)
aySayfa.Cells(SonSatır, 27) = CDbl(TextBox51)
aySayfa.Cells(SonSatır, 28) = CDbl(TextBox52)
aySayfa.Cells(SonSatır, 29) = CDbl(TextBox53)
aySayfa.Cells(SonSatır, 30) = CDbl(TextBox54)
aySayfa.Cells(SonSatır, 31) = CDbl(TextBox55)

aySayfa.Cells(SonSatır, 32) = CDbl(TextBox56)
aySayfa.Cells(SonSatır, 33) = CDbl(TextBox57)
aySayfa.Cells(SonSatır, 34) = CDbl(TextBox58)
aySayfa.Cells(SonSatır, 35) = CDbl(TextBox59)
aySayfa.Cells(SonSatır, 36) = CDbl(TextBox60)
aySayfa.Cells(SonSatır, 37) = CDbl(TextBox61)
aySayfa.Cells(SonSatır, 38) = CDbl(TextBox62)
aySayfa.Cells(SonSatır, 39) = CDbl(ToplamSaat)
aySayfa.Cells(SonSatır, 40) = CDbl(DönemSaat)
aySayfa.Cells(SonSatır, 41) = CDbl(FazlaMesai)
Else
MsgBox "Seçilen ayın sayfası bulunamadı.", vbExclamation
End If

 

[Korhan Ayhan]

Merhaba,

Bir satır için örnek;

aySayfa.Cells(SonSatır, 8) = IIf(TextBox32="", 0 , CDbl(TextBox32))

Diğerlerini siz halledersiniz..