| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need Text box value to be $5,000.00 not 5000
I have the following code
Sub CalcPrice() Dim TotalPrice As Currency Set xls = Excel.Worksheets("ProjectDB") Sheets("ProjectDB").Select Col = 11 For row = 141 To 160 Price = xls.Cells(row, Col) TotalPrice = TotalPrice + Price Next row QuoteForm.TBPricing.Value = TotalPrice End Sub I want the sum of these cell displayed as currency and not just a number Please help. Thank You -- Jason V |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Need Text box value to be $5,000.00 not 5000
QuoteForm.TBPricing.Value = Format(TotalPrice,"$#,##0.00")
- Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions Peltier Technical Services, Inc. - http://PeltierTech.com _______ "Jason V" wrote in message ... I have the following code Sub CalcPrice() Dim TotalPrice As Currency Set xls = Excel.Worksheets("ProjectDB") Sheets("ProjectDB").Select Col = 11 For row = 141 To 160 Price = xls.Cells(row, Col) TotalPrice = TotalPrice + Price Next row QuoteForm.TBPricing.Value = TotalPrice End Sub I want the sum of these cell displayed as currency and not just a number Please help. Thank You -- Jason V |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Need Text box value to be $5,000.00 not 5000
On 28 Dec., 18:41, Jason V wrote:
I have the following code Sub CalcPrice() Dim TotalPrice As Currency Set xls = Excel.Worksheets("ProjectDB") Sheets("ProjectDB").Select Col = 11 For row = 141 To 160 * * Price = xls.Cells(row, Col) * * TotalPrice = TotalPrice + Price Next row QuoteForm.TBPricing.Value = TotalPrice End Sub I want the sum of these cell displayed as currency and not just a number Please help. Thank You -- Jason V Hi Jason QuoteForm.TBPricing.Value = FormatCurrency(TotalPrice) Regards, Per |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Need Text box value to be $5,000.00 not 5000
Thank You. It works.
-- Jason V "Per Jessen" wrote: On 28 Dec., 18:41, Jason V wrote: I have the following code Sub CalcPrice() Dim TotalPrice As Currency Set xls = Excel.Worksheets("ProjectDB") Sheets("ProjectDB").Select Col = 11 For row = 141 To 160 Price = xls.Cells(row, Col) TotalPrice = TotalPrice + Price Next row QuoteForm.TBPricing.Value = TotalPrice End Sub I want the sum of these cell displayed as currency and not just a number Please help. Thank You -- Jason V Hi Jason QuoteForm.TBPricing.Value = FormatCurrency(TotalPrice) Regards, Per |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| HOW CAN CONVERT A NUMBER INTO TEXT E.G. 5000 TO FIVE THOUSAND | Excel Discussion (Misc queries) | |||
| How do I add a zero in front of a text formatt number of 5000 reco | Excel Worksheet Functions | |||
| Round to nearest 5000? | Excel Worksheet Functions | |||
| Round to nearest 5000 | Excel Discussion (Misc queries) | |||
| Displaying 5000 | Excel Discussion (Misc queries) | |||
![Jason V[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
