MRound VBA formula setting all cell values to zero

[Mikeymike_W]

Hi All,

Thanks in advance for any help you can provide.

I have a formula in VBA which rounds the values in a range to the nearest 0.5.
It works fine but it also sets all the cell values to zero if they are blank, does anyone know a way to get past this?

My code is:

For i = 5 To 20
Sheets(1).Cells(i, 7).Value = Application.MRound(Sheets(1).Cells(i, 7).Value, 0.25)
Next

I have this located in my active sheet under worksheet_change

Thanks again,

Mike

 

[Mikeymike_W]

Hi Sheetspread,

I was trying to upload a sample spreadsheet so you could see what was happening but can't see an option to upload?

Mike

 

[Mikeymike_W]

Hi MIke,

Thanks for your help.

I tried your code, it worked in terms of rounding the numbers but rather than opening the message box when the user inputs a range of numbers (21-25) it just seems to allow them to do it.
Also all of the cells in the range are being automatically populated with a Zero value.

Hopefully there's a simple solution

Thanks for your help,

Mike

 

[sheetspread]

can't see an option to upload

This board doesn't have attachments, here's the best way to post:

http://www.mrexcel.com/forum/about-board/947826-why-cant-i-add-attachments-my-threads.html