Saltar al contenido principal

¿Cómo abrir un cuadro de mensaje si la celda es mayor o menor que un valor específico en Excel?

Si una celda es mayor o menor que otra celda, necesito que aparezca un cuadro de mensaje para alertar en Excel. ¿Cómo solucionar este problema en Excel? En este artículo, hablaré sobre algunos códigos para lidiar con él.

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

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


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

Supongamos que tengo un número específico 100 en la celda A1, ahora, cuando el número ingresado en la columna D es mayor que 100 en la celda A1, debería aparecer un cuadro de mensaje para recordarle al usuario.

Aquí, el siguiente código de VBA puede ayudarlo a terminarlo, siga los siguientes pasos:

1. Vaya a la hoja de trabajo que desea usar.

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

Código de VBA: abre un cuadro de mensaje si el valor de la celda en una columna es mayor o menor que una 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

Note: En el código anterior, Sheet1 es la hoja de trabajo que desea utilizar; A1 es el valor de celda con el que desea comparar; D: D es la columna que desea comparar con la celda A1.

3. Luego, guarde y cierre la ventana del código, de ahora en adelante, aparecerá un cuadro de mensaje si ingresa un número en la columna D que sea mayor que 100, vea la captura de pantalla:


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

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

1. Vaya a la hoja de trabajo que desea usar.

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

Código de VBA: aparece un cuadro de mensaje si el valor de la celda es mayor o menor que una 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

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

3. Luego, guarde y cierre la ventana de código, al ingresar un valor que sea menor que el valor en la celda A1, aparecerá un cuadro de mensaje como se muestra a continuación:


Más artículos relativos al cuadro de mensajes emergentes:

  • Crear cuadro de mensaje emergente al abrir un archivo de Excel
  • En cierto caso, es posible que desee que siempre aparezca un cuadro de mensaje para recordarle lo que debe hacer primero cuando abre un libro de trabajo específico, esto puede ayudarlo a recordar hacer lo más importante en su trabajo diario. Y en este artículo, hablaré sobre cómo crear un cuadro de mensaje emergente al abrir un archivo de Excel.
  • Cree un cuadro de mensaje Sí No antes de ejecutar una macro en Excel
  • En Excel, puede activar directamente una macro presionando la tecla F5 o haciendo clic en el botón Ejecutar en la ventana de Microsoft Visual Basic para Aplicaciones. Pero, a veces, es posible que desee crear un cuadro de mensaje que le preguntará al usuario si desea ejecutar la macro. Si es así, continúe ejecutando el código, si no, deje de ejecutar el código. En este artículo, hablaré sobre cómo crear un cuadro de mensaje de sí no antes de ejecutar una macro en Excel.
  • Cree un temporizador de cuadro de mensaje para cerrar automáticamente el cuadro de mensaje después de cierto tiempo
  • Puede usar el script VBA con frecuencia para resolver problemas mientras usa el libro de Excel. Y aparecerán cuadros de mensaje durante la ejecución del script. En algunos casos, le gustaría que algunos buzones de mensajes específicos se cierren automáticamente después de cierto tiempo en lugar de cerrarlos manualmente. En este artículo, le mostraremos el método para crear un temporizador de cuadro de mensaje para cerrar automáticamente el cuadro de mensaje después de cierto tiempo en Excel.

  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y conservación de datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertar rápidamente, Rangos, gráficos e imágenes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Agrupación de tablas dinámicas por número de semana, día de la semana y más ... Mostrar celdas bloqueadas y desbloqueadas por diferentes colores; Resalte las celdas que tienen fórmula / nombre...
pestaña kte 201905
  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
could you help me combine multiple of these rules
This comment was minimized by the moderator on the site
is it possible to include the text from a specific cell in the content of the alert message box?
This comment was minimized by the moderator on the site
Thanks for this, it worked great! But I want to know how can I make this work if the cell that I'm monitoring depends on a cell on another Sheet. For example A1 in Sheet 1 changes values if cell A3 in Sheet 2 changes. I have something like this and the pop up message didn't come up, only when manually changed the A1 on Sheet 1.

Thanks!
This comment was minimized by the moderator on the site
In your VB example above a Pop Up Message Box occurs If Cell A1 is Less than D1 which works well however how do I make it also create a Pop up message for cell A2 is Less than D2, A3 is Less than D3 and so on.
This comment was minimized by the moderator on the site
GRACIAS, COMO PUEDO HACER PARA AMPLIARLO A UN RANDO MAS GRANDE ES DECIR O15:O100 Y N15:N100
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations