I am stumped.

this code is part of much larger macro.

Range(Cells(drprw, 6), Cells(drprw + 1, 6)).NumberFormat = "0.00"
numba = Round(qtytpd / qtyroutes, 2)
numbb = Round(tpaftot / qtyroutes, 2)
Cells(drprw, 6) = numba
Cells(drprw + 1, 6) = numbb

the cells are displaying numbers like 9.00 when there should be
non zero decimal positions.

if i pull the code out of the macro, and run it standalone,
it works fine.

all vars are dim'd as long.

i' ve checked the code 'after' this, and there are NO other formating
commands.
I don't know where to 'look' next.

Help. Thanks. Neal.



--
Neal Z

A Long is an integer, so you will get only integral values for your
variables.

numba and numbb should be DIMmed as Single.

--

Vasant


"Neal Zimm" wrote in message
...
I am stumped.

this code is part of much larger macro.

Range(Cells(drprw, 6), Cells(drprw + 1, 6)).NumberFormat = "0.00"
numba = Round(qtytpd / qtyroutes, 2)
numbb = Round(tpaftot / qtyroutes, 2)
Cells(drprw, 6) = numba
Cells(drprw + 1, 6) = numbb

the cells are displaying numbers like 9.00 when there should be
non zero decimal positions.

if i pull the code out of the macro, and run it standalone,
it works fine.

all vars are dim'd as long.

i' ve checked the code 'after' this, and there are NO other formating
commands.
I don't know where to 'look' next.

Help. Thanks. Neal.



--
Neal Z

Hi Vasant,
Thank you. I don't think I remember reading in the MSO Excel docum NOT
being able to get a decimal answer to an 'integer' division.
I also need to apologize, when I extracted the code in a test, I now
remember that I did NOT Dim the vars before running my test, so I guess MSO
dim'd them as variants, and that's why the test worked, but not the code when
it was in the macro.
Again Thanks,
Neal


"Vasant Nanavati" wrote:

A Long is an integer, so you will get only integral values for your
variables.

numba and numbb should be DIMmed as Single.

--

Vasant


"Neal Zimm" wrote in message
...
I am stumped.

this code is part of much larger macro.

Range(Cells(drprw, 6), Cells(drprw + 1, 6)).NumberFormat = "0.00"
numba = Round(qtytpd / qtyroutes, 2)
numbb = Round(tpaftot / qtyroutes, 2)
Cells(drprw, 6) = numba
Cells(drprw + 1, 6) = numbb

the cells are displaying numbers like 9.00 when there should be
non zero decimal positions.

if i pull the code out of the macro, and run it standalone,
it works fine.

all vars are dim'd as long.

i' ve checked the code 'after' this, and there are NO other formating
commands.
I don't know where to 'look' next.

Help. Thanks. Neal.



--
Neal Z

You're welcome, Neal!

--

Vasant

"Neal Zimm" wrote in message
...
Hi Vasant,
Thank you. I don't think I remember reading in the MSO Excel docum
NOT
being able to get a decimal answer to an 'integer' division.
I also need to apologize, when I extracted the code in a test, I now
remember that I did NOT Dim the vars before running my test, so I guess
MSO
dim'd them as variants, and that's why the test worked, but not the code
when
it was in the macro.
Again Thanks,
Neal


"Vasant Nanavati" wrote:

A Long is an integer, so you will get only integral values for your
variables.

numba and numbb should be DIMmed as Single.

--

Vasant


"Neal Zimm" wrote in message
...
I am stumped.

this code is part of much larger macro.

Range(Cells(drprw, 6), Cells(drprw + 1, 6)).NumberFormat = "0.00"
numba = Round(qtytpd / qtyroutes, 2)
numbb = Round(tpaftot / qtyroutes, 2)
Cells(drprw, 6) = numba
Cells(drprw + 1, 6) = numbb

the cells are displaying numbers like 9.00 when there should be
non zero decimal positions.

if i pull the code out of the macro, and run it standalone,
it works fine.

all vars are dim'd as long.

i' ve checked the code 'after' this, and there are NO other formating
commands.
I don't know where to 'look' next.

Help. Thanks. Neal.



--
Neal Z