¿Cómo mostrar un cuadro de mensaje cuando el valor de la celda sea igual a “X” en Excel?
Mostrar un cuadro de mensaje resulta muy útil al buscar contenido específico en un rango limitado. Por ejemplo, si busca un valor de celda igual a 50 en el rango A1:C7, puede configurar un cuadro de mensaje que le indique si dicho valor existe o no. Los dos métodos siguientes le ayudarán a lograrlo.
Mostrar cuadro de mensaje si la celda Valor igual a “X” con código VBA
Mostrar fácilmente cuadro de mensaje si la celda Valor igual a “X” con Kutools para Excel
Mostrar cuadro de mensaje si la celda Valor igual a “X” con código VBA
El siguiente código VBA le permite crear un cuadro de mensaje emergente cuando el valor especificado se encuentre dentro del rango limitado. Siga estos pasos:
1. En la hoja de cálculo donde deba comprobar los valores en un rango limitado, haga clic con el botón derecho en el nombre de la pestaña en la barra de pestañas de la hoja y, a continuación, haga clic en Ver código en el menú contextual. Vea la captura de pantalla:
2. En la ventana de Microsoft Visual Basic para Aplicaciones, copie y pegue el siguiente código VBA en la ventana de código.
Código VBA: mostrar cuadro de mensaje si la celda Valor 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 Sub3. Pulse simultáneamente las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones y volver a la hoja de cálculo.
A partir de ahora, cada vez que se modifiquen los valores de las celdas en el rango A1:C7 y alguna celda tenga un valor igual a «50», aparecerá un cuadro de mensaje como el que se muestra en la siguiente captura de pantalla.
Además, también puede seleccionar simplemente el rango para que aparezca el cuadro de mensaje si el valor de la celda ya existe.
Notas:
Mostrar cuadro de mensaje si la celda Valor igual a “X” con Kutools para Excel
La utilidad Seleccionar celdas específicas de Kutools para Excel también puede ayudarle a resolver este problema. Siga estos pasos:
1. Seleccione el rango en el que desea buscar un valor de celda y, a continuación, haga clic en Kutools > Seleccionar > Seleccionar celdas específicas.
2. En el cuadro de diálogo Seleccionar celdas específicas, seleccione la opción Celda en la sección Seleccionar tipo, luego elija Igual a en el primer menú desplegable de la lista Especificar tipo y escriba el valor de la celda en el cuadro de texto siguiente. Por último, haga clic en el botón Aceptar.
Si el valor de la celda existe en el rango limitado, aparecerá el siguiente cuadro de mensaje. Haga clic en el botón Aceptar y se seleccionará la celda.
En caso contrario, aparecerá el cuadro de mensaje que se muestra en la siguiente captura de pantalla.
Si desea probar gratuitamente (30 días) esta utilidad, haga clic aquí para descargarla y, a continuación, siga los pasos anteriores para aplicar la operación.
Artículos relacionados:
- ¿Cómo eliminar una fila completa si la celda contiene un cero en Excel?
- ¿Cómo contar las celdas que contienen un texto específico dentro de una selección en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos