Celdas consecutivas
Ayer pregunte lo siguiente:
Mi pregunta es como podría crear una macro para que al poner un dato en una celda de la hoja1 con un comandbotton se copiara en la hoja2 en filas de forma consecutiva, es decir, una detrás de otra automáticamente.
La verdad es que la respuesta fue buenísima pero ahora quisiera saber si es posible pasar en vez de solo los datos de una celda, el de varias a la vez.
Mi pregunta es como podría crear una macro para que al poner un dato en una celda de la hoja1 con un comandbotton se copiara en la hoja2 en filas de forma consecutiva, es decir, una detrás de otra automáticamente.
La verdad es que la respuesta fue buenísima pero ahora quisiera saber si es posible pasar en vez de solo los datos de una celda, el de varias a la vez.
1 Respuesta
Respuesta de 230283
1
Esta pregunta es una ampliación de la anterior. Es bueno que lo hayas planteado en otro post como lo acabas de hacer. Con respecto a la duda, tendremos que realizar unos cambios. Reemplaza el código anterior que estaba alojado en el modulo por el siguiente:
Sub EnvioDatos()
Dim ncol As Integer, ufila As Long
NomHoja1 = "Hoja1"
NomHoja2 = "Hoja2"
ncol = 4 'Num de columna, es decir col A hasta col D
'******
If Sheets(NomHoja2).Range("A2") = "" Then
Sheets(NomHoja1).Range(Cells(2, 1), Cells(2, ncol)).Copy Sheets(NomHoja2).Range("A2")
Else
Sheets(NomHoja2).Select
ufila = Range("A6500").End(xlUp).Row + 1
Sheets(NomHoja1).Select
Range(Cells(2, 1), Cells(2, ncol)).Copy Sheets(NomHoja2).Range("A" & ufila)
End If
End Sub
El código que esta en el botón de comando se mantiene igual. Es decir solo hay una linea la cual llama a la macro llamada EnvioDatos.
Asumo que en Hoja1 la fila con datos es la fila 2. Asumo de igual modo que se alojara en Hoja2 a partir de la fila 2 en adelante. Por otro lado asumí que solo son 4 columnas. Puedes editar el código VBA indicando la cantidad de columnas que deseas.
Sub EnvioDatos()
Dim ncol As Integer, ufila As Long
NomHoja1 = "Hoja1"
NomHoja2 = "Hoja2"
ncol = 4 'Num de columna, es decir col A hasta col D
'******
If Sheets(NomHoja2).Range("A2") = "" Then
Sheets(NomHoja1).Range(Cells(2, 1), Cells(2, ncol)).Copy Sheets(NomHoja2).Range("A2")
Else
Sheets(NomHoja2).Select
ufila = Range("A6500").End(xlUp).Row + 1
Sheets(NomHoja1).Select
Range(Cells(2, 1), Cells(2, ncol)).Copy Sheets(NomHoja2).Range("A" & ufila)
End If
End Sub
El código que esta en el botón de comando se mantiene igual. Es decir solo hay una linea la cual llama a la macro llamada EnvioDatos.
Asumo que en Hoja1 la fila con datos es la fila 2. Asumo de igual modo que se alojara en Hoja2 a partir de la fila 2 en adelante. Por otro lado asumí que solo son 4 columnas. Puedes editar el código VBA indicando la cantidad de columnas que deseas.
