Alert - Msgbox

[ashani]

Hi,

I'm using the below coding - is it possible if user select No in the message box than in G15 it says Alert ?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.CountLarge > 1 Then Exit Sub
  If Not Intersect(Target, Range("C10")) Is Nothing Then
    If LCase(Target.Value) Like "*yes*" Then
      MsgBox "Test", vbYesNo + vbCritical, ("*** TEST ***")
      End If
End If

 

[Michael M]

Try using

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ans As string
  If Target.CountLarge > 1 Then Exit Sub
  If Not Intersect(Target, Range("C10")) Is Nothing Then
    If LCase(Target.Value) Like "*yes*" Then
      ans = MsgBox("Test", vbYesNo + vbCritical, ("*** TEST ***"))
      If ans = vbNo Then Range("G15").Value = "ALERT"
      End If
End If
End Sub

 

[ashani]

Thank you so much @Michael M

Sorry I forgot to add - Is it possible to clear contents in cell G15 if user clear the value in C10.

 

[Michael M]

At what point will the user clear G10?
Before or after the MsgBox ?