Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Selecionar todas as...
 
Notifications
Clear all

Selecionar todas as células que contem inpubox

 
2024 - VBA & Macros
Post Recente por fefo32br 6 anos atrás
6 Posts
3 Usuários
0 Reactions
1,420 Visualizações
RSS
 fefo32br
(@fefo32br)
Posts: 44
Eminent Member
Topic starter
 

Olá!

Gostaria de saber se há como criar uma macro que selecione todas as células que forem iguais ao que eu digitar em um inputbox...
como se fosse um "ctrl + L / selecionar tudo / selecionar todas as células com a ocorrência"... isso é o que eu faço normalmente, mas preciso de uma forma de automatizar esse processo.

Por exemplo, na planilha anexa, gostaria de digitar "ship" no inputbox e selecionar todas as células que tem esse texto.

(no caso: AD9, AE9, AK9, etc)

Obrigado desde já!

 
Postado : 10/08/2018 8:24 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Olá colega fefo32br Bom dia!
Você precisa selecionar essas células para alcançar qual objetivo?

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 10/08/2018 9:10 am
 fefo32br
(@fefo32br)
Posts: 44
Eminent Member
Topic starter
 

Olá!

As vezes para apagar, as vezes para editar, as vezes só para saber onde é a primeira ocorrência (ou a última).. cada caso, um caso rsrs

a parte de selecionar é que realmente não sei..

o após (selection.várias ações), eu consigo me virar aqui.

Obrigado!

 
Postado : 10/08/2018 9:23 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

fefo32br,

Boa tarde!

Veja se é assim.

TEST.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 : 10/08/2018 10:27 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

O colega Wagner já respondeu mas vou postar mesmo assim pois deu um pouco de trabalho.

Option Compare Text
Sub selecionar()
On Error Resume Next
Dim mystring As String
Dim cont As Long
termo = Application.InputBox("Digite o termo a procurar:", "Procurar", Type:=2)
For Each celula In Plan1.UsedRange
If celula.Value = termo Then
mystring = mystring & celula.Address(0, 0) & ","
End If
Next
mystring = Left(mystring, Len(mystring) - 1)
Range(mystring).Select
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 10/08/2018 11:01 am
 fefo32br
(@fefo32br)
Posts: 44
Eminent Member
Topic starter
 

Wagner e André,

MUITO obrigado pela prestatividade e ajuda.

A solução do André se aplica melhor ao meu caso por ser mais "flex", mas agradeço aos dois da mesma forma.

Abs!!!

 
Postado : 10/08/2018 11:36 am
Forum Jump:
  Tópico Anterior
Próximo Tópico