Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por JacqueGomes6 14 Jan 2019 às 12:00
Membro Novato
Mensagens: 1
Reputação: 0
#40123
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
Apenas usuários registrados podem ver ou baixar anexos.
Avatar do usuário
Por Jimmy 14 Jan 2019 às 14:18
Membro 3 Estrelas
Mensagens: 231
Reputação: 141
#40135
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 todosSub 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
Por babdallas 14 Jan 2019 às 14:20
Membro 5 Estrelas
Mensagens: 1367
Reputação: 632
#40138
Veja se é isto.
Apenas usuários registrados podem ver ou baixar anexos.