ExcelBanter - Userform with currency format

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Userform with currency format (https://www.excelbanter.com/excel-programming/438622-userform-currency-format.html)

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

Userform with currency format

Userform with currency format

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

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

Should be:
Label5.Caption = arspremie

"JLGWhiz" wrote in message
...
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