Using NumberFormat with Offset

[silentwolf]

Hi guys,

sorry again for a simple question but I cant seem to get it to work.

        If Weekday(rngCel) = 1 Then rngCel.Offset(0, 1).Value = 45
            .NumberFormat = "0.00"

        If Weekday(rngCel) = 1 Then rngCel.Offset(0, 1).Value = Format(45, "Currency")

I have tried with this code above and I am getting the right look of it but it is saved as text in the cell which is not that helpful .(

how do I need to combine this code with numberformating so I am getting € 45,00 for example.

Thank you

Albert

 

[RoryA]

You can do this:

If Weekday(rngCel) = 1 Then 
    With rngCel.Offset(0, 1)
        .Value = 45
        .NumberFormat = "€ 0.00"
    End With

 

[Gerald Higgins]

I'm not a code expert but by playing around with the macro recorder I came up with this . . .

If Weekday(rngCel) = 1 Then rngCel.Offset(0, 1).Value = 45.NumberFormat = "[$€-2] #,##0.00"

 

[silentwolf]

HI Thanks guys for your help!

Chees it works fine.. I sometimes forget about the makro recorder