Ir ao conteúdo

Posts recomendados

Postado

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

 

Postado

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 .

Crie uma conta ou entre para comentar

Você precisa ser um usuário 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 comunidades 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

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!