1
resposta

Dúvidas em como limpar a lista combo sem precisar fechar o formulário.

No final da aula realizamos algumas travas para que o usuário consiga selecionar o tipo de veículo apenas pelos dados contidos na lista. Digamos que eu esteja usando um filtro por cliente, valor, peso e queira ver também por determinado tipo de veículo... depois decido apagar apenas os dados no campo do tipo de veículo para visualizar os filtros anteriores, com as travas que fizemos em aula o formulário não me permite apagar dados no campo do tipo de veículo! Mesmo fechando o formulário o sistema me informa um erro! Como posso resolver essa situação?

1 resposta

Olá Amauri, td bem?

provavelmente falta um detalhe no seu código que permite o campo vazio ( cmbTipoVeiculo.AddItem "" ) Por favor Verifique essa parte do seu código ... se está assim:

Private Sub UserForm_Activate() Dim iContador As Integer

iContador = 2

cmbTipoVeiculo.AddItem ""

Do While Sheets("Controle de Entregas").Range("G" & iContador) <> vbNullString
    If Not fnVerificaVeiculoNaLista(Sheets("Controle de Entregas").Range("G" & iContador)) Then
        cmbTipoVeiculo.AddItem Sheets("Controle de Entregas").Range("G" & iContador)
    End If

    iContador = iContador + 1
Loop

End Sub

Qq coisa mais fique a vontade para falar com a gente aqui pelo Fórum

Equipe do Prof. Sabino