vba code for converting vulgar fractions to decimals

Hello,

I was wondering if there is a vb code that can be made to convert vulgar fractions (ie. ½) to a decimal. I wouldn't mind doing manually if I had only one or two to change, but I have quite a few and if a vb code can locate and change any vulgar fraction that is on my excel spread sheet to a decimal even if there is a whole number next to it (ie. 1½) that would be sweet.

CheerZ!
Wyldjokre69

Hi
Have a look at this link which may help.
Good luck.
Tony

Sorry Tony, what link?
Wyldjokre69

Sorry. Here it is:

http://stackoverflow.com/questions/7...als-in-excel-2



Tony

Maybe:

Please Login or Register  to view this content.

Would work for Column A.

Thanks John, but unfortunately, all it did was turn my whole numbers into numbers with decimal placements in them. I was hoping to have the code change only the vulgar fractions into decimals leaving the whole numbers intact.
Wyldjokre69

Can you attach a sample file? To attach a file, push the button with the paperclip (or scroll down to the Manage Attachments button), browse to the required file, and then push the Upload button.

Hey John,

Here is a sample worksheet and highlighted in yellow is the area of my problem. Thanks for taking the time.

CheerZ!
Wyldjokre69

SAMPLE WORKSHEET.xlsm

Hey Andy,

Yes. That is what I'm doing at the moment, it is quick and everything, but I figured there would be a way to just have it done by code.

My suggestion wouldn't work on this file because of the special characters. It assume that a fraction such as 1/2 would produce a Len of 3, whereas the fractions on your worksheet produces a Len of 1. Maybe you should try Andy's suggestion.

Modified:

Please Login or Register  to view this content.

=--if(iserror(find("'",ah1065)),0,if(countif(ah1065,"*/*")*(countif(ah1065,"*'")>0),"0","")&left(ah1065,find("'",ah1065)-1))+if(iserror(find("""",ah1065)),0,--(if(countif(ah1065,"*/*")*(countif(ah1065,"* */*")=0),"0 ","")&substitute(mid(ah1065,if(iserror(find("-",ah1065)),1,find("-",ah1065)+1),255),"""","")))/12