Este fórum está sendo desativado

[Luciano021273]

Bom dia,
Gostaria de um exemplo simples de como carregar combobox com critério
Exemplo: Combobox1 Carrega os nomes de clientes que tenho em minha planilha digamos coluna 2
e na coluna 5 vou colocar o status de excluido ou ativo
mas preciso de um comando se for excluido não carregar nem aparecer o nome do cliente na combobox1 que carrega o nome

é ruim de postar a planilha que já esta ficando um pouco extensa, e oque preciso e do comando ou um exemplo de código
estou carregando para a combobox com o seguinte código:

With cmb_pesquisa
.Clear
.List = Range("B2:B" & Range("B2").End(xlDown).Row).Value
End With

Atenciosamente,

[Reinaldo]

Para utilizar-se de criterio para carregar, não deve utiliza list/range;
utiliza algo +/- assim

Código: Selecionar todos

Dim QuantasLinhas As Long, Cont As Long
QuantasLinhas = Plan1.Range("A65000").End(xlUp).Row
For Cont = 2 To QuantasLinhas
    If Range("D" & Cont).Value = "Ativo" Then ComboBox1.AddItem Range("A" & Cont)
Next Cont

[Luciano021273]

Resolvido!
Ficou muito bom, obrigado!