Cargar un ListBox con una matrix
Publicado por Daniel (3 intervenciones) el 30/11/2011 15:21:40
Hola. Buenas tardes. En el siguiente macro de VB para Excel 2007 da problemas en la línea dónde se cargar un ListBox con los valores de una matrix: ListBox3.List() = MyArray
Private Sub FILTRAR_Click()
Dim i, j, k As Integer
Dim MyArray(0 To 51, 0 To 2) As String
j = 3
k = 0
For i = 3 To 51
If Range("B" & i).Value = TextBox1.Text Then
MyArray(i, 0) = Range("A" & i).Value
MyArray(i, 1) = Range("B" & i).Value
MyArray(i, 2) = Range("C" & i).Value
k = i
End If
Next i
ListBox3.List() = MyArray ' <==== ¡¡¡¡¡¡¡¡¡¡ AQUI ES DONDE PETA con el Error ‘70’ !!!!!!!!
End Sub
¿Cómo ago la declaración ListBox3.List() = MyArray ?
Atentamente,
Daniel
Private Sub FILTRAR_Click()
Dim i, j, k As Integer
Dim MyArray(0 To 51, 0 To 2) As String
j = 3
k = 0
For i = 3 To 51
If Range("B" & i).Value = TextBox1.Text Then
MyArray(i, 0) = Range("A" & i).Value
MyArray(i, 1) = Range("B" & i).Value
MyArray(i, 2) = Range("C" & i).Value
k = i
End If
Next i
ListBox3.List() = MyArray ' <==== ¡¡¡¡¡¡¡¡¡¡ AQUI ES DONDE PETA con el Error ‘70’ !!!!!!!!
End Sub
¿Cómo ago la declaración ListBox3.List() = MyArray ?
Atentamente,
Daniel
Valora esta pregunta
0