[Anónimo]

bom dia galerinha!

eu consigo fazer combobox interligados, mas quando estão separados por colunas ou linhas ou definido nome ao grupo.

o que estou tentando fazer é dentro de um banco de dados, existem 3 informações: empresa, filial, cidade.

ao abrir o userform, ele busca todos os nomes das empresas na coluna a e cria o cb_empresa. (dúvida: nao sei como faz para não aparecer nomes repetidos, favor ajudar.)

ao selecionar o nome da empresa no cb_empresa, gostaria que fizesse uma busca no banco de dados e voltasse todas as possibilidades da coluna b relacionados a escolha no cb_filial.

após selecionado a filial, no txt_cidade aparece o nome da cidade. (esse tudo bem.)

segue arquivo para melhor entendimento.

qualquer dúvida, favor postar.
favor me ajudar o mais rápido possível, estou empacado.

att.
wagner goularte
ComboBox.zip

[Anónimo]

bom galerinha,

mais uma vez consegui achar como se faz… é só adaptar. segue abaixo.

option explicit

private sub userform_initialize()
dim ocollection as new collection
dim varvalue as variant
dim i as long
on error resume next
for each varvalue in plan1.range(“a2:a” & plan1.range(“a65536”).end(xlup).row)
ocollection.add varvalue, varvalue
next
for i = 1 to ocollection.count
combobox1.additem ocollection.item(i)
next i
end sub

private sub combobox1_exit(byval cancel as msforms.returnboolean)
combobox2.clear
dim i as long
for i = 2 to plan1.range(“a65536”).end(xlup).row
if combobox1.value = plan1.range(“a” & i).value then
combobox2.additem plan1.range(“b” & i).value
end if
next i
end sub

att.
wagner goularte

[jorgerod]

boas, wagner,

fixe. obrigado. a tua participação no forum tem sido óptima!!!!!! 🙂

[Autor]

Artigos