Caixa de Combinação + Condicional

Pessoal boa tarde!
Preciso muito de uma ajudinha.

Estou montando um formulário de cadastros de consumo e perdas de matéria-prima.
Tenho uma Caixa de Combinação de nome LANC, onde constam os seguintes dados:
LANC.AddItem "1 - SAÍDA DO ALMOXARIFADO"
LANC.AddItem "2 - APLICAÇÃO NO PRODUTO"
LANC.AddItem "3 - PERDA INERENTE AO PROCESSO"
LANC.AddItem "4 - PERDA POR DESPERDÍCIO"

Preciso criar outra caixa chamada MOTIVO, onde eu consiga colocar a condicional de que se a opção escolhida foi a 3, me dá uma série de opção, se foi 4, uma outra série, e se foi a 1 ou 2, não apareça nada.

Existe essa possibilidade? Desde já, agradeço!

Cristiane Gellert escreveu:

Pessoal boa tarde!
Preciso muito de uma ajudinha.

Estou montando um formulário de cadastros de consumo e perdas de matéria-prima.
Tenho uma Caixa de Combinação de nome LANC, onde constam os seguintes dados:
LANC.AddItem "1 - SAÍDA DO ALMOXARIFADO"
LANC.AddItem "2 - APLICAÇÃO NO PRODUTO"
LANC.AddItem "3 - PERDA INERENTE AO PROCESSO"
LANC.AddItem "4 - PERDA POR DESPERDÍCIO"

Preciso criar outra caixa chamada MOTIVO, onde eu consiga colocar a condicional de que se a opção escolhida foi a 3, me dá uma série de opção, se foi 4, uma outra série, e se foi a 1 ou 2, não apareça nada.

Existe essa possibilidade? Desde já, agradeço!

Olá Tudo bem?

Você deve ter uma tabela contendo pelo menos duas colunas na primeira coloque o numero da opção relacionada a sua primeira caixa de combinação já na segunda coluna você coloca os informações que deseja carregar para a sua segunda caixa de combinação veja um exemplo:

3 OPÇÃO 3
3 OPÇÃO E
3 OPÇÃO D
3 OPÇÃ R
3 OPÇÃO X
4 INFORMAÇÃO E
4 INFORMAÇÃO R
4 INFORMAÇÃO T
4 INFORMAÇÃO X
4 INFORMAÇÃO Y


Depois você vai dar dois cliques sobre a sua primeira Caixa de combinação e vai escrever esse código no evento Change dela:

Private Sub LANC_Change()
MOTIVO.Clear

If LANC.Text = "1 - SAÍDA DO ALMOXARIFADO" Or LANC.Text = "2 - APLICAÇÃO NO PRODUTO" Then
    Exit Sub
End If

Dim LIN As Integer
LIN = 1

Do Until Sheets("DIGITE_O_NOME_PLANILHA_AUXILIAR").Cells(LIN, 1) = ""
   If Sheets("DIGITE_O_NOME_PLANILHA_AUXILIAR").Cells(LIN, 1) = LANC.ListIndex + 1 Then
   MOTIVO.AddItem Sheets("DIGITE_O_NOME_PLANILHA_AUXILIAR").Cells(LIN, 2)
   End If
LIN = LIN + 1
Loop

End Sub


Caso isso não resolva tente postar o anexo...

A se tiver um tempinho livre visite meu blog:
programacaopassoapassowordpress.com

Boa tarde!!

Veja também:
http://www.ozgrid.com/download/
http://chandoo.org/wp/2014/02/13/dynamic-cascading-dropdowns-that-reset/

Att