How to use before close function with multiple condition are met

[waqas.saeed]

Hi,
I am new to programming. I am trying to write a code for excel sheet form, where multiple individuals have to give their feedback, and my target is creating a sheet in which if one individual respond to certain query as “No” then he should mention his reasons in the corresponding Colum before closing the sheet.
A message box should appear to prompt him that he has to fill the corresponding required field

For example:
If someone selects “No” from the drop-down selection and he does not put a reason for this then he should get a prompt massage and sheet shouldn’t be close until he fills the reason for that.
This is here I have reached so for. it will be appreciated if someone could helpImage.jpg


Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Cells(8, 4).Value = "" Then
MsgBox "Please fill the Remarks "
Cancel = True
End If

End Sub
Private Sub Workbook_Open()
End Sub

[Syrkrasi]

Try this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Sheet1.Cells(8, 3) = "No" And Sheet1.Cells(8, 4) = Empty Then
         MsgBox "You Answered No.  Explanation is required." 'Change verbiage
     Sheet1.Cells(8, 4).Select
  End If
End Sub

[Mumps1]

This macro will force entry of a reason if "No" is chosen. Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Choose Yes or No in column C.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
    Dim reason As String
    Application.EnableEvents = False
    If Target = "No" And Target.Offset(0, 1) = "" Then
        Do
            reason = InputBox("Please enter a reason for answering 'No'.")
            If reason <> "" Then
                Target.Offset(0, 1) = reason
                Exit Do
            ElseIf reason = "" Then
                MsgBox "You must enter a reason."
            End If
        Loop
    End If
    Application.EnableEvents = True
End Sub

[waqas.saeed]

Thanks!

It really helped. I am thankful

[Mumps1]

You are very welcome.