Insertar filas(2)

Se me ha olvidado, comentarte respecto a la pregunta anterior, que la inserción de la fila, quiero realizarla siempre inmediatamente después de la última fila que contiene datos.
Disculpa, pero se me olvido este matiz.
Un saludo.

1 respuesta

Respuesta
1
Estas disculpado ;)
(Pero no olvides finalizar ambas preguntas)
El siguiente código hace lo que solicitas:
Busca la última fila con datos, la selecciona entera, copia en la siguiente fila y limpia el rango que debe quedar con formatos:
Sub CopFila()
Range("A2").End(xlDown).Select
With ActiveCell
.EntireRow.Copy
.Offset(1).EntireRow.Select
End With
ActiveSheet.Paste
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 11)).ClearContents
Cells(ActiveCell.Row, 1).Select
End Sub
---
Respecto a la segunda pregunta, utiliza esto:
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & NOMBREMES
Obviamente NOMBREMES es la variable donde cargas el nombre que deberá tener el archivo
Pruébalo y dime
Un abrazo!
Fernando

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas