TextBoxların herhangi biri boş olunca da çalışsın

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; Bir Userform üzerinde 6 adet TextBox larım var, aşağıdaki kodla bunları güncelliyorum, ancak Textboxlardan herhangi birine veri girmeyince yani boş olunca işlemi yapmıyor hata veriyor, hata mesajı "Type mismatch" verip, kırmızı satır yanıyor, hata almamak için nasıl bir düzenleme olur. Teşekkür ederim.

Private Sub CommandButton1_Click()
With Sheets("Liste")
If ComboBox1.ListIndex <> -1 Then
aciklama = "Sicili :" & vbTab & vbTab & ComboBox1 & vbLf & vbLf & _
"Adı Soyadı :" & vbTab & TextBox8 & vbLf & vbLf & _
"Personelin Kesintileri Güncellensin mi?"
If MsgBox(aciklama, vbYesNo) = vbYes Then
Satir = ComboBox1.ListIndex + 2
For Y = 1 To 6
.Cells(Satir, Y + 23) = Me("Textbox" & Y) * 1
Next Y
MsgBox "" & ComboBox1 & vbTab & " Sicil Sayılı " & vbLf & vbLf & _
"" & TextBox8 & vbTab & "İsimli Personelin" & vbLf & vbLf & _
"Kesintileri Güncellenmiştir.", vbInformation, "KESİNTİ DURUMU"
Else
MsgBox "İşlem İptal edildi", vbCritical
End If
End If
End With

End Sub

 

[Orion1]

Şöyle denenyiniz.

.Cells(Satir, Y + 23) = Me.controls("Textbox" & Y) * 1

 

[Hacı Bayram ÖZKAN]

Sayın hocam yine olmadı.

 

[Orion1]

*1 bunu kaldırın.

 

[Hacı Bayram ÖZKAN]

Sayın hocam oldu ama * 1 hücreye sayı olarak atması için koymuştum, şuan metin olarak atıyor, sayı olarak atmıyor, metin oluncada toplama işlemini yapmıyor, düzeltile bilir mi?
.Cells(Satir, Y + 23) = Val(Me.controls("Textbox" & Y)) ' bu satıra Val koydum sayıya çevirdi ama boş olan TextBox lara 0,00 yazdı.

 

[Orion1]

Aşağıdakini deneyin.

if isnumeric(me.controls("Textbox" & Y)) then
      .Cells(Satir, Y + 23) = cdbl(Me.controls("Textbox" & Y))
end if

 

[Hacı Bayram ÖZKAN]

Eveeet şimdi oldu çok teşekkür ederim, hocam eline sağlık dua ile kal iyi geceler.

 

[Orion1]

İyi geceler.