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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Substituir ponto por virgula em casas decimais.

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
fekete



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

MensagemAssunto: Substituir ponto por virgula em casas decimais.   Qui 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!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Substituir ponto por virgula em casas decimais.   Sex 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..
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Substituir ponto por virgula em casas decimais.   Sab 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Marreco12



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

MensagemAssunto: Re: Substituir ponto por virgula em casas decimais.   Qui 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Substituir ponto por virgula em casas decimais.   Hoje à(s) 5:16 am

Voltar ao Topo Ir em baixo
 
Substituir ponto por virgula em casas decimais.
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Retirar ponto e virgula do layout do fórum
» [Resolvidos]Arredondar e mostar 2 casas decimais dentro da combobox
» [Resolvido] É mesmo necessario o "ponto e virgula"??
» [Resolvido]Casas decimais via VBA
» [Resolvido]Alterar propriedades "Formato" e "Casas Decimais" de um campo em uma tabela via código VBA

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: