Combobox Encadeados [RESOLVIDO]

[ricardourias]

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

[webmaster]

Nesse caso, a planilha inteira ajuda mais. Mande como anexo. Antes disso, mapeou a linha na qual o erro ocorre?

Abraços