Ir ao conteúdo
  • Cadastre-se
Marcelo Almeida Cruz

Excel Como comparar uma célula com uma coluna

Recommended Posts

Bom dia pessoal.

 

Estou montando um sistema de cadastro de fornecedores, e preciso comparar uma célula com uma coluna. Exemplo:

Na plan 1, eu tenho o banco de dados com nome, celular, telefone fixo, e-mail, e falar com.
Na plan 2, quero buscar todos esses dados, somente inserindo o nome do fornecedor.

Vi uma video-aula que ensinava este processo por um código numérico, mas não é este o meu objetivo, já que eu tenho mais de 500 fornecedores, e precisaria decorar o código de cada um deles.

 

Abaixo, estão as imagens da minha planilha (os dados foram alterados por questão de segurança).

image.png.283f4637ad2ebe2a556588ace3fe2b94.pngimage.png.5cda7dcaa6777f0760430a13b88a88b2.png

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tenta fazer com macros usando VISUAL BASIC .

 

Você vai precisar percorrer todas as células que tem o nome do fornecedor e ao achar essa célula usar o número da linha para recuperar os outros valores .

 

Como ativar a guia de desenvolvedor no Excel

 

Segue esse tutorial aqui para ativar a guia e criar uma macro : Techtudo : como criar macros no Excel

 

Ao clicar no botão macro para ver a macro gravada , clica em editar e cola o abaixo código dentro da macro e faz um botão e adiciona a macro ao botão .

 

Cola o código somente depois do cabeçalho substituindo o código que foi gerado quando a macro foi criada se ao criar a macro você realizou alguma ação como mudar a seleção para alguma célula .

 

Como fazer o botão

 

///EXEMPLO DE CÓDIGO

//SE NÃO ME ENGANO : Worksheets(1) é igual a primeira planilha e assim sucessivamente .

//Cells(i,j).Value recupera o valor da célula em linha i e coluna j .

//INÍCIO DO CÓDIGO---COPIAR A PARTIR DA LINHA ABAIXO

Dim i As Integer

 

i = 0

While Worksheets(2).Cells(1, 2).Value <> Worksheets(1).Cells(i, 1).Value

  i += 1

End While

 

Worksheets(2).Cells(2, 2).Value = Worksheets(1).Cells(i, 2).Value

Worksheets(2).Cells(3, 2).Value = Worksheets(1).Cells(i, 3).Value

Worksheets(2).Cells(5, 2).Value = Worksheets(1).Cells(i, 4).Value

Worksheets(2).Cells(6, 2).Value = Worksheets(1).Cells(i, 5).Value

//FIM DE CÓDIGO--- COPIAR ATÉ A LINHA ACIMA

 

Estou sem Excel então não deu para testar .

 

Para saber mais códigos você pode pegar vários exemplos de códigos de como são feitos gravando uma macro e realizando as ações , quase todas as ações vão gerar um código .

Editado por ALEXANDROGONSAN
A variável i não havia teve o seu valor inicializado .

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×