none
Cabeçalho - ListBox RRS feed

  • Pergunta

  • Pessoal, bom dia.

    Tenho o seguinte código para carregar dados em uma listbox:

    With Sheets("Plan1").UsedRange
         ListBox1.ColumnCount = .Columns.Count
         ListBox1.RowSource = .Address
    End With

    Como faço para que o cabeçalho seja a primeira linha preenchida?


    sexta-feira, 25 de setembro de 2015 11:48

Respostas

  • Experimente:

        ListBox1.ColumnHeads = True
        
        With Sheets("Plan1").UsedRange
            ListBox1.ColumnCount = .Columns.Count
            ListBox1.RowSource = .Offset(1).Resize(.Rows.Count - 1).Address
        End With
    


    Rafael Kamimura - http://excelmaniacos.com

    • Marcado como Resposta matmendes sexta-feira, 25 de setembro de 2015 13:20
    sexta-feira, 25 de setembro de 2015 12:41

Todas as Respostas

  • Experimente:

        ListBox1.ColumnHeads = True
        
        With Sheets("Plan1").UsedRange
            ListBox1.ColumnCount = .Columns.Count
            ListBox1.RowSource = .Offset(1).Resize(.Rows.Count - 1).Address
        End With
    


    Rafael Kamimura - http://excelmaniacos.com

    • Marcado como Resposta matmendes sexta-feira, 25 de setembro de 2015 13:20
    sexta-feira, 25 de setembro de 2015 12:41
  • Funcionou perfeitamente Rafael!

    Muito obrigado!

    sexta-feira, 25 de setembro de 2015 13:19