Bom dia,
Mais uma vez eu aqui solicitando ajuda de vocês. Estou com dificuldade de criar um loop que faça extração de determinados caracteres de texto da coluna ao lado, se a coluna tivesse sempre a mesma quantidade de linhas, ok, eu conseguiria, porém, ela varia muito. Então eu precisaria de um loop que identificasse da primeira à ultima linha e extraísse os quatro últimos caracteres de cada linha.
No exemplo anexo (com poucas linhas, pois a planilha real tem mais de 6 mil linhas), eu fiz em somente uma linha, usando a função mid, ai o que preciso é de um loop que faça isso nas demais linhas.
Qualquer dúvida quanto a explicação, estou por aqui rs.
Mais uma vez obrigado!
Rafael Luan
Bom dia:
Sub extrair_GT() Application.ScreenUpdating = False Dim UL As Long 'UL = Última Linha Dim i As Long UL = Cells(Rows.Count, "AG").End(xlUp).Row For i = 2 To UL Cells(i, "AH").Value2 = Right(Cells(i, "AG").Value2, 4) Next i Application.ScreenUpdating = True End Sub
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
RafaelLuan,
Bom Dia!
Veja se é assim:
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
gtsalikis, muito obrigado cara, o código funciona perfeito e Wagner, muito obrigado pela ajuda, o seu exemplo (muito parecido com o do gtsalikis) também funciona perfeitamente.
obrigado,
Rafael Luan