error writing to cell if a numeric text box is empty

[Roberta.Walker]

I have 4 text boxes which may or may not have a numeric value entered. It needs to be a minus so I have formatted as CDbl() as it is numeric

Code works fine if a number is put in every box but fails if one is left empty. I have tried using an If statement

If Txt1.value = 0 Then
Range("B5").Value = 0
Else
Range("B5").Value = CDbl(Txt1.Value)*-1
End If

If Txt2.Value = 0 Then
Range("C5"").Value = 0
Else
Range("C5").Value = CDbl(Txt2.Value)*-1
End If

I have also tried Txt1.Value = " " and IsNull(Txt1.Value).

All to no avail so how can I get the code to work with random empty text boxes (putting a default of 0 in the text box in makes the form look clumsy.)

[gmr4evr1]

Try

Please Login or Register  to view this content.

When you posted

I have also tried Txt1.Value = " " and IsNull(Txt1.Value).

it looks as if there is a space between the quotes. You want it to be quotes with a space or anything else in between for it to represent a blank.