Jump to content
Fórum Script Brasil
  • 0

Procurar um código na tabela


Question

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.

Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

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

 

 

Link to post
Share on other sites
  • 0

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.

Edited by Luana Bailon
Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      149405
    • Total Posts
      645894
×
×
  • Create New...