Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Substituir ponto por virgula em casas decimais.

Ir para baixo 
3 participantes
AutorMensagem
fekete




Mensagens : 1
Data de inscrição : 06/10/2011

Substituir ponto por virgula em casas decimais. Empty
MensagemAssunto: Substituir ponto por virgula em casas decimais.   Substituir ponto por virgula em casas decimais. EmptyQui Out 06, 2011 10:32 pm

Pessoal, tenho uma planilha com mais de 20.000 celulas preenchidas com numeros,

so que em algumas casas os numeros estão da seguinte forma:

36.227.44

preciso de um codigo que substitua somente o ponto da casa decimal por ,
ficando 36.227,44

Desde ja agradeço a todos!
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Substituir ponto por virgula em casas decimais. Empty
MensagemAssunto: Re: Substituir ponto por virgula em casas decimais.   Substituir ponto por virgula em casas decimais. EmptySex Out 07, 2011 2:55 am

Boa noite!!!

Só serve por meio de VBA?

Caso contrario...
=SUBSTITUIR(A2;DIREITA(A2;LOCALIZAR(".";A2;1));","&DIREITA(A2;2))


Att..
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Substituir ponto por virgula em casas decimais. Empty
MensagemAssunto: Re: Substituir ponto por virgula em casas decimais.   Substituir ponto por virgula em casas decimais. EmptySáb Out 08, 2011 9:01 pm

Boa tarde!!!

Segue sua resposta via VBA..Dê retorno Wink
Código:
Sub SubstituirPontoVirgula()
Dim myCell As Range
Dim rng As Range
Set rng = Range("A2:A15") 'ponha o seu intervalo aqui
For Each myCell In rng.Cells
    If Len(myCell.Text) > 3 Then
        If Mid(myCell.Text, Len(myCell.Text) - 2, 1) = "." Then
            myCell.Value = CCur(Left(myCell.Text, Len(myCell.Text) - 3) & "," & Right(myCell.Text, 2))
            myCell.NumberFormat = "#,##0.00"
        End If
    End If
Next myCell
End Sub


Att
Ir para o topo Ir para baixo
Marreco12




Mensagens : 28
Data de inscrição : 12/10/2011

Substituir ponto por virgula em casas decimais. Empty
MensagemAssunto: Re: Substituir ponto por virgula em casas decimais.   Substituir ponto por virgula em casas decimais. EmptyQui Out 13, 2011 12:49 am

Espera
fekete o que você quer realmente?
Você quer que os valores ainda fiquem como numero? Ou que mude os valores para texto?
Se você realiza operação matemática com esses valores que você quer troca a simbologia você não pode transfoma-lo em texto.
Da maneira como escreveu deu a idéia que queria transforma-lo em texto, e foi o que o alexandrevba fez. Depois apresentou outro solução em VBA para transforma o numero.

Se você quer só troca a apresentação do numero é só seleciona o que você quer que fique com a aparencia de numero e então clica no icone que tem o desenho de de 3zeros "000" esse icone formata a célula selecionada para fica no formado de numero e com separador de milhar o ponto "." e o separador de decimais a virgula ",".

Aguardo resposta
Abraço
Ir para o topo Ir para baixo
Conteúdo patrocinado





Substituir ponto por virgula em casas decimais. Empty
MensagemAssunto: Re: Substituir ponto por virgula em casas decimais.   Substituir ponto por virgula em casas decimais. Empty

Ir para o topo Ir para baixo
 
Substituir ponto por virgula em casas decimais.
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» tabela de dados que altera e cópia de formulas nas colunas adjacents
» Substituir número por ícones...
» Como criar uma macro para substituir valores

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: