Messagebox al digitar No
Saludos Esperos disculpen mi ignorancia.
Como puedo hacer para que salga un mensaje al digitar "NO" en ciertas celdas.
Messagebox: "INFORME AL ENCARGADO EL RESULTADO"
Rangos en los que debería salir el mensaje:
De: C4 a C45
De: E4 a E45
De: G4 a G45
Gracias por la colaboración que me puedan brindar.
Como puedo hacer para que salga un mensaje al digitar "NO" en ciertas celdas.
Messagebox: "INFORME AL ENCARGADO EL RESULTADO"
Rangos en los que debería salir el mensaje:
De: C4 a C45
De: E4 a E45
De: G4 a G45
Gracias por la colaboración que me puedan brindar.
1 respuesta
Respuesta de Elsa Matilde
1
Entrá al Editor presionando juntas las teclas Alt y F11
Seleccioná con doble clic el objeto HOJA que encontrarás en el panel a tu izquierda (la HOJA será donde tengas estas celdas).
Allí escribí esta rutina:
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'controlamos lo ingresado en rgos: C4:C45, E4:E45 y G4:G45
If Not Intersect(Target, Range("C4:C45")) Is Nothing Or Not Intersect(Target, Range("E4:E45")) Is Nothing Or Not Intersect(Target, Range("G4:G45")) Is Nothing Then
If Target.Value = "NO" Then MsgBox "INFORME AL ENCARGADO EL RESULTADO", , "ATENCIÓN"
End If
End Sub
Volvé a la hoja y pruébala. Luego finalizá la consulta si el tema quedó resuelto.
Seleccioná con doble clic el objeto HOJA que encontrarás en el panel a tu izquierda (la HOJA será donde tengas estas celdas).
Allí escribí esta rutina:
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'controlamos lo ingresado en rgos: C4:C45, E4:E45 y G4:G45
If Not Intersect(Target, Range("C4:C45")) Is Nothing Or Not Intersect(Target, Range("E4:E45")) Is Nothing Or Not Intersect(Target, Range("G4:G45")) Is Nothing Then
If Target.Value = "NO" Then MsgBox "INFORME AL ENCARGADO EL RESULTADO", , "ATENCIÓN"
End If
End Sub
Volvé a la hoja y pruébala. Luego finalizá la consulta si el tema quedó resuelto.
