Decimal display in textboxes.

[asyamonique]

Good Day,
I have a userform with a lot of text boxes.
And its pop up with same code given below.
I did not put other text boxes i've just add one sample...

Private Sub UserForm_Initialize()

Me.TextBox1.Text = Format(Sheets("list").Range("G1").Value, "###,##")

End Sub

My question is,
Is it possible to put only a code that all textboxes will display with the format of "###,##" without stating the textboxes one by one.
Simply those textboxes with the numbers will format automaticly.
Also some textboxes has text values on my userform.
Thanks in advance.

 

[DanteAmor]

I don't know that with a single instruction you can change all the textboxes.
But with a loop you can go through all the textboxes and put a value in them.

At least you would have put 3 textboxes to identify a pattern.

So:
Are all texboxes filled with cell G1?
Or textbox1 with cell G1, textbox2 with cell G2, textbox3 with cell G and so on?

With the following code you can format up to 20 textboxes, change the 20 to the number of textboxes you have in your userform.
Each will be filled with cells G1 to G20.

Private Sub UserForm_Initialize()
  Dim i As Long

  For i = 1 To 6
    Controls("TextBox" & i).Text = Format(Sheets("list").Range("G" & i).Value, "###,##")
  Next
End Sub

If the textboxes are filled with different cells then you must explain which ones you need filled with numbers and which cells, to identify a pattern and fill them all with the cycle.

 

[asyamonique]

I don't know that with a single instruction you can change all the textboxes.
But with a loop you can go through all the textboxes and put a value in them.

At least you would have put 3 textboxes to identify a pattern.

So:
Are all texboxes filled with cell G1?
Or textbox1 with cell G1, textbox2 with cell G2, textbox3 with cell G and so on?

With the following code you can format up to 20 textboxes, change the 20 to the number of textboxes you have in your userform.
Each will be filled with cells G1 to G20.

Private Sub UserForm_Initialize()
  Dim i As Long

  For i = 1 To 6
    Controls("TextBox" & i).Text = Format(Sheets("list").Range("G" & i).Value, "###,##")
  Next
End Sub

If the textboxes are filled with different cells then you must explain which ones you need filled with numbers and which cells, to identify a pattern and fill them all with the cycle.

Or textbox1 with cell G1, textbox2 with cell G2, textbox3 with cell G and so on?
Yes correct. Instead of editingone by one on current codes I would like to show on text boxes with deciminal.

 

[DanteAmor]

Or textbox1 with cell G1, textbox2 with cell G2, textbox3 with cell G and so on?
Yes correct. Instead of editingone by one on current codes I would like to show on text boxes with deciminal.

I don't understand you.
Did you try the code I put in post #2?