Como aplicar autosuma en excel por medio de sendkeys

Como aplico la autosuma con sendkeys en vba, dado que tengo unos datos en unas filas, pero puede aumente las filas (osea los datos) o disminuya. Cuando trabajo con sum debo de poner unas celdas fijas y esto es relativo. Adicionalmente, trate de hacerlo con "=sum("&selection. Address&") pero no me suma ya que el rango que la formula no aplicaría la suma con ella incluida.

Lo que estoy haciendo es lo siguiente

Range("b13").Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
ActiveCell.End(xlDown).Offset(1, 0).Activate
ActiveCell.Value = "=sum(" & Selection & ")"

1 Respuesta

Respuesta
1

Puedes poner de cuál celda a cuál celda quieres la fórmula.

Y después, un ejemplo, de cómo aumentaría el rango de celdas.

Creo que no podría, dado que los rangos cambiarían al poner la macro en otros archivos. O no sabría como formularlo. Gracias.

Siempre cambia, es decir, un día empieza en la celda B2 y termina en la celda B13 y al otro día empieza en la celda M53 y termina en la celda M75.

Tienes un encabezado en el cual nos podamos guiar.

Tienes que poner más elementos para poder ayudarte.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas