Currency formatting

[andysh]

Hi

I'm using the below to divide ranges but want the output to be in currency format (£), what do I need to add?

LR = Cells(Rows.Count, 2).End(xlUp).Row

Range("N2:N" & LR) = Evaluate("M2:M" & LR & "/K2:K" & LR)

 

[Momentman]

Maybe something like the below

Range("N2:N" & LR).value = Format(Evaluate("M2:M" & LR & "/K2:K" & LR),"$0.0")

You can always change the format

 

[andysh]

Thanks for looking at this
However I'm getting "Run-time error '13': Type mismatch"
Any ideas?

 

[andysh]

Managed to fix it with...

Range("N2:N" & LR) = Evaluate("M2:M" & LR & "/K2:K" & LR)
Range("N2:N" & LR).NumberFormat = "£##,###.##"

 

[Momentman]

Managed to fix it with...

Range("N2:N" & LR) = Evaluate("M2:M" & LR & "/K2:K" & LR)
Range("N2:N" & LR).NumberFormat = "£##,###.##"

it definitely would work with the Number format, but I felt It could work in one line, i tried in the immediate window and it worked but..............

I guess 'cos i tested with a single cell, but you have a range of cells