Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Combobox Encadeados [RESOLVIDO]

Ponto de encontro entre aqueles que precisam e fornecem soluções baseadas no Microsoft Excel e VBA. Precisa de uma solucão em VBA? É um consultor ou programador independente? Esse é o lugar!
ricardourias
Colaborador
Colaborador
Mensagens: 34
Registrado em: Seg Set 24, 2012 5:06 pm

Combobox Encadeados [RESOLVIDO]

Mensagem por ricardourias » 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
Editado pela última vez por ricardourias em Seg Dez 17, 2012 2:43 pm, em um total de 1 vez.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 2608
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Combobox Encadeados

Mensagem por webmaster » Qui Set 27, 2012 12:03 pm

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

Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Responder