.Replace not working

[jarekjd]

Guys,

i have a simple code:

   With Rows("3")
      .Replace What:=",", Replacement:="", LookAt:=xlPart, _
         SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
         ReplaceFormat:=False
   End With

The goal is to change the regional settings. I want to get rid of "," which means decimal places in my region.

Unfortunatelly this is not working

IN the cells there are just values with general format like 7,100. After macro it should be 7100.

I run Ctrl+H manualy and this is working. Once in macro - it doesn't

pls support

 

[wideboydixon]

How about this instead?

   With Rows("3")
      .NumberFormat = "@"
      .Replace What:=",", Replacement:="", LookAt:=xlPart, _
         SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
         ReplaceFormat:=False
   End With

WBD

 

[jarekjd]

wideboydixon,

thx for your reply. The cells are formatted now as text but the replace function is still not working

 

[wideboydixon]

Hmmm. That is odd. I ran a quick test and your code worked for me when the cells are formatted as text.

WBD

 

[jarekjd]

my file is here:

https://drive.google.com/file/d/164jPktGJllvvL-vhFM8T45JOZbb9Ubuy/view?usp=sharing

can you try my version?

 

[wideboydixon]

Yours has "." not "," when I open it.

WBD

 

[jarekjd]

and that was the trick - i need to use "." although i see ",". I think it is an issue of regional settings.

One last thing. Once i do the same operations with % (eg. 20,4%) i still don't see them as a number. In excel there is an exclamation mark and it gives an option: "convert to number".

I was trying to record this action but it gives empty output.

I use also:

.NumberFormat = "#,##0"
.NumberFormat = "0%"

but it's not working, too

any ideas?

 

[jarekjd]

This is working until somebody can write it more professinally

   With Rows("13")
      .NumberFormat = "General"
      .Value = .Value
      .NumberFormat = "0%"
   End With