Como preencher cabeçalho em listbox?

Question

Tenho o seguinte código:

Sub preList()

lstConsulta.ColumnHeads = True
lin = 1
lstConsulta.ColumnCount = 2

While Sheets(2).Cells(lin, 1) <> ""

lstConsulta.AddItem (UCase(Sheets(2).Cells(lin, 1)))

lstConsulta.List(lstConsulta.ListCount - 1, 1) = Sheets(2).Cells(lin, 2)

lin = lin + 1

Wend

End Sub

Só falta preencher o cabeçalho.

Answer 1

Bom dia,

Sub InsertHeaderFooter()
' inserts the same header/footer in all worksheets
Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        Application.StatusBar = "Changing header/footer in " & ws.Name
        With ws.PageSetup
            .LeftHeader = "Company name"
            .CenterHeader = "Page &P of &N"
            .RightHeader = "Printed &D &T"
            .LeftFooter = "Path : " & ActiveWorkbook.Path
            .CenterFooter = "Workbook name &F"
            .RightFooter = "Sheet name &A"
        End With
    Next ws
    Set ws = Nothing
    Application.StatusBar = False
End Sub

Esse código adiciona um header para todas as worksheets ativas dentro da workbook, ele também adiciona o path completo para a workbook.

Att,

---

Giovani Cruzara – Microsoft Contingent Staff

Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.

Msdn Community Support

Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

Answer 2

Desejo preencher o cabeçalho de uma listbox em um formulário.

Pretendo preencher a primeira coluna do cabeçalho com a palavra "Funcionário" e a segunda coluna do cabeçalho com a palavra "Data".

Answer 3

Para preencher o cabeçalho de uma caixa de listagem (ListBox) num formulário, certifique-se que a propriedade ColumnHeads seja True. Desta forma, se você definir a propriedade RowSource como, por exemplo, A2:D5, automaticamente as linhas A1:D1 serão mostradas como cabeçalho.

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 4

Existe algum meio de preencher o cabeçalho sem utilizar RowSource ?

Answer 5

Não é possível.

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br