Página 1 de 1

Listbox usando AddItem com Cabeçalho (columnhead)

Enviado: Seg Jul 24, 2017 2:11 pm
por alantykhe
Pessoal, boa tarde!

Existe alguma maneira de colocar cabeçalho (ColumnHeads) no listbox utilizando o método AddItem?

Só consegui habilitar o o cabeçalho utilizando RowSource. O problema de utilizar RowSource é que ele imputa todos os dados da planilha e quero que ele preencha apenas conforme os meus critérios.

Abraço
    
Sub PreencherForm()
a = 0
Me.ListBox1.Clear
Funcionario = ActiveCell.Value

For i = 2 To 2000

        If Cells(i, 1) = "" Then Exit For
        If Cells(i, 1) = Funcionario Or Cells(i, 1) = "Nome" Then
            
            With Me.ListBox1
                .ColumnCount = 8
                .AddItem
                
                .List(a, 0) = Cells(i, 3).Value
                .List(a, 1) = Cells(i, 4).Value
                .List(a, 2) = Cells(i, 5).Value
                .List(a, 3) = Cells(i, 6).Value
                .List(a, 4) = Cells(i, 7).Value
                .List(a, 5) = Cells(i, 8).Value
                .List(a, 6) = Cells(i, 9).Value
                .List(a, 7) = Cells(i, 1).Address 'Armazena o endereço da célula para permitir alterações

                .ColumnWidths = "100; 290; 72; 60; 60; 70; 60; 0"

                a = a + 1
            End With
            
        End If

Next
End Sub