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...