Notifications
Clear all

Lista suspensa VBA

14 Posts
1 Usuários
0 Reactions
4,145 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia a todos,

Preciso de uma ajuda, tenho uma planilha que constam vários tipos (que mudam constantemente)
para esses tipos existem códigos, preciso que apareça uma lista suspensa com todos esses tipos (lembrando que sempre muda)
e quando o usuário escolher o tipo aparece ao lado outra lista suspensa com todos os códigos associados aquele tipo
estou enviando uma planilha como exemplo.

Estou quebrando a cabeça, e não consegui, se alguém puder me ajudar =)

abraços

 
Postado : 10/11/2011 8:10 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom cara é o seguinte:
Não entendi bem oque vc quer.
Quanto aos dados mudarem vc pode fazer um range dinamico como no exemplo em anexo.
porem na segunda coluna não entendi oque quer; Vc quer na mesma celula todos os codigos que correspondem ao criterio?
Abra o anexo, verifique a validaçãona C1, depois acrescente valores na coluna A e verifique na validação.
De mais detalhes.
BLZ?
T+

 
Postado : 11/11/2011 6:09 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Anderson,
Obrigada pelo retorno, eu preciso que a lista suspensa dinâmica não venha com valores repetidos.

Exemplo plan1 coluna A (valores dinamicos)
1
2
1
1
3
Lista suspensa aparecerá...
1
2
3
sem os valores repetidos

Agradeço desde já atenção de todos

 
Postado : 16/11/2011 11:24 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja se é isto.

Considerações:
- Usada a coluna F para guardar a lista de validação;
- O intervalo usado na coluna F foi nomeado de Validação;
- Ao ativar a planilha Lista Suspensa, o intervalo é recalculado pela macro;
- Foi criada a função BUSCAVALORES para retornar os valores;

 
Postado : 16/11/2011 8:39 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia, Alexandre

Muitoooo bom =)
Porém, na buscavalores eu preciso que os valores venham em uma lista suspensa, teria como?
da forma que está ele vem todos os valores separados por virgula

agradeço a atenção de todos!

Obrigada =)

 
Postado : 17/11/2011 8:13 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Está quase...

Tem que ir lá configurar a validação para ele apresentar direito...

 
Postado : 17/11/2011 3:04 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Se me permitam,

Para que a Lista não apareça da seguinte forma : 111;222
É só alterar o ";" (ponto e virgula) na Rotina por "," (virgula)

Ficando :
TMP = TMP & "," & Worksheets("Plan1").Range("B" & L)
e
If Left(TMP, 1) = "," Then

[]s

 
Postado : 17/11/2011 5:50 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite, Alexandre
Preciso que a lista não venha com os valores separados por virgula ou ponto e virgula, e sim, cada item em uma linha.
Será que tem como? estou tentando mas não consegui =/

Obrigada pela atenção

 
Postado : 17/11/2011 5:53 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Já tinha conseguido ajustar.... mesmo assim, obrigado pela ajuda!

Conforme você acrescenta valores na coluna A da planilha Listas suspensas, a macro reconhece o novo intervalo e vai adicionando a validação de acordo com o valor da coluna A na mesma linha...

 
Postado : 17/11/2011 5:54 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mauro,
quanto postei não tinha visto seu post, eu preciso que apareça uma lista em vez de separado por ";" ou ","

obrigado a todos pela atenção

 
Postado : 17/11/2011 5:55 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Você o arquivo que postei por último?

Está resolvida a forma que a validação aparece ...

 
Postado : 17/11/2011 8:49 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Não tenho nem como agradecer =)

Ficou ótimoooooo, muitooo obrigadaaaaaaaaaaaaa :D :D :D :D :D :D :D :D :D :D :D

 
Postado : 18/11/2011 5:21 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Senhores, boa tarde. Estou pesquisando sobre listas suspensas e parece que o assunto de vcs aqui nesse [RESOLVIDO] me interessa. Entretanto tudo que tentei baixar, não abre. o problema é aqui comigo ou os links/arquivos estão quebrados mesmo?

 
Postado : 27/06/2016 2:15 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

fotoegrafica

Todos os anexos postados antes da migração do fórum, para o novo provedor, ficaram corrompidos.

[]s

 
Postado : 27/06/2016 2:24 pm