VBA function to remove automatically the "," in a text (example : 67,203.20 to 67202.20)

[michelcoulon]

Hi,

Can you explain me how to remove automatically the "," in a text (example : 67,203.20 to 67202.20) ?
It seems possible via VBA but I never use it.

Thanks in advance.

 

[Joe4]

Welcome to the Board!

I assume that you have a typo, because I don't think you meant to change the actual value/numbers too:

67,203.20 to 67202.20

You can use the REPLACE function in VBA, i.e.

    Dim x As String
    x = "67,203.20"
    
    MsgBox Replace(x, ",", "")

 

[michelcoulon]

Welcome to the Board!

I assume that you have a typo, because I don't think you meant to change the actual value/numbers too:

You can use the REPLACE function in VBA, i.e.

    Dim x As String
    x = "67,203.20"
    
    MsgBox Replace(x, ",", "")

I indeed a Typo.

But isearch a solution like, I have full column and with a simple button, I remove all "," in all the fields

 

[Joe4]

Have you just tried Excel's built in Find/Replace functionality, just replacing the comma with nothing?
If you need it to be VBA code, just turn on the Macro Recorder and record yourself doing that manually, and you will have VBA code that does it.

 

[michelcoulon]

Hi,

I find the solution, I create a button who call this function :

Sub ReplaceTitleMs()
Columns("C").Replace What:=",", _
Replacement:="", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False, _
SearchFormat:=False, _
ReplaceFormat:=False
End Sub

 

[Joe4]

I find the solution, I create a button who call this function :

Sub ReplaceTitleMs()
Columns("C").Replace What:=",", _
Replacement:="", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False, _
SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Yes, that is very similar to the code you would get if you used the Macro Recorder process I mentioned in my last post.

The Macro Recorder is a great tool to get snippets of code, without actually having to know VBA at all. It is a great tool for the beginner and advanced user alike.