Hay ocasiones en las que es necesario ajustar los valores almacenados en las celdas de una hoja de trabajo. La mayoría de las veces, las herramientas proporcionadas por Paste Special encajarán perfectamente. Por ejemplo, puede usar Pegado especial para multiplicar o dividir los valores en un rango de celdas, como se describe en otros números de ExcelTips.

Sin embargo, hay un inconveniente en el uso de Pegado especial: cambia el valor real, lo que es posible que no desee que ocurra. ¿Por qué? Porque cuatro meses después de realizar el ajuste de los valores, es posible que no recuerde exactamente lo que hizo o cuáles fueron los valores iniciales.

Por esta razón, puede que le resulte más conveniente reemplazar los valores con fórmulas que indiquen lo que se hizo con su ajuste. Por ejemplo, puede tener el valor de 100 en la celda B3 y desea aumentarlo en un 10%. Con Pegado especial, puede cambiarlo fácilmente a 110, pero es posible que desee reemplazar el valor con la fórmula = 100 * 1.1. Con tal fórmula, dentro de cuatro meses no habría dudas sobre el valor inicial o lo que le hizo.

La única forma de ajustar valores con fórmulas es usar una macro, como la siguiente:

Sub Adjust()

Dim c As Range     Dim sMod As String

sMod = InputBox("Formula to add?")

If sMod > "" Then

For Each c In Selection             If c.HasFormula Then                 c.Formula = "=(" & Mid(c.Formula, 2) & ")" & sMod             Else                 c.Formula = "=" & c.Value & sMod             End If         Next c     End If End Sub

Para usar esta macro, seleccione las celdas que desea ajustar y luego ejecútela.

Se le solicita una fórmula para agregar a las celdas. Por ejemplo, si desea multiplicar las celdas por 1,1, debe ingresar 1,1 (el símbolo de multiplicación de asterisco, seguido de 1,1). Luego, la macro recorre cada celda seleccionada y realiza los ajustes. Si la celda contiene una fórmula, la fórmula se ajusta según lo especificado. Si la celda contiene algo más, entonces se convierte en una fórmula que incluye su ajuste.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (9486) se aplica a Microsoft Excel 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Adjusting_Values_with_Formulas [Ajuste de valores con fórmulas].