Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda Macro para St...
 
Notifications
Clear all

Ajuda Macro para Strings

 
2024 - VBA & Macros
Post Recente por Hugomoreda 10 anos atrás
3 Posts
2 Usuários
0 Reactions
843 Visualizações
RSS
 Hugomoreda
(@hugomoreda)
Posts: 34
Trusted Member
Topic starter
 

Gostaria de uma ajuda para fazer uma macro que pegue tudo que está a direita do último caracter "/".

Exemplo:

siteglobo/esportes/futebol

resultado da macro: futebol

jornalnacional/culinaria/receitas

resultado da macro: receitas

Muito obrigado!!!

 
Postado : 08/05/2014 11:47 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Ve se ajuda:

Sub PEGADireita_GT()

Dim Info        As String
Dim Partes()    As String

Info = "siteglobo/esportes/futebol"

Partes() = Split(Info, "/")
Info = Partes(UBound(Partes))

End Sub
 
Postado : 08/05/2014 12:21 pm
 Hugomoreda
(@hugomoreda)
Posts: 34
Trusted Member
Topic starter
 

E como! Perfeito!

Obrigado!

 
Postado : 08/05/2014 12:31 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico