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