COPIAR FÓRMULAS CADA 4 FILAS

19/04/2010 - 23:28 por FERNANDOMH | Informe spam
Hola.
Tengo varios archivos con rangos de filas y columnas variables, lo que
tienen en común es que tienen datos en dos filas consecutivas con datos y
luego dos filas en blanco.

Por ejemplo si los datos iniciaran en la fila 10 (que no siempre es así)

A B C
10 5 7 20
11 25 3 80
12
13
14 5 29 34
15 76 90 83
16
18
19 76 43 12
20

Lo que hago manualmente es poner fórmulas (en este caso en la fila 12) que
sumen y otras operaciones de las primeras dos filas y luego copio manualmente
las fórmulas a las filas 16, 20, 24, etc, etc, pero son muchas filas y
quisiera poder hacerlo automáticamente con una macro.

Como digo, son varios archivos y no en todos el rango de las columnas es el
mismo, ni tampoco el rango de las filas.

Quisiera tener la oportunidad de elegir las columnas que se van a copiar y
el rango de filas hasta donde se va a copiar, de antemano muchas gracias.
 

Leer las respuestas

#1 Benito Merino
20/04/2010 - 07:51 | Informe spam
On 19 abr, 23:28, FERNANDOMH
wrote:
Hola.
Tengo varios archivos con rangos de filas y columnas variables, lo que
tienen en común es que tienen datos en dos filas consecutivas con datos y
luego dos filas en blanco.

Por ejemplo si los datos iniciaran en la fila 10 (que no siempre es así)

           A    B       C
10    5 7       20
11      25      3       80
12
13
14      5       29      34
15      76      90      83
16
18
19      76      43      12
20

Lo que hago manualmente  es poner fórmulas (en este caso en la fila 12) que
sumen y otras operaciones de las primeras dos filas y luego copio manualmente
las fórmulas a las filas 16, 20, 24, etc, etc,  pero  son muchas filas y
quisiera poder hacerlo automáticamente con una macro.

Como digo, son varios archivos y no en todos el rango de las columnas es el
mismo, ni tampoco el rango de las filas.

Quisiera tener la oportunidad de elegir las columnas que se van a copiar y
el rango de filas hasta donde se va a copiar, de antemano muchas gracias.



Hola.

Prueba la siguiente macro:

Sub macro()
[A12].Select
While ActiveCell.Row < Range("A65536").End(xlUp).Row + 2
ActiveCell.Resize(1, 3).FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
ActiveCell.Offset(4, 0).Select

Wend
End Sub


Saludos,

Benito Merino
Barcelona

Preguntas similares