¿Cómo hacer que aparezca un cuadro de mensaje cuando una celda sea mayor o menor que un valor específico en Excel?

Si una celda es mayor o menor que otra, necesito que aparezca un cuadro de mensaje en Excel para avisarme. ¿Cómo puedo resolver este problema? En este artículo te mostraré algunos códigos para lograrlo.

Mostrar un cuadro de mensaje si el valor de una celda en una columna es mayor o menor que el de otra celda

Mostrar un cuadro de mensaje si el valor de una celda es mayor o menor que el de otra celda

---

Mostrar un cuadro de mensaje si el valor de una celda en una columna es mayor o menor que el de otra celda

Supongamos que tienes el número específico 100 en la celda A1. Cada vez que un valor introducido en la columna D supere ese número (es decir, sea mayor que el valor de la celda A1), debería mostrarse un cuadro de mensaje para avisar al usuario.

El siguiente código VBA le ayudará a lograrlo. Siga estos sencillos pasos:

1. Vaya a la hoja de cálculo que desee utilizar.

2. Haga clic con el botón derecho en la pestaña de la hoja y seleccione Ver código en el menú contextual. A continuación, en la ventana emergente de Microsoft Visual Basic para Aplicaciones, copie y pegue el siguiente código en la ventana en blanco del módulo. Vea la captura de pantalla:

Código VBA: mostrar un cuadro de mensaje si el valor de una celda en una columna es mayor o menor que el de otra celda

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

Nota: En el código anterior, Hoja1 es la hoja de cálculo que desea utilizar; A1 es el valor de la celda con el que desea comparar; D:D es la columna que desea comparar con la celda A1.

3. A continuación, guarde y cierre la ventana de código. A partir de ahora, aparecerá un cuadro de mensaje si introduce en la columna D un número mayor que 100. Vea la captura de pantalla:

---

---

Mostrar un cuadro de mensaje si el valor de una celda es mayor o menor que el de otra celda

Si desea que aparezca un cuadro de mensaje cuando el valor de una celda sea mayor o menor que el de otra celda, aplique el siguiente código:

1. Vaya a la hoja de cálculo que desea utilizar.

2. Haga clic con el botón derecho en la pestaña de la hoja y seleccione Ver códigoen el menú contextual. En la ventana emergente de Microsoft Visual Basic para Aplicaciones, copie y pegue el siguiente código en la ventana en blanco del módulo. Vea la captura de pantalla:

Código VBA: mostrar un cuadro de mensaje si el valor de una celda es mayor o menor que el de otra celda

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

Nota: En el código anterior, A1 y D1 son las dos celdas que desea comparar.

3. A continuación, guarda y cierra la ventana de código. Al introducir un valor inferior al de la celda A1, aparecerá un cuadro de mensaje como el que se muestra en la siguiente captura de pantalla:

---

Más artículos relacionados sobre cuadros de mensaje emergentes: