Notifications
Clear all

Varrer célula para procurar determinada String

5 Posts
3 Usuários
0 Reactions
1,055 Visualizações
(@rhudenr)
Posts: 19
Active Member
Topic starter
 

Sou novo em VBA e preciso varrer uma célula para procurar determinada string por exemplo: ";"
Gostaria da ajuda de vocês com um código ou uma macro.

 
Postado : 01/08/2017 6:19 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

rhudenr,

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

 
Postado : 01/08/2017 6:43 am
(@osvaldomp)
Posts: 857
Prominent Member
 
Sub VerificaCaracter()
 Dim x As Long
 x = InStr([A1], ";")
 MsgBox x
End Sub

Se 'A1' contiver uva; banana; manga o código acima retornará 4, que é a posição da primeira ocorrência do ";".
Depois que você varrer a célula o código retornará zero. ;)

Osvaldo

 
Postado : 01/08/2017 6:44 am
(@rhudenr)
Posts: 19
Active Member
Topic starter
 

Obrigado! As duas respostas ajudaram muito.

 
Postado : 01/08/2017 6:48 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

rhudenr,

De nada. Por gentileza, vote positivamente clicando na mãozinha existente ao lado da ferramenta CITAR. Se as duas respostas lhe foram úteis,vote positivamente nas duas. Não há qualquer problema.

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 : 01/08/2017 8:38 am