Format TextBox with 1 code for many Textboxes

[ipbr21054]

Userform has 14 TextBoxes.

This works to show the currency correyly example £12,345.00

TextBox1.Value = Format(TextBox1.Value, "Currency")

But i dont want to write that to each Textbox so is there a code that will apply that currency format to the TextBoxeas on the userform

 

[abdelfattah]

should use loop throughout textboxes
example:
you have 4 textboxes
so should be
on userform module

Sub crr()
Dim i As Long
For i = 1 To 4
    Controls("textbox" & i).Value = Format(Controls("textbox" & i).Value, "currency")
    Next i
End Sub

Private Sub TextBox1_AfterUpdate()
Call crr
End Sub

Private Sub TextBox2_AfterUpdate()
Call crr
End Sub

 

[Skyybot]

This is the same thing but after you enter all of your values in the TextBoxes click on the UserForm an it will update formats so that you don't have to write code for each TextBox_AfterUpdate.

Private Sub UserForm_Click()
Dim tb
For Each tb In Me.Controls
    If TypeName(tb) = "TextBox" Then
        tb.Value = Format(tb.Value, "Currency")
    End If
Next tb
End Sub

 

[abdelfattah]

so that you don't have to write code for each TextBox_AfterUpdate.

this is unusual way !
usually will write in textbox and use enter to move next textbox and see the changes instead of waiting to complete writing for all of textboxes to see changes .