Notifications
Clear all

Substituir o "." por ","

7 Posts
3 Usuários
0 Reactions
1,559 Visualizações
(@vpeglow)
Posts: 88
Estimable Member
Topic starter
 

Bom dia a todos

Eu tenho uma plan que os dados monetários são importados com a seguinte estrutura 00000001299.94 o correto seria 1299,94

Alguém saberia um método para limpar os zeros e colocar uma virgula no lugar dos pontos?

desde já agradeço a atenção.

 
Postado : 01/09/2016 5:36 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia

Por fórmula também dá para fazer, veja se atende:

Se foi útil, clique na mãozinha.

Dê retorno.
[]s

 
Postado : 01/09/2016 5:46 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Basta clicar em localizar selecionar e substituir . por ,.

Doni

 
Postado : 01/09/2016 11:24 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Aparentemente os dados estão sendo importados como texto, se assim for uma maneira rapida e pratica e utilizar a função Texto para Colunas , no menu dados.
Selecione a coluna desejada. va em dados --> texto para colunas--> clique ok 2 vezes; nessa terceira tela clique no botão avançado e informe que o separador decimal é ponto; clique em concluir

 
Postado : 01/09/2016 4:00 pm
(@djunqueira)
Posts: 0
New Member
 

Algumas formas de resolver seu problema estão relacionadas na planilha.

 
Postado : 02/09/2016 3:47 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Apesar do solicitante não ter se manifestado ainda, segue mais uma forma e com certeza deve ter outras, mas fica mais uma opção por VBA :

Sub Substituir_Ponto_virgula()
    Dim sWhs As Worksheet
    Dim UltimaLinha As Long
    Dim sAdress
    Dim sValor
    
    Dim RngsSubstituir As Range
    
    Set sWhs = Worksheets("Plan1")
    
    UltimaLinha = sWhs.Cells(Rows.Count, 4).End(xlUp).Row
       
    Set RngsSubstituir = sWhs.Range("D2:" & "G" & UltimaLinha)
    
    For Each sValor In RngsSubstituir
       
        sAdress = sValor.Address(0, 0)
    
        With sWhs.Range(sAdress)
            Range(sAdress).Value = Replace(sWhs.Range(sAdress).Value, ",", ".")
            Range(sAdress).NumberFormat = "#,##0.00"
        End With
    
    Next
   
End Sub

[]s

 
Postado : 02/09/2016 6:56 am
(@vpeglow)
Posts: 88
Estimable Member
Topic starter
 

Pessoal, muito obrigado, de todas as formas funcionou muito bem.

Att;

 
Postado : 03/09/2016 8:00 am