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 | 
 

 Macro para formatação - Urgente

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



Mensagens : 2
Data de inscrição : 07/12/2012

MensagemAssunto: Macro para formatação - Urgente   Sex Dez 07, 2012 3:15 pm

Ola,

Preciso de uma macro no excel que leia valores que pode conter os seguintes exemplos: 123456-7, 123123, 123.456, 123.456-7.

E que retire:

o ponto quando houver;

o traço e o numero que estiver depois dele;

e coloque a letra M quando tiver 6 numeros e M mais o numero 0 quando tiver 5 numeros, ou seja, sempre deve ter 6 numeros.

Eu já tenho a macro para tirar o ponto (segue abaixo), porém não estou conseguindo fazer o resto.

Sub tiraPonto()
ActiveSheet.Select
coluna = 6
For linha = 1 To 1500
semponto = ""
conteudo = Cells(linha, coluna).Value
tamanho = Len(conteudo)
For x = 1 To tamanho
caracter = Mid(conteudo, x, 1)
If caracter <> Chr(46) Then
semponto = semponto & caracter
End If
Next x
Cells(linha, coluna).Value = semponto
Cells(linha, coluna).NumberFormat = "General"
Next linha
End Sub

Alguem poderia me ajudar...
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: Macro para formatação - Urgente   Sab Dez 08, 2012 3:06 pm

Bom dia!!

Veja se essa função te ajuda

Código:
Function GetNum(strIn As String) As Integer

    Dim objRegex
    Dim i As Integer
    Dim j As Integer
   
    Set objRegex = CreateObject("vbscript.regexp")
   
    With objRegex
    .Global = True
    .Pattern = "[^\d]+"
    GetNum = .Replace(strIn, vbNullString)
    End With
   
End Function
Voltar ao Topo Ir em baixo
Ver perfil do usuário
dresilv



Mensagens : 2
Data de inscrição : 07/12/2012

MensagemAssunto: Re: Macro para formatação - Urgente   Dom Dez 09, 2012 5:41 pm

Obrigado!!! Pela sua resposta....

Mas desculpe não entendi como chamar a função , fiz varias tentativas e não deu certo...como estou começando agora poderia me dar uma ajuda....

Desde já agradeço
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: Macro para formatação - Urgente   Dom Dez 09, 2012 10:28 pm

Boa tarde!!

Após abrir o excel, aperte as teclcas Alt + F11, depois aperte, Alt + I + M, cole o código.

Volte ao excel, digite =GetNum, pronto!

Leia também:
http://technet.microsoft.com/pt-br/library/ee662527.aspx
http://support.microsoft.com/kb/151490/pt-br

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Macro para formatação - Urgente   Hoje à(s) 2:51 am

Voltar ao Topo Ir em baixo
 
Macro para formatação - Urgente
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como valido cpf e cnpj em vba no access?
» Macro para exportar para o word
» [Resolvido] Erro em conversão de macro para código
» Macro para Excel armazenar dados no Access.
» [URGENTE] CAMPANHA BADA 2.0 PARA WAVES 525/533/723

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: