Pessoal,
Alguém aí manja dos paranauês do mundo obscuro do Excel?
Preciso criar num UserForm, uma combbox com valores que dependem do que uma outra combbox me dá.
A primeira CombBox chama-se LANC (de Lançamentos) e teve os seguintes valores adicionados:
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"
Depois disso, fiz a seguinte atribuição:
Dim str_Lanc As String
str_Lanc = Me.LANC.Value
Agora me compliquei toda… estou trabalhando com IF, THEN e ELSE, aninhados conforme abaixo.
A outra combbox se chama MOTIVO (motivos dos lançamentos).
Mas em meu USERFORM não aparecem as opções.
Imagino que seja algo bem bobo que eu esteja fazendo, e não consigo enxergar!
If str_Lanc = "3 - PERDA INERENTE AO PROCESSO" Then
'Perdas inerentes ao processo
MOTIVO.AddItem "1 - MATERIAL IMPREGNADO"
MOTIVO.AddItem "2 - SQUEEZE OUT"
If str_Lanc = "4 - PERDA POR DESPERDÍCIO" Then
'Perdas por desperdício
MOTIVO.AddItem "1 - SOBRAS EM BALDE"
MOTIVO.AddItem "2 - CURA POR ATRASO"
MOTIVO.AddItem "3 - CURA TEMPERATURA"
MOTIVO.AddItem "4 - MOVIMENTAÇÃO"
If str_Lanc = "2 - APLICAÇÃO NO PRODUTO" Then
'Produção
MOTIVO.AddItem "PRODUÇÃO"
Else
MOTIVO.AddItem "PRODUÇÃO"
End If
End If
End If
Desde já, agradeço imensamente a ajuda!