Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
Por Abel
#67144
Boa tarde, estou com um problema, tenho uma planilha onde uso combo box (ActiveX), linkado á uma tabela que sempre recebe novos dados. Mas, quando é inserido novos dados na tabela, não aparece na lista do combo box, preciso reiniciar a planilha para esses novos dados aparecerem.

Como posso fazer para atualizar automaticamente, igual como a lista de validação de dados funciona.
Por Abel
#67253
não tem segredo, e não tem como eu demonstrar isso em um planilha, é bem simples, vc msm pode ver ahi, ao colocar um combo box, ele não atualiza com novos dados@JCabral,
Avatar do usuário
Por Basole
#67256
@Abel se está utilizando o evento change do Combobox, experimente chamar este evento no worksheet_Change, assim ao alterar algum dado na planilha(aba), automaticamente os dados do combobox, serão atualizados
Exemplo:
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
    Call ComboBox1_Change '     (* Ou o nome da sub que carrega os dados do comboxbox)
End Sub
Avatar do usuário
Por Basole
#67278
Vamos supor que voce utilie esta rotina para carregar os dados no seu combobox
Veja o exemplo:
Código: Selecionar todos
Sub Add_Dados_Combobox()
Dim mTabela  As ListObject
Dim mArray   As Variant

Set mTabela = Worksheets("Planilha1").ListObjects("Tabela1")

   mArray = mTabela.DataBodyRange

        With ComboBox1
        .Clear
        .List = mArray
        End With

End Sub

E quando houver alteração nos dados, este evento Change, ativa a rotina que carrega/ atualiza os dados, no combobox
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 Call Add_Dados_Combobox
End Sub

Arquivo Teste

Boa Tarde Sou novo no BI. Gostaria de saber como […]

Filtro suspenso bugado

Anexa o arquivo, oferecer uma soluçã[…]

Ajuda para Vincular colunas.

Na sua Planilha2 vc tem uma fórmula em q pa[…]

Faaala @DJunqueira . Camarada, vc salvou uma v[…]

@DJunqueira , Muuuito obrigada! :)

Conexão odbc

Bom dia pessoal, estou com problemas em fazer co[…]

Adidas Yung-1 Pas Cher

Adidas Yung-1 Pas Cher https://www.solewishes.co[…]