Copy and paste negative values

I'm using this to copy and pate negative values.

Is it possible to change values close to zero, as being zero, if within 0.001.

Please Login or Register  to view this content.

Hello. The best thing would be for you to upload a worksheet to the Forum with a couple of specific examples (10 will be enough) in which we can see what you have and what you want to achieve (you put the latter "by hand").

Hi, the code just copies and pastes to negatives (see attachment).
Just wanted to know if values close to zero can be made zero.

Attachment 798312

Thanks TMS, this definitely works.
I should have mentioned that the data will end up being thousands of rows and more columns, and was trying to avoid making reference to the worksheet as this makes the macro slow.
It may be that arrays have to be used but I wasn't sure how to do it with arrays to make it quick.

Please Login or Register  to view this content.

Thanks jindon, this works really quickly with more than 10k rows of data.
Cheers.

jindon, is it possible to paste to another worksheet.
I've tried but all the pasted values are the same as cell A2 in Sheet1.

Please Login or Register  to view this content.

Sheet1 = source data sheet
Sheet2 = output sheet.

Thanks once again jindon, this works really well.