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.

 

[Norie]

How are you populating the textboxes?

 

[Celticfc]

How are you populating the textboxes?

I.e.

Userform1.textbox1.value = range (“A1”). Value

 

[Norie]

Then try this.

If Range("A1").Value <> "" Then
    UserForm1.TextBox1.Value = Range("A1").Value
End If

 

[Celticfc]

Then try this.

If Range("A1").Value <> "" Then
    UserForm1.TextBox1.Value = Range("A1").Value
End If

Thank you very much but is there a way to loop through each textbox and apply the same criteria? Or do i have to repeat this for each textbox?

I was thinking if there is a way to apply the code within the userform where if a textbox is 0, then it should be blank

 

[Norie]

How are your textboxes named?

 

[Celticfc]

How are your textboxes named?

Randomly, i.e. Channel1, CCTV2, Driving23 etc.

 

[Norie]

If they were consistently named then it would be straightforward to loop through them but if the names are random the only real way to do it would be to put all the textbox names in a loop and go through that.

Dim arrTextBoxes As Variant
Dim I As Long

    arrTextBoxes = Array("Channel1", "CCTV2", "Driving23")

    For I = LBound(arrTextBoxes) To UBound(arrTextBoxes)
        If Range("A" & I).Value <> "" Then
            UserForm1.Controls(arrTextBoxes(I).Value = Range("A" & I).Value
        End If
    Next I

Note also, that this would only really work if it's possible to refer to the cells to populate the textboxes with some sort of pattern.

 

[jolivanes]

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.

 

[Celticfc]

If they were consistently named then it would be straightforward to loop through them but if the names are random the only real way to do it would be to put all the textbox names in a loop and go through that.

Dim arrTextBoxes As Variant
Dim I As Long

    arrTextBoxes = Array("Channel1", "CCTV2", "Driving23")

    For I = LBound(arrTextBoxes) To UBound(arrTextBoxes)
        If Range("A" & I).Value <> "" Then
            UserForm1.Controls(arrTextBoxes(I).Value = Range("A" & I).Value
        End If
    Next I

Note also, that this would only really work if it's possible to refer to the cells to populate the textboxes with some sort of pattern.

Thanks again but this won’t help either,

Every textbox gets populated from various cells, not just A1.

I just thought textboxes would have an option where you simply blank out 0’s, just like in worksheet where you can hide 0’s.