Have TextBox display a dollar value
 

When these TextBoxes get populated, is there any way to make them display
the result in dollars and cents?


Sub DisplayPay()

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

DataInput.TextBox611.Text = rng(1, 99) ' Dispatch Pay
DataInput.TextBox612.Text = rng(1, 98) 'Driveing Pay
DataInput.TextBox613.Text = rng(1, 100) + rng(1, 101) ' Overtime
DataInput.TextBox615.Text = rng(1, 119) 'Total Pay

End Sub

Have TextBox display a dollar value
 

DataInput.TextBox611.Text = "$ " & rng(1, 99) ' Dispatch Pay
DataInput.TextBox612.Text = "$ " & rng(1, 98) 'Driveing Pay
DataInput.TextBox613.Text = "$ " & rng(1, 100) + rng(1, 101) ' Overtime
DataInput.TextBox615.Text = "$ " & rng(1, 119) 'Total Pay

If this post helps click Yes
--------------
Jacob Skaria


"Patrick C. Simonds" wrote:

When these TextBoxes get populated, is there any way to make them display
the result in dollars and cents?


Sub DisplayPay()

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

DataInput.TextBox611.Text = rng(1, 99) ' Dispatch Pay
DataInput.TextBox612.Text = rng(1, 98) 'Driveing Pay
DataInput.TextBox613.Text = rng(1, 100) + rng(1, 101) ' Overtime
DataInput.TextBox615.Text = rng(1, 119) 'Total Pay

End Sub

Have TextBox display a dollar value
 

You may use the conver to currency function

"$ " & Ccur(rng(1, 99))

If this post helps click Yes
--------------
Jacob Skaria


"Patrick C. Simonds" wrote:

When these TextBoxes get populated, is there any way to make them display
the result in dollars and cents?


Sub DisplayPay()

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

DataInput.TextBox611.Text = rng(1, 99) ' Dispatch Pay
DataInput.TextBox612.Text = rng(1, 98) 'Driveing Pay
DataInput.TextBox613.Text = rng(1, 100) + rng(1, 101) ' Overtime
DataInput.TextBox615.Text = rng(1, 119) 'Total Pay

End Sub

Have TextBox display a dollar value
 

While this puts a $ in front of the number it does not round the number down
to 2 digits after the . What I get is $158.14523


"Jacob Skaria" wrote in message
...
You may use the conver to currency function

"$ " & Ccur(rng(1, 99))

If this post helps click Yes
--------------
Jacob Skaria


"Patrick C. Simonds" wrote:

When these TextBoxes get populated, is there any way to make them display
the result in dollars and cents?


Sub DisplayPay()

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

DataInput.TextBox611.Text = rng(1, 99) ' Dispatch Pay
DataInput.TextBox612.Text = rng(1, 98) 'Driveing Pay
DataInput.TextBox613.Text = rng(1, 100) + rng(1, 101) ' Overtime
DataInput.TextBox615.Text = rng(1, 119) 'Total Pay

End Sub

Have TextBox display a dollar value
 

You can use the Round function or Format function.

Round (Ccur(158.1482),2) = 158.15
Format(158.1482,"0.00") = 158.15

DataInput.TextBox611.Text = "$ " & Round(rng(1, 99),2)
DataInput.TextBox612.Text = "$ " & Round(rng(1, 98) ,2)
DataInput.TextBox613.Text = "$ " & rng(1, 100) + rng(1, 101),2)
DataInput.TextBox615.Text = "$ " & rng(1, 119) ,2)


If this post helps click Yes
--------------
Jacob Skaria


"Patrick C. Simonds" wrote:

While this puts a $ in front of the number it does not round the number down
to 2 digits after the . What I get is $158.14523


"Jacob Skaria" wrote in message
...
You may use the conver to currency function

"$ " & Ccur(rng(1, 99))

If this post helps click Yes
--------------
Jacob Skaria


"Patrick C. Simonds" wrote:

When these TextBoxes get populated, is there any way to make them display
the result in dollars and cents?


Sub DisplayPay()

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

DataInput.TextBox611.Text = rng(1, 99) ' Dispatch Pay
DataInput.TextBox612.Text = rng(1, 98) 'Driveing Pay
DataInput.TextBox613.Text = rng(1, 100) + rng(1, 101) ' Overtime
DataInput.TextBox615.Text = rng(1, 119) 'Total Pay

End Sub

Have TextBox display a dollar value
 

Another way using Format:

Dim x As Double
x = 158.14523
MsgBox Format(x, "$0.00")

--
Tim Zych
http://www.higherdata.com
Workbook Compare - Excel data comparison utility
Free and Pro versions

"Patrick C. Simonds" wrote in message
...
While this puts a $ in front of the number it does not round the number
down to 2 digits after the . What I get is $158.14523


"Jacob Skaria" wrote in message
...
You may use the conver to currency function

"$ " & Ccur(rng(1, 99))

If this post helps click Yes
--------------
Jacob Skaria


"Patrick C. Simonds" wrote:

When these TextBoxes get populated, is there any way to make them
display
the result in dollars and cents?


Sub DisplayPay()

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

DataInput.TextBox611.Text = rng(1, 99) ' Dispatch Pay
DataInput.TextBox612.Text = rng(1, 98) 'Driveing Pay
DataInput.TextBox613.Text = rng(1, 100) + rng(1, 101) ' Overtime
DataInput.TextBox615.Text = rng(1, 119) 'Total Pay

End Sub

Have TextBox display a dollar value
 

See subject: "Userform Text box Format to Currency" in this ng a couple of
days ago.

Regards,
Peter T

"Patrick C. Simonds" wrote in message
...
When these TextBoxes get populated, is there any way to make them display
the result in dollars and cents?


Sub DisplayPay()

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

DataInput.TextBox611.Text = rng(1, 99) ' Dispatch Pay
DataInput.TextBox612.Text = rng(1, 98) 'Driveing Pay
DataInput.TextBox613.Text = rng(1, 100) + rng(1, 101) ' Overtime
DataInput.TextBox615.Text = rng(1, 119) 'Total Pay

End Sub