Olá pessoal,
Estou montando um formulário de cadastro onde possui diversos combobox encadeados, porém quando o usuário clica em um combobox vazio e dá enter ou clica no encadeado, o Excel emite uma mensagem de "Valor de Propriedade Inválido", pois trava e não sai do logar. O código que estou utilizando é o seguinte:
Private Sub origem_Click()
Dim OCOLLECTION As New Collection
Dim VARVALUE As Variant
Dim I As Long
Dim L As Long
L = 2
Combobox1.Clear
On Error Resume Next
For Each VARVALUE In Plan4.Range("B2:B" & Plan4.Range("A65536").End(xlUp).Row)
If Combobox1.Value = Plan4.Range("A" & L).Value Then
OCOLLECTION.Add VARVALUE, VARVALUE
End If
L = L + 1
Next
For I = 1 To OCOLLECTION.Count
Combobox2.AddItem OCOLLECTION.Item(I)
Next I
End Sub
Será que alguém pode me ajudar???
Ricardo
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Combobox Encadeados [RESOLVIDO]
-
- Colaborador
- Mensagens: 34
- Registrado em: Seg Set 24, 2012 5:06 pm
Combobox Encadeados [RESOLVIDO]
Editado pela última vez por ricardourias em Seg Dez 17, 2012 2:43 pm, em um total de 1 vez.
Re: Combobox Encadeados
Nesse caso, a planilha inteira ajuda mais. Mande como anexo. Antes disso, mapeou a linha na qual o erro ocorre?
Abraços
Abraços