Olá a todos,
Tenho o seguinte código para polular a listbox, mas não consigo aumentar a quantidade de colunas, o código aceita apenas 10 colunas e eu preciso de 12. Será que alguém poderia me ajudar. Desde já Agradeco.
'-----------------------------------------
If mandado.Value = "" Then
ListBox3.Clear
Else
ListBox3.ColumnWidths = "140 pt; 60 pt; 80 pt ;90 pt; 100 pt; 80 pt;80 pt;80 pt;80 pt;80 pt;80 pt;80 pt"
ListBox3.ColumnCount = 12 'Define a qde de Colunas no Listbox
ListBox3.Clear
With Plan2
strObjetoBuscar = mandado.Value
strObjetoBuscar = LCase(strObjetoBuscar)
For E = 2 To 10000
lngResultado = InStr(1, .Cells(E, 5), strObjetoBuscar, vbTextCompare)
If lngResultado > 0 Then
ListBox3.AddItem .Range("a" & E).Value
ListBox3.List(ListBox3.ListCount - 1, 1) = .Range("b" & E).Value
ListBox3.List(ListBox3.ListCount - 1, 2) = .Range("c" & E).Value
ListBox3.List(ListBox3.ListCount - 1, 3) = .Range("d" & E).Value
ListBox3.List(ListBox3.ListCount - 1, 4) = .Range("e" & E).Value
ListBox3.List(ListBox3.ListCount - 1, 5) = .Range("f" & E).Value
ListBox3.List(ListBox3.ListCount - 1, 6) = .Range("G" & E).Value
ListBox3.List(ListBox3.ListCount - 1, 7) = .Range("H" & E).Value
ListBox3.List(ListBox3.ListCount - 1, 8) = .Range("I" & E).Value
ListBox3.List(ListBox3.ListCount - 1, 9) = .Range("J" & E).Value
'DÁ ERRO A PARTIR DESSA LINHA
ListBox3.List(ListBox3.ListCount - 1, 10) = .Range("K" & E).Value
ListBox3.List(ListBox3.ListCount - 1, 11) = .Range("L" & E).Value
End If
Next E
End With
End If
'-----------------------------------------
Postado : 06/04/2014 12:53 pm