Replacing letters with numbers

[meerkitten]

Currently, the macro I have recognizes cells that have errors in which letters have replaced numbers. For example, a cell might have 2B,498 instead of 28,498. How do I replace all the "B"s with "8"s specific columns of the spreadsheet???

 

[iggydarsa]

Assuming you are only interested in correcting Column A then u use something like this:

Sub Macro1()
    Range("A:A").Replace What:="O", Replacement:="0", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Range("A:A").Replace What:="B", Replacement:="8", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

You will need to add the list of possible corrections tho.

 

[meerkitten]

Function to replace not working

I have to replace "B"s with "8"s in specific columns where 188 might have become 1BB or 18B. I have written my code as seen below but it does not work. What is missing?
Sub Macro1()
Range("F:R").Replace What:="O", Replacement:="0", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Range("F:R").Replace What:="B", Replacement:="8", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

 

[Joe4]

Re: Function to replace not working

I have moved your reply back to the thread with your original question.

All replies, clarifications, or directly related follow-ups to a specific question should be posted back to the original thread. Only start a new thread if you have a new question.

Regarding your question, I tested the code, and it seems fine to me. If it is not working for you, please provide a specific example, i.e. tell us a value which is not updating and which cell this value is found in.

 

[meerkitten]

Re: Function to replace not working

For example, cell G10 contains the value 4B.O and will not convert the B to 8 or O to 0

 

[Joe4]

Re: Function to replace not working

It converts the entry to "48" for me.

How exactly are you running this code?
Have you placed it in a generic module, or a sheet module?