Este fórum está sendo desativado

[danielp]

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!

[GroverL]

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.

[danielp]

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.

[osvaldomp]

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