Macros: Actualizar valores y condiciones
Buenos días.
Es posible que una macro como el siguiente ejemplo, después de ejecutarla, se le puedan modificar valores al rango definido en la macro y esta actualice y tenga en cuenta los condiciones que se le han dado.
Esta macro funciona perfectamente cuando se ejecuta, pero cuando modifico los valores, debo volverla a ejecutar para que me divida el valor en 10 si es > 1000 o ejecute un MsgBox si no cumple la condición.
Sub Ejemplo()
With Selection.Interior
If ActiveCell.Offset(-2, 2) > 1000 Then
ActiveCell = ActiveCell.Offset(-2, 2) / 10
Else
ActiveCell = MsgBox(Prompt:="Retención no aplicable")
ActiveCell = ""
End If
End With
End Sub
Gracias.
Es posible que una macro como el siguiente ejemplo, después de ejecutarla, se le puedan modificar valores al rango definido en la macro y esta actualice y tenga en cuenta los condiciones que se le han dado.
Esta macro funciona perfectamente cuando se ejecuta, pero cuando modifico los valores, debo volverla a ejecutar para que me divida el valor en 10 si es > 1000 o ejecute un MsgBox si no cumple la condición.
Sub Ejemplo()
With Selection.Interior
If ActiveCell.Offset(-2, 2) > 1000 Then
ActiveCell = ActiveCell.Offset(-2, 2) / 10
Else
ActiveCell = MsgBox(Prompt:="Retención no aplicable")
ActiveCell = ""
End If
End With
End Sub
Gracias.
1 respuesta
Respuesta de perdita
1
Utilizar la fórmula condicional directamente en Excel, te calcula cada vez que modificas el valor.
=SI(D15<1000;"Retención no Aplicable";D15/10)
Suponiendo d15 con los datos de tu "activecell"
Como sabes las macros sólo se ejecutan cuando le pasas la orden.
Otra opción sería disponer de un botón en la barra de herramientas de excel, de tal forma, la pudieras ejecutar fácilmente, sin tener que ir abrir macros.
Fácilmente lo consigues en Personalizar/Macros y arrastrando el icono a la barra de herramientas
=SI(D15<1000;"Retención no Aplicable";D15/10)
Suponiendo d15 con los datos de tu "activecell"
Como sabes las macros sólo se ejecutan cuando le pasas la orden.
Otra opción sería disponer de un botón en la barra de herramientas de excel, de tal forma, la pudieras ejecutar fácilmente, sin tener que ir abrir macros.
Fácilmente lo consigues en Personalizar/Macros y arrastrando el icono a la barra de herramientas
