vba error

H

Hazel

Hi All

This has to be easy for all you experts out there -- a userform with 2 text
boxes
entering a number or a zero in Tb2 the following code runs OK on running
the macro. leave it blank and the debugger kicks in is there a way round this
problem.
probably a msg telling them to enter a zero??

ws.Cells(iRow, 10).Value = Val(Trim(Me.Tb1.Value * 0.5)) +
Val(Trim(Me.Tb2.Value * 0.05))
 
D

Dave Peterson

I'd check to make sure that the values in the textboxes were numeric before I
tried to place the new value in the cell:

if isnumeric(me.tb1.value) _
and isnumeric(me.tb2.value) then
ws.cells(irow, ....
else
msgbox "please enter numbers"
end if
 
T

Toppers

try:

ws.Cells(iRow, 10).Value = Val(Me.Tb1.Value) * 0.5 +
Val(Me.Tb2.Value) * 0.05
 
H

Hazel

Hi To you both

Thanks you both turned up trumps, now works whatever the person enters in
the text boxes providing it is numeric -- no entry, macro runs on its merry
sweet way.and still finishes the job.
 
Top