none
RowSource Combobox sem repetição dos itens RRS feed

  • Pergunta

  • Grandes Mestres do VBA,

    Recorro a vossa sabedoria, pois já excedi todos os limites a mim, pobre mortal, designados. Já vi em alguns outros tópicos o assunto relacionado a propriedade 'rowsource' para o combobox, no entanto consegui aplicar para resolver o meu problema.

    // EIS A QUESTÃO: //

    - Tenho uma planilha com duas sheets. Em uma das sheets, "níveis", tem 5 colunas, denominadas "Nivel 1", "Nivel 2", "Nivel 3", "Nivel 4" e "Nivel 5"; nelas constam dados para os combobox que preciso criar.

    - Na outra sheet, "cadastro", tenho os mesmos nomes para as colunas (localizadas nas colunas "A até E").

    - Criei um formulário que tem 5 combobox, uma para cada uma das colunas da sheet "níveis" e dois botões (um "ok" e outro "reset").

    // O QUE PRECISO: //

    - Preciso que na combobox1 (nível 1) apareça todos os dados da rowsource da coluna A:A da sheet  "níveis", e assim por diante, só que os dados de cada combobox está vinculado ao dado que foi selecionado na combobox anterior, ou seja comboboxes relacionados.

    O problema aqui é que tenho dados repetidos para as colunas. Por exemplo:

    Tipo 1 - Carro - Velho
    Tipo 1 - Carro - Novo
    Tipo 1 - Moto - Velho
    Tipo 1 - Moto - Novo
    Tipo 1 - Barco - Novo
    Tipo 1 - Barco - Velho
    Tipo 2 - Avião
    Tipo 2 - Helicóptero

    Contando os dados repetidos que tenho nas colunas, o total de rows que tenho na sheet "níveis" é aproximadamente 8000 linhas. Gostaria que nas combobox, os dados repetidos apareceçe uma única vez a informação e os dados a ela relacionados na combobox seguinte.

    - Quando eu clicar em uma céluna da coluna "A:A" da sheet "cadastro", o formulário apareçe, e ao escolher todas as opções e clicar em "ok" a linha da célula que cliquei seja preenchida e o formulário fechado. Caso eu clique no botão "reset", os combobox "zeram" e o "tab" volte para a tabindex "0", ou seja, o combobox "nível 1" e os dados que foram preenchidos na planilha também seja apagados.

    //

    Espero que tenha explicado corretamente.

    Gostaria muito da ajuda de vocês, já que dependo desta solução para implementar num projeto do serviço.

    Agradeço antecipadamente.

    T.Figueira
    domingo, 4 de maio de 2008 19:08

Respostas