VBA Code for yes/no pop-up box

[MDBHR]

Hello,
wondering if I could get some help writing code to create a yes/no pop-up message box?
I want it to appear when I click on a specific sheet within my workbook. Then, depending on the answer, fill a designated cell with an "x".

 

[JEC]

Behind your specific sheet module

Private Sub Worksheet_Activate()
On Error Resume Next
If MsgBox("Want to fill cell?", vbYesNo, "test") = vbYes Then Range(Application.InputBox("Value?", "Test")) = "x"
End Sub

 

[Peter_SSs]

fill a designated cell with an "x"

How do we know what the "designated cell" is?

BTW, I suggest that you update your Account details (click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

 

[MDBHR]

How do we know what the "designated cell" is?

BTW, I suggest that you update your Account details (click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

When I click on my "Customer Info" sheet within my workbook, I want the pop-up box to ask, "Has this customer seen our company's digital ad?"
If no, b3="x"
If yes, b2="x"

Thanks! Account details updated.

 

[MDBHR]

Behind your specific sheet module

Private Sub Worksheet_Activate()
On Error Resume Next
If MsgBox("Want to fill cell?", vbYesNo, "test") = vbYes Then Range(Application.InputBox("Value?", "Test")) = "x"
End Sub

While that code worked perfectly, I'm afraid I didn't explain well enough. If you check out my response to Peter_SSs, it may be more clear to you what my end goal is. VBA Code for yes/no pop-up box

 

[Rick Rothstein]

I am not clear on which event you need for your request. You say you want the MessageBox to popup "when [you] click on a specific sheet within my workbook"... does that mean when you first activate (select) the sheet? or does that mean when you click on a cell within the sheet? If the latter, do you everytime any cell is clicked? In any event (no pun intended), here is the line of code that you can use...

Cells(MsgBox("Want to fill cell?", vbYesNo, "Test") - 4, "B").Value = "X"

 

[Peter_SSs]

.. here is the line of code that you can use...

Cells(MsgBox(""Want to fill cell?"", vbYesNo, "Test") - 4, "B").Value = "X"

Double quotes?

 

[Rick Rothstein]

Double quotes?

Not sure why I did that.? I changed them to single quotes in my code I posted. Thanks for noting that.

 

[MDBHR]

Hello,
wondering if I could get some help writing code to create a yes/no pop-up message box?
I want it to appear when I click on a specific sheet within my workbook. Then, depending on the answer, fill a designated cell with an "x".

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    
    Dim Answer As VbMsgBoxResult
  
    On Error Resume Next
    If Sh.Name = "Sheet1" Then
        Answer = MsgBox("Has this customer seen an MDB Ad Online?", vbQuestion + vbYesNo + vbDefaultButton2, "Digital Ad Tracking")

    If Answer = vbYes Then
      Range("B2").Value = ("Dan")
       ElseIf Answer = vbNo Then
      Range("B3").Value = ("Is great")

End If
End If

End Sub

 

[MDBHR]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
    Dim Answer As VbMsgBoxResult
 
    On Error Resume Next
    If Sh.Name = "Sheet1" Then
        Answer = MsgBox("Has this customer seen an MDB Ad Online?", vbQuestion + vbYesNo + vbDefaultButton2, "Digital Ad Tracking")

    If Answer = vbYes Then
      Range("B2").Value = ("Dan")
       ElseIf Answer = vbNo Then
      Range("B3").Value = ("Is great")

End If
End If

End Sub

Written by MrExcel member, Dan Swartz