Este fórum está sendo desativado

[SandroLima]

Boa noite.

O que devo alterar na macro para ela carregar as combobox com os dados das colunas da tabela?

Segue a macro:

Código: Selecionar todos

Private Sub UserForm_Initialize()
    
    Dim Plan As Worksheet
    Dim Tabela As ListObject
    'Dim ULinha As Long
    
    Set Plan = Wsh_Config
    Set Tabela = Plan.ListObjects("TB_Config")
    
    On Error Resume Next
    
    Application.ScreenUpdating = False
    
    cbx_Mes.RowSource = Tabela.ListColumns("Mes").DataBodyRange
    cbx_Ano.RowSource = Tabela.ListColumns("Ano").DataBodyRange
    
    Application.ScreenUpdating = True
    
    Set Tabela = Nothing
    Set Plan = Nothing
    
End Sub

[babdallas]

Teste assim. Se não ser certo, anexe um exemplo por favor.

Código: Selecionar todos

Private Sub UserForm_Initialize()
    Dim Plan As Worksheet
    Dim Tabela As ListObject
    'Dim ULinha As Long
   
    Set Plan = Wsh_Config
    Set Tabela = Plan.ListObjects("TB_Config")
   
    On Error Resume Next
   
    Application.ScreenUpdating = False
   
    cbx_Mes.List = Tabela.ListColumns("Mes").DataBodyRange.Value
    cbx_Ano.List = Tabela.ListColumns("Ano").DataBodyRange.Value
   
    Application.ScreenUpdating = True
   
    Set Tabela = Nothing
    Set Plan = Nothing
End Sub

[SandroLima]

Boa tarde e obrigado por ajudar.

A coluna de Mês e Ano são exemplos da aplicação que pretendo... vou fazer listagem em combobox para outras colunas depois... por isso estou buscando esse tipo de código.

Mas tentei com o seu código e não funcionou.

Segue exemplo anexo.

[babdallas]

Note que no código a coluna Mes está sem acento e na Tabela está com acento. Corrigi isso e funcionou.

[SandroLima]

Resolvido perfeitamente.

Muito obrigado.