Copiar la ultima fila con datos, y el rango de la penultima fila

10/08/2009 - 19:20 por Sago | Informe spam
Buenos días espero que me puedan ayudar por favor, diariamente tengo que
abrir y actualizar un archivo, esto me tarda un poco de tiempo ya que son 14
archivos, lo que necesito es copiar la ultima fila que tenga datos y pegarla
debajo de esta con todas sus formulas, ademas copiar y pegar como valores el
rango "C hasta E" de la fila antes mencionada, que va creciendo, como le
dijo que es la ultima celda con datos, espero haberme explicado.
Ejemplo:

fila 5

[Columna A][Columna B]][Columna C][Columna D][Columna E][Columna F][Columna G]

FECHA IMPORTE PRECIO DIAS ACCIONES ACCI EN CIRC

10-08-09 157.00 1157 2 157,65 157 15656

Copiar primero toda la fila , para tener las formulas que tiene y hacer la
fila para el siguiente día.

Despues copiar y pegar como valores la columnas desde "C" hasta "E", pero
solamente el rango "C" hasta "E" ahora de la penutlima fila que tiene datos
y formulas, ya que este rengo va creciendo.
Tengo que copiar y pegarlo como valores para ir guardando en la fila el
historico diario, asi pegarla como valores

Por su ayuda muchas gracías.
 

Leer las respuestas

#1 Jose
10/08/2009 - 20:18 | Informe spam
Hola Sago:

No sé si habré entendido tu ejemplo.
Prueba el código que te dejo, aunque no se me dá bien, a ver si sirve
para tu caso.

Un saludo.
Jose


Sub Macro1()

Dim i As Long
i = Range("A50000").End(xlUp).Row
Range("A50000").End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Copy
Range("A50000").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
Range("C" & i & ":E" & i).Value = Range("C" & i & ":E" & i).Value

End Sub

Preguntas similares