Guru do Excel e Power BI

Fala galera,
Eu tenho um arquivo que é o database de itens de 2 empresas. Cada uma tem um código. Então eu gostaria de sempre que eu tenha que colocar os dois código das empresas, ao escrever um deles eu clique na macro e ela busque o código no database, selecione o código da empresa correspondente, copie e cole na célula ao lado da que estou selecionado.
Fiz um arquivo de demonstração com cores e animais. A aba 1 é o database e as demais são abas que utilizarei os códigos para relatórios, que no caso variam a posição. Por isso coloquei em vários lugares as tabelas com os nomes dos animais. Então por exemplo na aba 2, ao escrever GATO, eu clique na macro e ela preencha ao lado a cor dele que está no database. E assim para os demais... Muito obrigado pela ajuda!

Boa noite Daniel.

Não sou expert em VBA, mas acho que como a posição do critério animal pode estar em qualquer lugar na planilha, acredito que a macro terá que fazer um varredura muito ampla, talvez isso deixaria a planilha um pouco lenta.

Se caso fixar o critério animal, poderia usar um PROCV.

Att.

Então, eu não manjo muito da PROCV... tentei usar umas vezes mas sempre deu falha. Além disso eu não gostaria de ter que ficar escrevendo a fórmula toda vez que eu precisasse procurar o código da empresa. Acha que a Macro não é uma boa opção? O critério animal estará na aba database, não será em qualquer lugar.

Experimente o código abaixo.
Mantenha selecionada a célula com o nome do animal e rode o código.

Código: Selecionar todos

Sub BuscaAnimal()
 Dim cat As Range
  Set cat = Sheets("Plan1").[A:A].Find(ActiveCell.Value, lookat:=xlWhole)
  If Not cat Is Nothing Then ActiveCell.Offset(, 1) = cat.Offset(, 1)
End Sub

Guru do Excel e Power BI

Busca e preenchimento automático

Busca e preenchimento automático

Busca e preenchimento automático

Busca e preenchimento automático

Re: Busca e preenchimento automático