¿Cómo hacer que aparezca un cuadro de mensaje si el valor de la celda es igual a “X” en Excel?

El uso de cuadros de mensaje emergentes es muy útil al buscar cierto contenido en un rango específico. Por ejemplo, si estás buscando un valor de celda igual a 50 en el rango A1:C7, necesitarás que aparezca un cuadro de mensaje indicándote si existe o no dicho valor en las celdas. Los siguientes dos métodos pueden ayudarte.

Mostrar un cuadro de mensaje si el valor de la celda es igual a “X” con código VBA
Mostrar fácilmente un cuadro de mensaje si el valor de la celda es igual a “X” con Kutools para Excel

Mostrar un cuadro de mensaje si el valor de la celda es igual a “X” con código VBA

El siguiente código VBA puede ayudar a crear un cuadro de mensaje emergente cuando un valor determinado existe en un rango especificado. Por favor, sigue los pasos a continuación.

1. En la hoja de cálculo donde necesitas verificar valores en un rango especificado, haz clic derecho en el nombre de la pestaña en la barra de pestañas y luego selecciona Ver Código desde el menú contextual. Ver captura de pantalla:

2. En la ventana de Microsoft Visual Basic para Aplicaciones, copia y pega el siguiente código VBA en la ventana de Código.

Código VBA: mostrar un cuadro de mensaje si el valor de la celda es igual a “X”

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

3. Presiona simultáneamente las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones y regresar a la hoja de cálculo.

A partir de ahora, cuando los valores de las celdas cambien en el rango A1:C7 y haya una celda con valor igual a “50”, obtendrás un cuadro de mensaje como se muestra en la siguiente captura de pantalla.

Además, puedes simplemente seleccionar el rango para que aparezca el cuadro de mensaje si el valor de la celda existe.

Notas:

Mostrar un cuadro de mensaje si el valor de la celda es igual a “X” con Kutools para Excel

La utilidad Seleccionar Celdas Específicas de Kutools para Excel también puede ayudarte a resolver este problema. Por favor, sigue los pasos a continuación.

1. Selecciona el rango en el que deseas buscar si existe el valor de la celda, luego haz clic en Kutools > Seleccionar > Seleccionar Celdas Específicas.

2. En el cuadro de diálogo Seleccionar Celdas Específicas, selecciona la opción Celda en la sección Tipo de selección, luego selecciona Igual en la primera lista desplegable Tipo específico y escribe el valor de la celda en el siguiente cuadro de texto, y finalmente haz clic en el botón Aceptar.

Si el valor de la celda existe en el rango especificado, obtendrás el siguiente cuadro de mensaje; haz clic en el botón Aceptar, y la celda será seleccionada.

De lo contrario, obtendrás el cuadro de mensaje como se muestra en la siguiente captura de pantalla.

Artículos relacionados:

• ¿Cómo eliminar toda la fila si la celda contiene cero en Excel?
• ¿Cómo contar celdas con texto específico en una selección en Excel?