Código VBA para cortar una fila y le pegue en la última fila vacía de un archivo.
Tengo una macro que estoy haciendo paso a paso, pero tengo un tema que no me permite seguir avanzando para terminarla, necesito cortar la fila 2 (Ver Foto 1), y pegarla al final del archivo, (Ver Foto 2). Lo que pasa es que no lo puedo hacer con grabadora macro, ya que mi archivo puede tener 2 filas a mas de 200 con datos. Por esta razón, necesito que al cortar la fila 2, la pegue al final del archivo detectando la ultima fila vacía. Como repito el archivo puede ir de la fila 2 a 200 a más.
Foto 1
Foto 2 (Final del archivo donde pego los datos de la fila 2 del archivo excel.
Espero se entienda la idea.
A la espera de su soporte.
Slds.
Juan.
1 respuesta
Esta macro hace lo que necesitas:
Sub cortarFila()
'x Elsamatilde
'fila fin de rango
filx = Range("E" & Rows.Count).End(xlUp).Row+1
'corta la fila 2
Rows("2:2").Cut
'selecciona la fila final y pega
Range("A" & filx).EntireRow.Select
Selection.Insert Shift:=xlDown
'opcional: seleccionar alguna celda
Range("C2").Select
End SubLo que tenés que revisar es la fórmula de subtotales, que te copia tal cual y es posible que la nueva fila quede dentro del rango a sumar y se te produzca una referencia circular.
