Don’t show zeroes in textboxes VBA userform

[Celticfc]

Hi,

My userform has 36 textboxes that loads values from cells.

Is there a code where if any of the textboxes is 0, it should be blank and not show 0.

It’s because when half the textboxes are 0, it looks like a mine field etc.

Thank you.

 

[Celticfc]

Why would one populate a TextBox and then undo it?
I thought that something like Norie suggested in Post 4 would be the way to go. 1 time instead of twice.

My textboxes get populated from the worksheet. On average, only 20% are 0 but they show 0’s instead of blanks. I just don’t want to see 0’s in my textboxes - I need something similar to worksheet where you can hide 0’s from view.

 

[Yongle]

How about...

Dim cCont As Control
For Each cCont In Me.Controls
    If TypeName(cCont) = "TextBox" And cCont.Value = 0 Then cCont.Value = ""
Next

 

[jolivanes]

Same as Yongle but I had it ready. Would be a shame to let it go to waste!

Private Sub CommandButton1_Click()
Dim ctrl As Control
For Each ctrl In Me.Controls
    If TypeName(ctrl) = "TextBox" Then
        If ctrl.Value = 0 Then
            ctrl.Value = ""
        End If
    End If
Next ctrl
End Sub

 

[Celticfc]

How about...

Dim cCont As Control
For Each cCont In Me.Controls
    If TypeName(cCont) = "TextBox" And cCont.Value = 0 Then cCont.Value = ""
Next

Thanks! Worked well (applied to activate event). How can I apply this code to every single userform that I have, can a public code do this?

 

[Yongle]

Worked well (applied to activate event). How can I apply this code to every single userform that I have

Goes in Standard module

Sub [B]ClearZeros[/B](UF As UserForm)
    Dim cCont As Control
    For Each cCont In UF.Controls
        If TypeName(cCont) = "TextBox" And cCont.Value = 0 Then cCont.Value = ""
    Next
End Sub

And call it like this from your UserForm Code

Private Sub UserForm_[COLOR=#ff0000]Activate[/COLOR]()

   [I][COLOR=#000080]rest of your code.......
[/COLOR][/I]
   Call [B]ClearZeros[/B](Me)

End Sub