Este fórum está sendo desativado

[rafapmotta]

Galera,

A macro que está na planilha em anexo, está mudando o numero de 14,225 para 14225,00 ,mas ela só deveria limpar os espaços escondidos em algumas celulas vazias.

O número precisa permanecer o mesmo (14,225) e nao 14225

Alguem sabe como ajustar?

[Parkeless]

Olá novamente Rafa!

Estranho; o VBA está trocando o ponto por vírgula, aí acaba mudando o número.

Multipliquei por 1 e corrigiu, vai entender kkk vê se funciona aí também:

Código: Selecionar todos

Sub teste1()

Dim LRi As Range, cell As Range

Set LRi = Range("I2:N" & Range("I2").End(xlDown).Row & "")
For Each cell In LRi
    If IsNumeric(cell) Then
        cell = WorksheetFunction.Trim(cell) * 1
    Else
        cell = WorksheetFunction.Trim(cell)
    End If
Next cell

End Sub

[Reinaldo]

A linguagem/padrão "interno" do VBA é basicamente o Americano, onde o separador decimal é ponto e o de milhar a virgula.

Experimente então alterar alinha da rotina conforme segue: cell.Value = Trim(Replace(cell.Value, ",", "."))

[rafapmotta]

Valeeeeeeeu galera!!

Resolveram meu problema