Notifications
Clear all

MACRO para apagar alguns números

5 Posts
4 Usuários
0 Reactions
692 Visualizações
(@preterotto)
Posts: 4
New 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)

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 13/01/2014 10:08 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 13/01/2014 10:10 am
(@preterotto)
Posts: 4
New 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
Fernando Fernandes
(@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.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/01/2014 12:10 pm