MACRO para apagar alguns números

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

5 Posts

4 Usuários

0 Reactions

703 Visualizações

RSS

Preterotto

(@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

(@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