Excel - Identificar últimos valores y moverlos a un nuevo rango IQY, VISUAL BASIC, EXCEL, MACROS

   
Vista:

Identificar últimos valores y moverlos a un nuevo rango IQY, VISUAL BASIC, EXCEL, MACROS

Publicado por luis (1 intervención) el 25/11/2015 00:25:00
Hola chicas y chicos.

Tengo un problemón y quisiera su ayuda.

Tengo un archivo IQY que se actualiza constantemente con una serie de datos en las columnas A (Periodo) B(indice de precios) y C(Indice de alimentos).

Y el siguiente código para calcular las variaciones de los dos indices:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub inpc_m_iqy()
 
 
 
 
'Generar los cálculos de la variación mensual y anual para los dos indicadores
'
'
Range("F34").Select
ActiveCell.FormulaR1C1 = "=(RC[-4]/R[-1]C[-4]-1)*100"
Range("F34").Select
Selection.AutoFill Destination:=Range("F34:F46"), Type:=xlFillDefault
'
Range("G34").Select
ActiveCell.FormulaR1C1 = "=(RC[-4]/R[-1]C[-4]-1)*100"
Range("G34").Select
Selection.AutoFill Destination:=Range("G34:G46"), Type:=xlFillDefault
''
''
Range("K34").Select
ActiveCell.FormulaR1C1 = "=(RC[-9]/R[-12]C[-9]-1)*100"
Range("k34").Select
Selection.AutoFill Destination:=Range("k34:K46"), Type:=xlFillDefault
''
Range("L34").Select
ActiveCell.FormulaR1C1 = "=(RC[-9]/R[-12]C[-9]-1)*100"
Range("L34").Select
Selection.AutoFill Destination:=Range("L34:L46"), Type:=xlFillDefault


Lo que necesito es el código para identificar los últimos 13 valores en las columnas A, B y C y a partir de ahí, moverlos a un nuevo rango (Dx:Fy), esto para no tener que mover mi fórmula manualmente y que todos esos cálculos se hagan de manera automática.


Espero que puedan ayudarme ya que no he podido lograrlo y eso me va a facilitar muchísimo mi trabajo.


Muchas gracias, programadores expertos y aficionados.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder