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:
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.
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
0