Automatic zeros for blank Userform Textboxes

[Big Lar]

My users can tab through the UserForm without entering a number. That's fine until the worksheet is populated where blank values in a cell produces some odd results.

So...I need to insure that every TextBox value is => 0. And since my users are used to tabbing through unused textboxes...

How can I make every blank Textbox equal to 0 on CommandButton click?

 

[diddi]

try something like this

Sub CommandButton1_click
    Dim ctrl as MSForms.Control
    for each ctrl in Me.controls
        if typeof ctrl is msforms.textbox then
            if ctrl.value="" then ctrl.value="0"
         end if
     next ctrl
end sub

 

[Big Lar]

Thanks diddi...

That first bit did the trick.

I'm still struggling with the second code...