Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Função MID (extrair...
 
Notifications
Clear all

Função MID (extrair texto)

 
2024 - VBA & Macros
Post Recente por RafaelLuan 11 anos atrás
4 Posts
3 Usuários
0 Reactions
967 Visualizações
RSS
RafaelLuan
 RafaelLuan
(@rafaelluan)
Posts: 26
Eminent Member
Topic starter
 

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!

Exemplo.rar

Rafael Luan

 
Postado : 20/05/2014 6:50 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

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

 
Postado : 20/05/2014 7:06 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

RafaelLuan,

Bom Dia!

Veja se é assim:

Exemplo.zip

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 : 20/05/2014 7:08 am
RafaelLuan
 RafaelLuan
(@rafaelluan)
Posts: 26
Eminent Member
Topic starter
 

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

 
Postado : 20/05/2014 7:51 am
Forum Jump:
  Tópico Anterior
Próximo Tópico