Combobox Encadeados [RESOLVIDO]
Enviado: Qua Set 26, 2012 10:17 am
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
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