View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
JLGWhiz[_2_] JLGWhiz[_2_] is offline
external usenet poster
 
Posts: 1,565
Default Formatting

arspremie = Format(Sheets("Uppf??ljning").Range("L3"),"Currenc y")
Label5.Text = arspremie

Or instead of "Currency" use "$###,##0.00" wotj cirremcy sympbol of choice,
of course. Possibly Kr?


<Gokhan Erdem wrote in message ...
arspremie.value = Sheets("Uppf??ljning").Range("L3")
Label5.Caption = Format (arspremie, "? #,##0.00")

Cheers



Mia wrote:

Hi,Thank you for your help but it doesen't work.--Best regardsMia"Homey"
skrev:
20-Jan-10

Hi,

Thank you for your help but it doesen't work.

--
Best regards
Mia


"Homey" skrev:

Previous Posts In This Thread:

On Wednesday, January 20, 2010 5:21 AM
Mia wrote:

Userform with currency format
Hi,

I cant get the userform to show arspremie in the right format.
I want to show it in currency, do anyone know how to do this?

My code a

Private Sub UserForm_Activate()
Application.OnTime Now + _
TimeValue("00:00:05"), "KillTheForm"
Dim namn As String
Dim antal As String
Dim arspremie As Currency

namn = Application.UserName
Label2 = namn


antal = Sheets("Uppf??ljning").Range("S4")
Label4 = antal & " st"

arspremie = Sheets("Uppf??ljning").Range("L3")
Label5 = arspremie
Format (arspremie, "Currency")

End Sub



--
Best regards
Mia

On Wednesday, January 20, 2010 6:40 AM
Homey wrote:

Label5 = Format(arspremie, "Currency")you have to format variable before
you
Label5 = Format(arspremie, "Currency")

you have to format variable before you use it.

| Hi,
|
| I cant get the userform to show arspremie in the right format.
| I want to show it in currency, do anyone know how to do this?
|
| My code a
|
| Private Sub UserForm_Activate()
| Application.OnTime Now + _
| TimeValue("00:00:05"), "KillTheForm"
| Dim namn As String
| Dim antal As String
| Dim arspremie As Currency
|
| namn = Application.UserName
| Label2 = namn
|
|
| antal = Sheets("Uppf??ljning").Range("S4")
| Label4 = antal & " st"
|
| arspremie = Sheets("Uppf??ljning").Range("L3")
| Label5 = arspremie
| Format (arspremie, "Currency")
|
| End Sub
|
|
|
| --
| Best regards
| Mia

On Wednesday, January 20, 2010 7:36 AM
Mia wrote:

Hi,Thank you for your help but it doesen't work.--Best regardsMia"Homey"
skrev:
Hi,

Thank you for your help but it doesen't work.

--
Best regards
Mia


"Homey" skrev:


Submitted via EggHeadCafe - Software Developer Portal of Choice
More Fun with Fluent NHibernate Automapping
http://www.eggheadcafe.com/tutorials...uent-nhib.aspx