Este fórum está sendo desativado

[JCabral]

Boa noite

Mais uma vez pedindo ajuda.

Tenho uma pequena Base de Dados e gostaria de Adicionar itens quer à ListBox quer à ComboBox conforme selecionado nas CheckBox ( Tem que ser com Checkbox e não com OptionButton), ou só os itens que têm o Estado= Verdadeiro; ou o Estado=Falso; ou Tudo

Obrigado

[babdallas]

Qual informação você quer colocar na combobox?

[JCabral]

A informação que consta da BD, com exceção do estado

[babdallas]

Você quer a Combobox tenha as mesmas informações da Listbox?

[JCabral]

Correto, juntei duas duvidas num post só.

Ou seja quero que a ListBox e a ComboBox sejam preenchidas consoante a opção de escolha das checkbox.
Se a Checkbox=Verdadeiro a ListBox e a Combobox mostram todos os dados da BD com Estado=Verdadeiro;
Se a Checkbox=Falso a ListBox e a Combobox mostram todos os dados da BD com Estado=Falso;
Se a Checkbox=Tudo a ListBox e a Combobox mostram todos os dados da BD com Estado=Verdadeiro e Falso;

Espero ter ficado mais claro agora qual é a minha duvida.
Obrigado

[babdallas]

Veja se é oq quer.

[JCabral]

Boa tarde babdallas

Quase, quase, perfeito.

Se em vez de :
Private Sub UserForm_Initialize()

With UserForm1
.CheckBox2.Value = True
.CheckBox1.Value = False
End With
End Sub

estiver

Private Sub UserForm_Initialize()

With UserForm1
.CheckBox1.Value = True
.CheckBox2.Value = False
End With
End Sub

que é a opção principal, dá-me um erro.

É possível resolver?
De resto está espetacular.

[babdallas]

Cometi um erro de não inserir os dados via matriz no caso do checkbox1 estar marcado. Como são mais de 10 colunas, dava erro. O VBA tem esta limitação de 10 colunas na Listbox ou Combobox qdo inserida "manualmente" no additem. Esta limitação não existe quando se utiliza matrizes.
Veja se atende agora.

[JCabral]

Babdallas

Acho que é mesmo isto que pretendia, vou só testar mais vezes e depois já tranco o tópico
Muito obrigado

Jorge Cabral

[JCabral]

Babdallas, está TOP

Muito obrigado pela ajuda

Jorge Cabral