Página 1 de 1

VBA - Macro mudando o numero

Enviado: 05 Fev 2016 às 15:56
por 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?

VBA - Macro mudando o numero

Enviado: 05 Fev 2016 às 16:23
por 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

VBA - Macro mudando o numero

Enviado: 05 Fev 2016 às 16:28
por 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, ",", "."))

VBA - Macro mudando o numero

Enviado: 05 Fev 2016 às 17:04
por rafapmotta
Valeeeeeeeu galera!!

Resolveram meu problema