Macro para sumar o restar una cantidad a un rango de celdas seleccionadas

En este artículo veremos cómo podemos sumar o restar una cantidad determinada a un rango de celdas seleccionadas de forma rápida y automática utilizando una macro. Para ello debemos de seguir los pasos indicados para ejecutar una macro en Excel.

Esta macro es muy útil cuando deseamos añadir o restar determinados importes a un rango de celdas que seleccionamos.

Nuestro objetivo sería seleccionar las celdas a las que queremos sumar o restar algo y ejecutar la macro. Esta macro abrirá un cuadro (Inputbox) que nos pedirá el número que queremos sumar o restar. Al incluir el número positivo (para sumar) o negativo (para restar) cambia todas las celdas seleccionadas por el resultado de la operación.

Macro para sumar o restar importes a un rango de celdas

Veámoslo con un ejemplo simple en el que hay una lista de personas y puntuaciones de las mismas.

Crear la macro

Primero debemos de abrir el editor de Visual Basic (VBE) utilizando la combinación de teclas Alt + F11. Hacemos clic sobre el icono de nuestro fichero (ThisWorkbook) con el botón derecho (Insertar – Módulo) o en el Menú (Insertar – Módulo). Se nos abrirá en la parte derecha el editor VBA, en el cual debemos escribir o copiar el código de la macro.

El código de la macro es el siguiente:

Sub SumarImportes()

‘Macro para sumar o restar importes
Dim rng As Range
Dim i As Integer
i = InputBox(“Introduce número para sumar (positivo) o restar (negativo)”, “Valor a sumar o restar”)
For Each rng In Selection
If WorksheetFunction.IsNumber(rng) Then
rng.Value = rng + i
Else
End If
Next rng

End Sub

Ahora debemos de guardar esa macro. Deberemos guardar el fichero como Libro de Excel habilitado para macros (*.xlsm)

Ejecutar la macro

Lo primero que debemos de hacer es seleccionar el rango de celdas a las que queremos sumar o restar un importe dado. Para nuestro ejemplo he seleccionado los cinco primeros valores.

Después deberemos abrir el cuadro de diálogo de Macros. Bien haciendo clic sobre el icono de “ver macros” de la ficha Desarrollador o bien utilizando la combinación de teclas Alt + F8. Del cuadro de diálogo de la macros deberemos de seleccionar la que acabamos de crear y pulsar sobre el botón Ejecutar.

Cuando ejecutamos esa macro aparecerá el cuadro (Inputbox) que nos solicita que le indiquemos el número que queremos sumar a los valores seleccionados en el rango inicial. Para nuestra prueba incluiré 200.

Introduzco el número (200) y le doy a Aceptar.

Podemos observar que funciona perfectamente. Ha sumar 200 a las celdas seleccionadas en un principio. Incluso se pueden seleccionar celdas salteadas mediante la tecla Ctrol. Si lo que deseamos es restar un valor deberemos de incluir un número negativo.