extracting numbers from text string and adding them together

Sorry Leif,

I meant to write back, but I was struggling with the VBA function (not my forte)... but I think I figured it out...

Again, my coding is far from "textbook"... I only learned VBA from trial and error... anyway, check out the function that I created... see if you can use it...

Contact me if you don't know how to copy the VBA in your worksheet...

Thanks,
Dennis

Re-post: I couldn't figure out a nice formula, so I decided on using VBA... anyone how has any other ideas or improvements or a more proper way to code it, is more than welcome... I like learning on how to do it more "properly"... thanks!

Or maybe

Please Login or Register  to view this content.

In Excel

Formula:

Please Login or Register  to view this content.

Can you have decimal numbers in the string?
If so what would you expect from this
1.2M5R = 1.7, or 8?

Nice work Morcol but what happen if there is already space in original text string i.e 12M 3Y2 or consecutive letters i.e 12MUL34M

___________________

aelgadi

>>> If I helped, Don't forget to add to my reputation (click on the star at left bottom of the post)
>>> If satisfied with a solution, don't forget to mark threads as "Solved" (Thread Tools->Mark thread as Solved)

Thanks djapigo. By the way, still you can use integers djapigo and thanks again

_____________________________________

aelgadi

>>> If I helped, Don't forget to add to my reputation (click on the star at left bottom of the post)
>>> If satisfied with a solution, don't forget to mark threads as "Solved" (Thread Tools->Mark thread as Solved)

Originally Posted by aelgadi

Nice work Morcol but what happen if there is already space in original text string i.e 12M 3Y2 or consecutive letters i.e 12MUL34M

___________________

aelgadi

By replacing all non digits with a space we get a string with any number of spaces, some in groups, others as singletons.

Worksheetfunction.Trim() removes all redundant spaces, leading, trailing, and internally. we can now replace the spaces with "+"

If you use the VBa function Trim() only leading and trailing spaces are removed, then you'll possibly get multiple consecutive "+"s when you replace the spaces. In that case Evaluate() will fail.