Round off selected range

[vickey.narang]

Hi,
I want to write a code where If I select a dynamic range for example A1 to A10, it applies the ROUND function and replace the value.
For One cell I applied

Please Login or Register  to view this content.

But I want the code to work, If user selects some range of cells.
Thanks for help.

[MarvinP]

Hi,

Try something like this?

Please Login or Register  to view this content.

hth

[pike]

hi vickey.narang,

dont forget to add code tags around your vba syntax; even for the small snipits

thanks

[jaslake]

Or this

Please Login or Register  to view this content.

[DonkeyOte]

@jaslake, do not ignore Mods requests to OP when posting.

On this occasion given it's Sunday I've modified for OP and left your post in tact.

In terms of the question - you can also use Evaluate to avoid cell by cell iteration

Please Login or Register  to view this content.

so the above will process all cells within each cell area within active Selection simultaneously - verifying entries as numbers prior to rounding of course.

you could apply SpecialCells(xlCellTypeConstants,xlNumbers) to further restrict the Ranges being itereated [and shorten Evaluate formula] but that brings with it a few extra requirements - Error Handler etc... and restriction re: # of non-contiguous ranges

[vickey.narang]

Thank you guys
its working very well.