Procurar um código na tabela

[phl]

Olá, sou leigo no VBA ainda, mas estou precisando de ajuda para montar um código. Desde agradeço qualquer ajuda.

Tenho uma tabela (7x14) e nela existem vários códigos e eu preciso que ao digitar o código que o usuário busca, o programa retorne a posição na tabela (linha e coluna) e pinte a célula na tabela, para diferenciar das demais.

[Curso de Excel Grátis]

boa tarde 

você pode fazer um looping que passa pelas linhas e outro pelas colunas, algo assim

 

for linha = 1 to 7

 for coluna = 1 to 14

  if cells(linha,coluna) = valorprocurado then

    'pintar

  end if

next coluna

next linha

 

mas provavelmente da pra fazer sem VBA também

 

no meu canal no youtube tenho alguns videos com os primeros passos de VBA

 

www.cursodeexcelgratis.com.br/canal

 

 

[Luana Bailon]

Boa noite, veja se esse código aqui pode te ajudar, adapte a seu modo.

Sub buscarcodigo()

Dim mensagem As Variant
Dim linha As Long, coluna As Long

mensagem = InputBox("Insira o código desejado.")
linha = Planilha1.Rows().Find(mensagem, , , xlWhole).Row
coluna = Planilha1.Columns().Find(mensagem, , , xlWhole).Column

    Planilha1.Cells(linha, coluna).Interior.Color = vbGreen
    MsgBox Cells(linha, coluna).Address
    
End Sub

Caso queira registrar em uma célula, substitua a linha onde está o MsgBox para:

Planilha1.Range("céluladesejada").Value = Cells(linha, coluna).Address

Você também pode atribuir esse código a uma Forma dentro da planilha, como se fosse um "botão", se quiser.

Editado Maio 13, 2021 por Luana Bailon