Adding specific value to numbers in a specific range

Hello
I'm having some problem converting a large amount of data points, around 2000, to different values
My company uses a measuring device to obtain specific thicknesses and we have to account for a variable that the device isn't able to account for.
This leaves us with a large table of data that needs to altered to fit this range.
Data that falls from 1-10 must have 3 added to it. Data ranging in 11-39 must have 6 added to them, and data that ranges over 40 must have 15 added to it.
What would be a correct macro to swap over all this data? Please help. Thank you.

Or, without VBa

Assuming your data is in ColumnA begining A1

In a spare column in Row 1

Please Login or Register  to view this content.

Fill/Drag down

Copy

Select A1
PasteSpecial > values


Hope this helps.

If you need any further information, please feel free to ask further

However

If this takes care of your needs, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED. It helps everybody!
Also
If you are satisfied by any members response to your problem please consider using the scales icon top right of thier post to show your appreciation.

Edit: I refreshed before posting this I swear lol.... butttt it didnt show any posts so others beat me to it.

Adjust range as needed:

Please Login or Register  to view this content.

If you are new to VBa then this variation on Stephens' code should be a little easier to follow

Please Login or Register  to view this content.

This will ignore blanks or zeros and any text entries on your sheet. e.g. headers, and any descriptors you may have.

Can you have negative values, and if so what are the rules that apply.
(The code as it stands will do nothing with negative numbers)

.....the set of data will also be placed in a map, so the data is spread out throughout a large excel sheet, with bits and pieces here and there. will this operation mess up where the data is? It took forever to place the data where it is.

Test any code on a sample/copy sheet until you are happy with it.

The code is not reversible (without a further macro), you cannot "Undo" VBa.

Run it only once on the final data sheet

You can of course save the workbook before running code, and if you are not happy with it, close the workbook without saving.


Cheers

Your code will not cover all your values, eg 10.359 in column B:B, is this what you want?

If not use the variation in post #9

Also
Please wrap your code in code tags, before the moderators get you...

Forum rules

3. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # button at the top of the post window. If you are editing an existing post, press Go Advanced to see the # button.

Cheers

If you need any further information, please feel free to ask further

However

If this takes care of your needs, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED. It helps everybody!
Also
If you are satisfied by any members response to your problem please consider using the scales icon top right of thier post to show your appreciation.