Rangos no definidos

Como le hago para que esta macro elija la ultima celda que no es fija en este caso es C43 pero puede ser C42, C50, C30 dependiendo del rango que se va a sumar
Selection.End(xlDown).Select
Range("C43").Select
y como le hago tambien para sumar un rango indefinido
ActiveCell.FormulaR1C1 = "=SUM(R[-40]C:R[-1]C)"
es decir que esta parte R[-40]C varie dependiendo tambien el rango
ejemplo
ActiveCell.FormulaR1C1 = "=SUM(R[-41]C:R[-1]C)"
ActiveCell.FormulaR1C1 = "=SUM(R[-50]C:R[-1]C)"
ActiveCell.FormulaR1C1 = "=SUM(R[-30]C:R[-1]C)"

1 respuesta

Respuesta
1
Cuando haces:
Selection.End(xlDown).Select
Ya estás seleccionando la última celda de la columna (que tiene valores), no es necesario hacer nada más para seleccionarla.
En cuando al segundo, el rango puede ser indefinido, pero debes saber donde comienza y dónde termina, es decir, por ejemplo en tu primera pregunta seleccionas la última celda, entonces el rango sería desde la celda 1 hasta la última. Siendo así, puedes usar el número de fila de esta celda para hacer tu fórmula, algo así:
-----------
Selection.End(xlDown).Select
x = Range(Selection.Address).Row
Formula = "=SUM(R[-" & LTrim(Str(x)) & "]C:R[-1]C)"
ActiveCell.Offset(1, 0).Range("A1").Activate
ActiveCell.FormulaR1C1 = Formula
--------------
Cualquier inquietud no dudes en comentarme.
Saludos, Tavopz
------------------------------
*** No olvides visitar la mejor página de Hojas Excel en:
www.exceluciones.com

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas