Sıfıra bölme hatası

[cenga03]

Merhaba Aşağıdaki kod ile iki farklı textbox taki değerleri birbirine bölüyorum. Ancak kazaren bölen "0" yada boş bırakılırsa sıfıra bölme hatası veriyor. Bu hatayı engellemek için birçok kod denedim ama başarılı olamadım. Yardımlarınız için şimdiden teşekkürler.

Private Sub Textbox98_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox110 = Val(TextBox98.Value) / Val(TextBox86.Value)
End Sub

 

[Orion1]

Merhaba Aşağıdaki kod ile iki farklı textbox taki değerleri birbirine bölüyorum. Ancak kazaren bölen "0" yada boş bırakılırsa sıfıra bölme hatası veriyor. Bu hatayı engellemek için birçok kod denedim ama başarılı olamadım. Yardımlarınız için şimdiden teşekkürler.

Private Sub Textbox98_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox110 = Val(TextBox98.Value) / Val(TextBox86.Value)
End Sub

Böyle deneyin.

Private Sub Textbox98_Exit(ByVal Cancel As MSForms.ReturnBoolean)
[B][COLOR="Red"]on error resume next[/COLOR][/B]
[B][COLOR="Red"]textbox110.value =0[/COLOR][/B]
TextBox110 = Val(TextBox98.Value) / Val(TextBox86.Value)
End Sub

 

[cenga03]

Böyle deneyin.

Private Sub Textbox98_Exit(ByVal Cancel As MSForms.ReturnBoolean)
[B][COLOR="Red"]on error resume next[/COLOR][/B]
[B][COLOR="Red"]textbox110.value =0[/COLOR][/B]
TextBox110 = Val(TextBox98.Value) / Val(TextBox86.Value)
End Sub

Çok teşekkürler sorun çözüldü.