How do I round to the nearest thousand without individually having to do it
for every cell?

Hi
if you want to do this for many cells you'll have to use VBA. Another
option: In a helper cell enter
=ROUND(A1,-3)
and copy for all rows

--
Regards
Frank Kabel
Frankfurt, Germany

Martina wrote:
How do I round to the nearest thousand without individually having to
do it for every cell?

Pls don't type in all caps.

Sub roundto1000()
For Each c In Selection
c.Value = Round(c / 1000, 0) * 1000
Next c
End Sub

--
Don Guillett
SalesAid Software

"Martina" wrote in message
...
How do I round to the nearest thousand without individually having to do
it
for every cell?

What is a VBA? Doing it in a helper cell means you have to do it for every
cell in the range. I als need to decrease the cell value more i.e. instead
of having 47,000 I need 47.

"Frank Kabel" wrote:

Hi
if you want to do this for many cells you'll have to use VBA. Another
option: In a helper cell enter
=ROUND(A1,-3)
and copy for all rows

--
Regards
Frank Kabel
Frankfurt, Germany

Martina wrote:
How do I round to the nearest thousand without individually having to
do it for every cell?

Give us your range (a2:c400)??? and then my macro can be modified to work
for you. You would then copy into a module and execute to change all. The
easiest, for you, would be to:

highlight the cells to changeright click sheet tabview codecopy\paste my
macroput cursor somewhere in the macro textF5if all is well,SAVE

--
Don Guillett
SalesAid Software

"Martina" wrote in message
...
What is a VBA? Doing it in a helper cell means you have to do it for
every
cell in the range. I als need to decrease the cell value more i.e.
instead
of having 47,000 I need 47.

"Frank Kabel" wrote:

Hi
if you want to do this for many cells you'll have to use VBA. Another
option: In a helper cell enter
=ROUND(A1,-3)
and copy for all rows

--
Regards
Frank Kabel
Frankfurt, Germany

Martina wrote:
How do I round to the nearest thousand without individually having to
do it for every cell?