Erro ao selecionar ListBox e critério de pesquisa [RESOLVIDO]

[George2342]

Bom dia amigos(as).

Gentileza, mais uma vez preciso de ajuda dos nobres colegas, caso possam ajudar. Fiz um pequeno projeto, onde quando clico na ListBox (selecionando um item) ela jogo os dados nas TextBoxs correspondentes.

Tudo está perfeito, exceto por um erro que não estou conseguindo resolver faz dias. O problema é o seguinte:

Tenho uma ComboBox que serve como critério de classificação da ListBox, chamado "CMB_STATUS_PESQUISA", onde quando escolhido mostra apenas por status os dados da ListBox.

Ocorre que ele só está funcionando quando a ListBox NÃO foi selecionada, ou seja, quando ninguém clicar sobre a ListBox para selecionar algo.

Caso a ListBox esteja "clicada", selecionada algum item, e eu tente usar o critério da ComboBox "CMB_STATUS_PESQUISA", surgirá a seguinte mensagem de erro:

"Erro em tempo de execução '381':"
"Não é possível obter a propriedade List. Índice de matriz de propriedade inválida"

Alguém sabe como resolver? Sei que o erro, provavelmente, pode estar no código de lançar dados da ListBox nas TextBoxs... Mas não consegui achar um código diferente.

Segue código modelo, para melhor servir.

Dim Linha As Double
With ListBoxDados
Linha = .ListIndex
txtID.Value = .List(Linha, 0)
TXT_NOME.Value = .List(Linha, 1)
TXT_DATA.Value = .List(Linha, 2)
TXT_DINHEIRO.Value = .List(Linha, 3)
CMB_STATUS.Value = .List(Linha, 4)

End With

[Reinaldo]

Aparentemente o erro ocorre quando inicia a rotina "CARREGAMENTO_LISTBOX_FILTRO_STATUS.." o listbox e "limpo", e isso "aciona" a rotina ListBoxDados_Change, sendo que nesse momento não há registros no listbox
Experimente a alteração abaixo

Código: Selecionar todos

Private Sub ListBoxDados_Change()
Dim Linha As Double
If ListBoxDados.ListCount > 0 Then
    With ListBoxDados
        Linha = .ListIndex
        txtID.Value = .List(Linha, 0)
        TXT_NOME.Value = .List(Linha, 1)
        TXT_DATA.Value = .List(Linha, 2)
        TXT_DINHEIRO.Value = .List(Linha, 3)
        CMB_STATUS.Value = .List(Linha, 4)
    End With
End If
End Sub

[George2342]

Nossa! Muito bom mesmo, não tinha percebido por essa lógica. Desde já muito obrigado, funcionou perfeitamente. Agradeço muito!