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.

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Copiar datos de una columna a una fila con macros

Leer las respuestas

#6 Sago

12/08/2009 - 17:03 | Informe spam

Muchas Gracias.

José te agradezco muchisimo, ya quedo muy bien.

Un saludo desde México D.F.

"Jose" wrote:

Hola Sago:

Esto te copia la última fila, toda ella (la unica diferencia es que
antes sólo copiaba hasta la columna G de la fila puesto que tu tabla
sólo llega hasta la columna G). Si la última fila es la 5, la copia y
la pega entera en la fila 6. Y después copia sólo el valor del rango
C:E penultimo que en este caso sería el 5; es decir: rango C5:E5.
Mira a ver si te sirve mejor éste ejemplo.

Tú dices: "copiar toda la ultima fila que tenga datos "
primeramente, la última fila en éste ejmplo que nos has dejdo es la
fila 5 ¿no?
Y dices: "y pegarlos abajo"
Abajo, ¿dónde?. Abajo es la siguiente fila que es la fila 6 ¿no?

Un saludo.
Jose.

Sub Macro1()
Dim i As Long
i = Range("A50000").End(xlUp).Row

Range(i & ":" & i).Copy
Range(i & ":" & i).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
Range("C" & i & ":E" & i).Value = Range("C" & i & ":E" & i).Value
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida