Loop through all textbox in a userform to format for currency

[zpierucci]

I have 15 textbox (textbox1, textbox2, etc..) in a UserForm. I would like them to have the ("$#,##0.00") currency format. Is there a way to loop through all of the TextBox controls for this?

I have tried several variations of the TextBox1 = Format(TextBox1.value, "$#,##0.00") variations with no success. Please help.

 

[dmt32]

Hi,

try this in your code & see if helps

Dim i As Integer
    For i = 1 To 15
        With Me.Controls("TextBox" & i)
            .Value = Format(Val(.Value), "$#,##0.00")
        End With
    Next i

Dave

 

[zpierucci]

Hi,

try this in your code & see if helps

Dim i As Integer
    For i = 1 To 15
        With Me.Controls("TextBox" & i)
            .Value = Format(Val(.Value), "$#,##0.00")
        End With
    Next i

Dave

Works like a charm!!! Thank you for your help.

 

[sykes]

If your user has already entered the figures into all of the textboxes, then looping through each one should work.
However, I'm guessing that you wish the user to enter a value, and it to be automatically displayed in the correct format, in which case, you may be better running the format code after the textbox has been exited:
Nb test on a COPY of your work, first...

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 TextBox3.Value = Format(TextBox3.Value, "$#,##0.00")
End Sub

 

[dmt32]

Works like a charm!!! Thank you for your help.

Glad we were able to help - appreciate feedback

Dave