Este fórum está sendo desativado

[JacqueGomes6]

Boa tarde pessoal,

Estou montando uma macro para organizar as informações de todas as abas de uma planilha.
Após organizar as informações nas colunas corretas, preciso substituir os espaços para que eu consiga somar os números das células. Quando faço isso "à mão" (entro em substituir, colo o espaço e coloco substituir tudo) dá certo. Quando faço pela macro, ela divide os números das células por mil.

Podem me ajudar, por favor, a fazer com que a macro não divida os números por mil?
Será que isso pode ser por conta da configuração dos separadores de milhares em inglês (vírgula) e português (ponto)?

Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

[Jimmy]

Olá Jacques,

Não podemos olhar a macro porque ela não veio. Você mandou o arquivo no formato XLSX!!!

Se mandar, poderemos olhar o que a macro faz e descobrir o problema.
Se não puder mandar por questões de sigilo, posso te dar uma ideia, meio que no chute, para você tentar.

Código: Selecionar todos

Sub asd()
Range("C4").Value = Replace(Range("C4").Value, " ", "")
End Sub

• Digite em C4 um valor cheio de espaços no início, meio e fim.
• Rode a macro
• Verifique como ficou a célula C4

Jimmy San Juan

[babdallas]

Veja se é isto.