ligando ComboBox
Enviado: 06 Out 2016 às 14:32
Boa tarde colegas, estou iniciando no Excel/VBA e encontrei minha primeira dificuldade e espero achar uma solução com voces...
Tenho uma tabela com duas planilhas. Em um formulário em preencho a primeira planilha com o formulário. Até aí tudo bem... Neste formulário tenho um ComboBox que eu gostaria que fosse preenchido com dados da planilha DOIS toda vez que o formulário fosse aberto. Na verdade já esta funcionalidade já está OK, configurando a propriedade ROWSOURCE do formulário fazendo a referência a RANGE(D2:D19) da planilha DOIS.
O que estou tentando fazer e não estou conseguindo, é criar um código no evento de um botão (Cadastrar) e este comboBox seja populado pelo código e não pela referência ROWSOURCE.
O objetivo para isso é que eu NÃO precise atualizar o parâmetro ROWSOURCE toda vez que uma nova linha seja incluída na tabela relativa a região do ComboBox.
tentei algo como a linha abaixo mas não está dando certo. Alguém pode me dar uma luz??
lnDefeito = Range("Defeitos").Rows.Count
For i = 2 To lnDefeito
CboBox_Defeito.AddItem Plan4.Range("d" & lnDefeito).Value
Next
Vou ficar torcendo pela resposta aqui.
Obrigado à todos desde já!
Tenho uma tabela com duas planilhas. Em um formulário em preencho a primeira planilha com o formulário. Até aí tudo bem... Neste formulário tenho um ComboBox que eu gostaria que fosse preenchido com dados da planilha DOIS toda vez que o formulário fosse aberto. Na verdade já esta funcionalidade já está OK, configurando a propriedade ROWSOURCE do formulário fazendo a referência a RANGE(D2:D19) da planilha DOIS.
O que estou tentando fazer e não estou conseguindo, é criar um código no evento de um botão (Cadastrar) e este comboBox seja populado pelo código e não pela referência ROWSOURCE.
O objetivo para isso é que eu NÃO precise atualizar o parâmetro ROWSOURCE toda vez que uma nova linha seja incluída na tabela relativa a região do ComboBox.
tentei algo como a linha abaixo mas não está dando certo. Alguém pode me dar uma luz??
lnDefeito = Range("Defeitos").Rows.Count
For i = 2 To lnDefeito
CboBox_Defeito.AddItem Plan4.Range("d" & lnDefeito).Value
Next
Vou ficar torcendo pela resposta aqui.
Obrigado à todos desde já!