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á!
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
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
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,
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