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
Botões

Olá, @NunoGuimaraes . Tomei como base […]

Olá, @fernandogaseo . Segue uma solu&c[…]

Muito obrigado! De fato somente ajustar a declara[…]

Você tem linhas nas tabelas que estão[…]

MIN[dCalendario[Data]) vai retornar o data m&iacut[…]

Boa Tarde! A Macro existente na planilha em anexo,[…]

Tente assim: Dim xRg As Range Private Sub ComboB[…]

Olá pessoal! Tenho uma planilha no trabalh[…]