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  

 

 Macro para formatação - Urgente

Ir para baixo 
2 participantes
AutorMensagem
dresilv




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

Macro para formatação - Urgente Empty
MensagemAssunto: Macro para formatação - Urgente   Macro para formatação - Urgente EmptySex 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...
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Macro para formatação - Urgente Empty
MensagemAssunto: Re: Macro para formatação - Urgente   Macro para formatação - Urgente EmptySáb 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
Ir para o topo Ir para baixo
dresilv




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

Macro para formatação - Urgente Empty
MensagemAssunto: Re: Macro para formatação - Urgente   Macro para formatação - Urgente EmptyDom 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Macro para formatação - Urgente Empty
MensagemAssunto: Re: Macro para formatação - Urgente   Macro para formatação - Urgente EmptyDom 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
Ir para o topo Ir para baixo
Conteúdo patrocinado





Macro para formatação - Urgente Empty
MensagemAssunto: Re: Macro para formatação - Urgente   Macro para formatação - Urgente Empty

Ir para o topo Ir para baixo
 
Macro para formatação - Urgente
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Macro - Construir uma macro para inserir valores em um RANGE
» Ajuda Urgente - Range em Macro
» Busca de Informações através de macro - urgente
» Macro para passar valores de um livro para outro
» Formatação para conteúdo da célula

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: