Saltar al contenido

Calcular Promedio con rango dinamico

publicado

Hola cracks!! 

Estoy tratando de generar una macro que calcule el promedio de mis datos, pero en vez de que sea un rango fijo de X2:X8431 sea hasta el ultimo valor que tenga la columna X es decir que pueda variar ya que a veces son mas datos o a veces menos, les dejo el código que tengo actualmente con rango fijo.

Range("X2").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[8431]C)"

 

He tratado con este pero no funciona:

Dim last_row As Integer

last_row = Cells(Rows.Count, "C").End(xlUp).Row - 1

Range("X2").Select

ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[last_row]C)"

 

Les agradezco mucho su ayuda si tienen alguna idea se las agradecería muchísimo!

Featured Replies

publicado

A ver así:

ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[" & last_row & "]C)"

 

publicado
  • Autor

Correcto!! enorme como siempre Antoni

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.