Copia para generar historial

Hola, mi duda es la siguiente, como puedo hacer para copiar de una hoja en la cual esta un formato de factura (este varia su tamaño en filas) y pegarlo en otra hoja del mismo libro para hacer un historial, para esto, es necesario que lo pegue al final de la ultima factura cada vez que esta se haga.
Dentro de una de tus respuestas, encontré algo parecido, pero esto copia las columnas y las pega en la siguiente columna vacía, y yo quiero que se vaya pegando pero en la ultima fila. Gracias de antemano.
Sub Copia_ultimacol()
Dim Col As Integer
'busca últ col con datos según fila 2
Col = Sheets("Hoja2").Range("IV2").End(xlToLeft).Column + 1
'selecciona el rango a copiar
ActiveSheet.Range("C2:D200").Copy Destination:=Sheets("Hoja2").Cells(2, Col)
End Sub
Y disculpa pero soy un novato en esto.

1 respuesta

Respuesta
1
Si seguís buscando encontrarás la correcta ;)
Esta es para col, necesitas la de filas:
Sub copiaFilas()
dim fila as integer
'busca últ fila con datos en col A de la hoja 2
fila = Sheets("Hoja2").Range("A65536").End(xlup).Row + 1 '+1 para posicionarte en primer fila libre
'selecciona el rango a copiar
ActiveSheet.Range("C2:D200").Copy Destination:=Sheets("Hoja2").Cells(fila, 1)
End Sub
Esto es para copiar un rango. Si necesitás copiar celdas sueltas, como puede ser el encabezado de un formato (Empresa, fecha, nro Fact, etc) las instrucciones son:
ActiveSheet.Range("C2").copy Destination:=Sheets("Hoja2").Cells(fila, 1) 'coloca en col A
ActiveSheet.Range("B5").copy Destination:=Sheets("Hoja2").Cells(fila, 2) 'coloca en col B
' y así con cada celda

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas