Transferir columna a matriz dato por dato
Hola es la primera vez que entro en esto, espero que me puedan ayudar, necesito hacer un macro que haga lo siguiente:
Tengo una columna con 75 números, necesito hacer un macro el cual cada vez que pulse un botón tome el numero de la celda A1 y lo traspase o copie a la celda E9, termina el macro.
Al volver a pulsar el botón volvería a pasar el numero de la celda A1 pero lo pasaría a la celda F9, y así sucesivamente hasta llenar el renglón (N9), el siguiente numero comenzaría en la E10, luego F10... Hasta completar la matriz.
Es decir los números los pasaría individualmente... Cada vez que se pulse el botón, ¿si no se puede podría hacerse para llenar un solo renglón?
Saludos
Tengo una columna con 75 números, necesito hacer un macro el cual cada vez que pulse un botón tome el numero de la celda A1 y lo traspase o copie a la celda E9, termina el macro.
Al volver a pulsar el botón volvería a pasar el numero de la celda A1 pero lo pasaría a la celda F9, y así sucesivamente hasta llenar el renglón (N9), el siguiente numero comenzaría en la E10, luego F10... Hasta completar la matriz.
Es decir los números los pasaría individualmente... Cada vez que se pulse el botón, ¿si no se puede podría hacerse para llenar un solo renglón?
Saludos
1 respuesta
Respuesta de Eduard Caballero
1
Prueba esto.
Creo que hace lo que quieres
Sheets(1).Range("A1").Select
If ActiveCell = "" Then
MsgBox "No hay datos en A1"
Exit Sub
End If
Selection.Cut
linea:
For i = 1 To 10
Cells(9 + n, i + 4).Select
If Cells(9 + n, i + 4) = "" Then
ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True
Exit Sub
End If
Next i
ActiveCell.Offset(1, -9).Select
n = n + 1
GoTo linea
End Sub
Cópialo en un modulo y asignalo a un botón
Creo que hace lo que quieres
Sheets(1).Range("A1").Select
If ActiveCell = "" Then
MsgBox "No hay datos en A1"
Exit Sub
End If
Selection.Cut
linea:
For i = 1 To 10
Cells(9 + n, i + 4).Select
If Cells(9 + n, i + 4) = "" Then
ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True
Exit Sub
End If
Next i
ActiveCell.Offset(1, -9).Select
n = n + 1
GoTo linea
End Sub
Cópialo en un modulo y asignalo a un botón
