Macro para avisar con un mensaje dependiendo del resultado de una celda
Hola de nuevo a todos. Mi problema es el siguiente. Tengo en una hoja de excel y en una celda determinada, (pongamos hoja 2 celda A1), una función por la cual dependiendo del resultado de una resta, esa celda me muestra sólo dos palabras, CORRECTO o INCORRECTO.
Ahora lo único que quería es una macro que, en caso de que esa celda pusiese INCORRECTO, saltara un mensaje de aviso que me dijera por ejemplo: "Error en Hoja 2"
Con esto lo que pretendo es que, esté yo en la hoja que esté, si la casilla A1 de la hoja 2 pone incorrecto, me avise con un mensaje, de lo contrario sólo lo veo si voy a esa hoja a mirar.
Muchas gracias por el esfuerzo.
1 respuesta
Abre el editor de visual basic (Teclas Alt + F11)
Dale doble click al objeto "ThisWorkbook"
Allí pones esto:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'4c7569735f50
If UCase(Sheets(2).Range("A1")) = "INCORRECTO" Then MsgBox "Error en hoja2", vbCritical, "atención"
End Sub
Grabas y cierras el editor.
Entonces cada vez que en la celda a1 hoja 2 aparezca "incorrecto", tendrás el mensaje.
Bye
