Notifications
Clear all

MACRO para apagar alguns números

5 Posts
4 Usuários
0 Reactions
687 Visualizações
(@preterotto)
Posts: 4
Active Member
Topic starter
 

Boa tarde pessoal,

Sou novo no fórum, já fiz algumas pesquisas que me ajudaram muito.

Preciso de ajuda em um macro, diariamente recebo inúmeros códigos meu sistema não aceita letras, então preciso de um macro que apague as duas primeiras letras e partir para próxima linha.

Exemplo:
Como é:
AB0000001
AB0000002
AB0000003

Como tem que ficar:
000001
000002
000003

Agradeço desde já!

 
Postado : 13/01/2014 9:19 am
(@gtsalikis)
Posts: 2373
Noble Member
 

O ideal é vc colocar um exemplo da planilha, ou então, especificar onde estarão esses dados e se vc quer que eles fiquem no mesmo lugar (que foi o que eu entendi).

Também dá pra fazer com fórmula, usando:

=DIREITA(A1;NÚM.CARACT(A1)-2)

 
Postado : 13/01/2014 10:08 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Preterotto,

Bom Dia!

Segue uma sugestão, via código VBA. Você pode utilizar o código abaixo, por exemplo:

Sub ExtrairNumero()
    Dim i, UltimaLinha As Long
    Dim Texto As String
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    For i = 1 To UltimaLinha
        Texto = Mid(Range("A" & i).Value, 3, Len(Range("A" & i).Value) - 2)
        Range("A" & i).Value = "'" & Texto
    Next
End Sub
 
Postado : 13/01/2014 10:10 am
(@preterotto)
Posts: 4
Active Member
Topic starter
 

Boa Tarde Pessoal.

gtsalikis- foi certinho o que eu precisava... entendi a fórmula e apliquei!
Wagner Morel- Muito obrigado pela atenção, deu tudo certo também!

Grato,

 
Postado : 13/01/2014 11:54 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 13/01/2014 12:10 pm