Ir ao conteúdo

Excel caixa de combinação actvex buscar lista em outra planilha


Ir à solução Resolvido por Midori,

Posts recomendados

Postado

Pessoal uma ajudinha por favor!! Estou querendo usar a caixa de combinação do CONTROLE ACTVEX, porém a lista de nomes preciso referenciar em outra Planilha aba e não estou conseguindo.

 

A Planilha onde esta os dados chama-se CAD_CLI, e a coluna C5:C22

 

Alguém consegue me ajudar Caso alguém sinta de me ajudar, segue anexo o arquivo.

 

Obrigado!!

Caixa combinação erro.rar

Postado

@Revolucao O controle pode ser carregado com um loop na lista de nomes da planilha, p.ex,

 

Sub AtualizaNomes()
    Dim Nome As Range
    
    Set Nome = ThisWorkbook.Sheets("Cad_Cli").[C5]
    Call ThisWorkbook.Sheets("Rel_Cliente").ComboBox1.Clear
    
    While Nome.Value <> ""
        Call ThisWorkbook.Sheets("Rel_Cliente").ComboBox1.AddItem(Nome.Value)
        Set Nome = Nome(2)
    Wend
End Sub

 

  • Curtir 1
Postado

Boa tarde, Midori!!
Deu certo, porém toda vez que abro a Planilha tenho que abrir o VBA e clicar em EXECUTAR, não tem como deixa isso automático?
Obrigado!!

 

image.thumb.png.7b623800fc7b767039ad00496108f126.png

  • Solução
Postado

@Revolucao Para atualizar a lista ao selecionar a aba é no Activate e não SelectionChange como eu tinha comentado,

 

Private Sub Worksheet_Activate()
    Call AtualizaNomes
End Sub

 

Cole essa Sub no mesmo módulo Rel_Cliente. Selecione qualquer outra aba e volte para Rel_Cliente para ativar o evento.

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...