Macro Excel Guardar Registros Matriz
Querría hacer una macro que me guardara en una matriz unos determinados registros. Estos registros pueden ser diferentes cada vez que se ejecute la macro. Los registros a guardar en la matriz los colocaré en la columna A empezando por la línea 1, hacía abajo, y querré guardarlos, como decía en la matriz. Una vez pondré 3 registros en la columna A (A1, A2, A3), otras veces 5 (A1, A2, A3, A4, A5) y otras los que sean. Me he puesto a hacerla, me da error en MiMatriz(i, j) = ActiveCell. Value, llevo dándole vueltas tiempo y no sé cómo solucionarlo. Por si alguien me puede ayudar. Abajo lo que he hecho hasta el momento. Los MsgBox son verificaciones mías. Muchas gracias!
Sub ValCol02()
Dim F As Integer
Dim i As Integer, j As Integer
Dim MiMatriz() As Integer
F = Cells(65536, 1).End(xlUp).Row
MsgBox F
ReDim MiMatriz(1 To F, 1 To 1)
For i = 1 To F
For j = 1 To 1
MsgBox F
MiMatriz(i, j) = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next j
Next i
MsgBox MiMatriz(1, 1)
MsgBox MiMatriz(2, 1)
MsgBox MiMatriz(3, 1)
End Sub
2 Respuestas
Tu matriz solamente es de una dimensión.
Es decir, solamente quieres almacenar datos de la columna A, entonces quedaría así:
Sub ValCol02()
Dim F As Double
Dim i As Double
Dim MiMatriz()
F = Cells(Rows.Count, 1).End(xlUp).Row
ReDim MiMatriz(1 To F)
Range("A1").Select
For i = 1 To F
MiMatriz(i) = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next i
MsgBox MiMatriz(1) & " " & MiMatriz(2) & " " & MiMatriz(3)
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda .
Más fácil aun, esta simple instrucción lee las filas con datos de la columna A y en automático las manda a una matriz que sin importar si quitas o añades datos o si tienes 1 o un millón de datos esta ajustara la matriz a dichos datos
Sub guarda_en_matriz()
matriz = Range("a1").CurrentRegion.Columns(1)
End Sub