Rounding a number that is entered into a cell to the nearest thousand.

[SanFelippo]

Hi,

I have a cell that someone will be manually typing a number into. After they enter the number, I need that number to be rounded to the nearest thousand. Since this cell is one that will be manually typed into, this automatic rounding of whatever number they put into the cell has to be done with VBA.

My issue is the round function in VBA uses Bankers rounding, which basically means it will round up or down in order to always land on an even number.

Can anyone throw together a quick one or two lines of code that will take the number that is entered into the cell and then round it to the nearest thousand (for example if $1500 was entered for example, it would automatically round it to $2000)?

Should be simple. If you want more specifics, the cell I am trying to do this to is B29.

Thanks

 

[joeu2004]

My issue is the round function in VBA uses Bankers rounding, which basically means it will round up or down in order to always land on an even number.

If that is your only issue, use WorksheetFunction.Round(...,-3). The latter implements Excel ROUND.

More specifically:

Range("B29").Value2 = WorksheetFunction.Round(Range("B29").Value2,-3)

I use .Value2 instead of .Value because it is unclear how you have B29 formatted, and .Value has undesirable side-effects sometimes.