userformda textbox kutusu boş olunca hata veriyor.

[fedeal]

Sheets("HESAP").Range("H" & Bos_Satir).Value = TextBox35.Text - (TextBox33.Text * Sheets("HESAP").Range("B2") / 100)

TextBox35.Text kutusu boş olunca hata veriyor sayı olunca işlem yapıyor hata vermeden bu formülden sonuç almak mümkünmü

 

[Skorpiyon]

Sayın fedeal,

Aşağıdaki şekilde bir dener misiniz

if textbox35 = "" then
msgbox "Textbox35 boş"
goto 10
Else
Sheets("HESAP").Range("H" & Bos_Satir).Value = TextBox35.Text - (TextBox33.Text * Sheets("HESAP").Range("B2") / 100)
end if
10

 

[Skorpiyon]

Veya bu kodun üstüne,
On Error Resume Next
yazarsanız da olur.

 

[fedeal]

çok teşekkürler hocam

 

[Ayhan Ercan]

Merhaba

Hem hata vermeyecek hemde formülden sonuç almak için,
Aşağıdaki gibi deneyiniz...

TextBox35 - [COLOR=blue][B](Val(TextBox33) * Sheets("HESAP").Range("B2") / 100)[/B][/COLOR]