Zero Decimal Places
 

I have the following
sqmrc1 = Range("K1").Value / 1000
Which is used later
Cells(ActiveCell.Row, ActiveCell.column + 1).Value = sqmrc1

I have found how to divide sqmrc1 but how do I make the result to zero
decimal places?

Thanks Blue

Zero Decimal Places
 

Two possible answers depending on how much accuray you want to maintain.

format(sqmrci, "0")

or

round(sqrmc1, 0)

Hope this helps...

"Blue" wrote:

I have the following
sqmrc1 = Range("K1").Value / 1000
Which is used later
Cells(ActiveCell.Row, ActiveCell.column + 1).Value = sqmrc1

I have found how to divide sqmrc1 but how do I make the result to zero
decimal places?

Thanks Blue

Zero Decimal Places
 

Jim thanks for the reply

I have tried various ways of using Format(sqmrc1, "0") but get an error
message or result is zero. How/where do I attached
Format(sqmrc1, "0") to sqmrc1 = Range("K1").Value / 2

Thanks Blue

Zero Decimal Places
 

Cells(ActiveCell.Row, ActiveCell.column + 1).Value = Format(sqmrc1,"0")

or

ActiveCell.Offset(0,1).Value = Format(sqmrc1,"0")

or

ActiveCell(1,2).Value = Format(sqmrc1,"0")


"Blue" wrote in message
k...
Jim thanks for the reply

I have tried various ways of using Format(sqmrc1, "0") but get an error
message or result is zero. How/where do I attached
Format(sqmrc1, "0") to sqmrc1 = Range("K1").Value / 2

Thanks Blue

Zero Decimal Places
 

John,

Cells(ActiveCell.Row, ActiveCell.column + 1).Value = Format(sqmrc1,"0")

Did the trick, Thanks

Blue