Logo Hardware.com.br
walisonfox
walisonfox Novo Membro Registrado
3 Mensagens 0 Curtidas

Percorrendo uma lista e mostrando o valor encontrado na celula -VBA

#1 Por walisonfox 07/10/2015 - 13:34
Olá, Pessoal.

Tenho uma lista exemplo:
33333333
55555555
33333333

Não estou conseguindo percorrer essa lista e encontrado o valor. Quero programar um vba que funcione assim. Ao clicar no botão ele selecione a primeira linha da celular A1 e pegue esse favor e vai comparando com a linha A2, A3 e etc... Ao encontrar um valor igual, ele escreve o valor encontrado em outra celula B1. Depois pule para outra linha A2 e percorre novamente a linha se encontrar o valor igual, escreve na celula B2. Vai chegar um momento que ele vai pega um mesmo valor, por exemplo: Na linha 1 tem 33333333 ja percorreu a lista e encontrou um valor igual e salvou na celula B1 e na linha 3: tem o mesmo valor 33333333, então ele não precisa percorrer a lista novamente e nem escreve de novo na coluna B.

Será que tem jeito de fazer isso no VBA e excel.

Fico no aguardo. Obrigado.
lista excel celula vba lista valor encontrado mostrando celula vba percorrendo 33333333
Marcelo G Prudencio
Marcelo G Pr... Geek Registrado
1K Mensagens 227 Curtidas
#3 Por Marcelo G Pr...
07/10/2015 - 14:13
Nao entendi direito mas me parece que vc quer excluir os repetidos.

Se é isso o proprio excel faz isso com um clique em Dados Remover Duplicadas.
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho." - Autor Desconhecido
Simplifica que simples fica. - Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado" - Jorge Paulo Lemann.
Marcelo G Prudencio
Marcelo G Pr... Geek Registrado
1K Mensagens 227 Curtidas
#6 Por Marcelo G Pr...
07/10/2015 - 15:56
Continuo dizendo o Remover duplicados ou um filtro avançado faz isso com facilidade a proxima coluna onde vc conta qtas vezes os itens se repetiram um cont.se resolve.

Pesquise sobre filtro avançado e sobre cont.se
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho." - Autor Desconhecido
Simplifica que simples fica. - Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado" - Jorge Paulo Lemann.
Basole
Basole Geek Registrado
945 Mensagens 596 Curtidas
#8 Por Basole
07/10/2015 - 17:47
Segue sugestao com formulas:

Em B2 insira a formula:
=SEERRO(ÍNDICE($A$2:$A$12; CORRESP(0; CONT.SE($B$1:B1; $A$2:$A$12); 0));"&quot

* Por se tratar de uma formula matricial: selecione a celula B2, coloque o cursor na barra de formulas e aperte as teclas [ Cltr + shift+ Enter], em seguida arraste a ate linha 12.

E na C2 insira a formula:
=SE(B2="";"";SE(CONT.SE(A:A;B2)>1;CONT.SE(A:A;B2);0))

E arraste ...

Anexos

Exemplo-v1.xlsx
Click em Curtir se a resposta foi útil. boa.gif Dê retorno por favor. Se resolveu, atencao_regras.gif Altere o Titulo como [ Resolvido ] comemorando.gif
Marcelo G Prudencio
Marcelo G Pr... Geek Registrado
1K Mensagens 227 Curtidas
#9 Por Marcelo G Pr...
07/10/2015 - 18:10
Walhart ele vai copiar a lista em outra coluna e vai excluir os duplicados nessa nova c0luna sem mexer no original e com base na segunda coluna que estara em b ele faz o cont,se.

Somente isso
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho." - Autor Desconhecido
Simplifica que simples fica. - Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado" - Jorge Paulo Lemann.
Walhart
Walhart Super Participante Registrado
185 Mensagens 65 Curtidas
#10 Por Walhart
08/10/2015 - 10:28
Particularmente acho bem mais facil fazer por funções ou tabela dinâmica... aí não tem o "trabalho" de ficar copiando de um lado, colando do outro, removendo duplicados e completando fórmulas...

"Sempre escolho uma pessoa preguiçosa pra fazer um trabalho difícil. Ela sempre vai tentar encontrar a maneira mais fácil de fazê-lo."
Bill Gates

rindo_atoa.gif
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal