Selecionar todas as células que contem inpubox  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Selecionar todas as células que contem inpubox

Mensagempor fefo32br » Sex Ago 10, 2018 11:24 am

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á!
Você não está autorizado a ver ou baixar esse anexo.
fefo32br
Membro
Membro
 
Mensagens: 16
Registrado em: Sex Dez 01, 2017 4:37 pm
Has thanked: 4 times
Have thanks: 0 time

{ SO_SELECT }

Re: Selecionar todas as células que contem inpubox

Mensagempor xlarruda » Sex Ago 10, 2018 12:10 pm

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
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 750
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 94 times
Have thanks: 301 times

Re: Selecionar todas as células que contem inpubox

Mensagempor fefo32br » Sex Ago 10, 2018 12:23 pm

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!
fefo32br
Membro
Membro
 
Mensagens: 16
Registrado em: Sex Dez 01, 2017 4:37 pm
Has thanked: 4 times
Have thanks: 0 time

Re: Selecionar todas as células que contem inpubox

Mensagempor wagner » Sex Ago 10, 2018 1:27 pm

fefo32br,

Boa tarde!

Veja se é assim.
Você não está autorizado a ver ou baixar esse anexo.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4294
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1858 times

Re: Selecionar todas as células que contem inpubox  [Resolvido]

Mensagempor xlarruda » Sex Ago 10, 2018 2:01 pm

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

Código: Selecionar todos
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
Você não está autorizado a ver ou baixar esse anexo.
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

For this post the author xlarruda thanked:
fefo32br (Sex Ago 10, 2018 2:36 pm)
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 750
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 94 times
Have thanks: 301 times

Re: Selecionar todas as células que contem inpubox

Mensagempor fefo32br » Sex Ago 10, 2018 2:36 pm

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!!!
fefo32br
Membro
Membro
 
Mensagens: 16
Registrado em: Sex Dez 01, 2017 4:37 pm
Has thanked: 4 times
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google [Bot] e 4 visitantes