Não entendo de vba. Como ficaria para 11 colunas?
O ideal seria que tivesse alguma noção pelo menos de VBA, pois nem tudo é simplesmente alterar apenas uma linha, mas vamos lá :
Na rotina Sub PreencherListBox() :
With Me.lstConsulta
.ColumnCount = 3 - Define a quantidade de Colunas
.ColumnWidths = "5 cm;2 cm;1 cm" - Define a Largura de cada Colunas
End With
Na instrução :
For x = 2 To lastRow - Captura a quantide de linhas preenchidas a partir da linha 2
lstConsulta.AddItem (wsDescricao.Cells(x, "a").Value) - Adiciona o Primeiro valor da Plan (Coluna A) na primeira Coluna do ListBox
lstConsulta.List(i, 1) = (wsDescricao.Cells(x, "b").Value) - Adiciona o Segundo valor da Plan (Coluna B) na Segunda Coluna do ListBox
lstConsulta.List(i, 2) = (wsDescricao.Cells(x, "c").Value) - Adiciona o Terceiro valor da Plan (Coluna C) na Terceira Coluna do ListBox
i = i + 1
Next
Então para aumentar a quantidde de colunas altere em ColumnCount e depois ajuste nas linhas onde enviamos os dados para o listbox conforme a qde de colunas "d, e, f, g......)
Espero ter sido claro, qq duvida retorne.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 15/05/2013 10:23 am