Como copiar una fila de la hoja 1 fila A1:V1 a la hoja 2 fila A1:V1 y que vaya pegando una debajo de la otra
Estoy necesitando una macro para copiar datos de la hoja 1 a la hoja 2, el office que tengo es 2003, los datos se guardan atravez de un botón, y cada vez que le doy un clicks al botón me va guardando en la hoja dos empezando desde la fila 1 y así sucesivamente.
1 respuesta
Para esto, almenos una columna entre A y V debe tener datos siempre (no permitir campo en blanco). Suponiendo que esa columna sea la A, puedes usar este código:
Sub JavierBoniuk()
Dim srcSht As Worksheet: Set srcSht = Sheets("Sheet1")
Dim dstSht As Worksheet: Set dstSht = Sheets("Sheet2")
Dim uF As Long: uF = dstSht.Range("A" & Rows.Count).End(xlUp).Row + 1
SrcSht. Range("A1:V1"). Copy
DstSht. Cells(uF, 1). PasteSpecial
End SubLa variable srcSht define la hoja 1, que contiene los datos que se van a copiar.
La variable dstSht define la hoja 2, que va a recibir los datos por el método PasteSpecial
La variable uF, define la ultima fila que se uso en dstSht y suma 1 para referirse a la próxima en blanco. (Nota que este código siempre comenzara a trabajar desde la fila 2. La 1 la debes llenar manualmente, o usar un encabezado)
Andy M.
