Boa tarde!
Tenho o seguinte código que está dando o erro (muito comum): "Não foi possível definir a propriedade List. Índice de matriz de propriedade inválido."
Eu tenho 3 Listbox. A Listbox1 carrega os nomes de todas as colunas da Planilha ("2012-2014"), na Listbox2 eu coloco só as colunas que eu quero. Na Listbox3 vai carregar só as colunas que eu selecionei na Listbox2 quando eu clicar no CommandButton1.
Mas está dando o erro acima. Eu já tentei muitas variações no código mas continua dando o mesmo erro. Esse código abaixo é o último que eu testei.
Detalhe: com uma coluna só na Listbox3 só estava dando certo, mas aí as colunas da Planilha ("2012-2014") ficavam uma debaixo da outra, o que não me serve.
Senhores, por favor, me ajudem!
Private Sub CommandButton1_Click()
Dim itens As Integer
Dim x, i As Integer
Dim col, conteudo As String
Sheets("2012-2014").Select
ActiveSheet.Range("A1").Select
itens = ListBox2.ListCount
ListBox2.ColumnCount = itens
ListBox3.Clear
col = ""
conteudo = ""
x = 0
i = 0
For x = 0 To itens
colbusca = ListBox2.List(x)
If ActiveCell.Value = colbusca Then
col = "A"
Else
ActiveCell.Offset(0, 1).Select
End If
For i = 1 To 20
conteudo = ActiveSheet.Range(col & i).Value
With ListBox3
.AddItem
If ListBox2.ListCount > 1 Then
.List(i, x) = conteudo <----------- É aqui que o erro ocorre
Else
.List(i) = conteudo <--------------Ou ainda aqui, dependendo do IF
End If
End With
Next i
ActiveCell.Offset(0, 1).Select
Next x
End Sub
Postado : 02/06/2014 1:56 pm