Using Yes No Message Box

[clarksonneo]

Hi,

I don't understand how to use "Yes No Message Box".

What I need is:

After I run the Marco, a message box with a yes button and a no button will appear.

If I click Yes, the text in cell C3 will be deleted.
If I click No, the text in cell C3 will be not deleted.


Could you please write the marco for me?


What I need seem unnesscary to use marco, but the actual marco I am writing is not the one in this thread.

Thanks

[mancubus]

try

[vba]
Sub del()
response = MsgBox("question?", vbYesNo + vbQuestion, "title")
If response = vbYes Then
Range("C3").ClearContents
End If
End Sub
[/vba]

[mancubus]

or


[vba]
Sub dellll()
If MsgBox("question?", vbYesNo + vbQuestion, "title") = vbYes Then
Range("C3").ClearContents
End If
End Sub
[/vba]

[JP2112]

or

[VBA]Sub clearcell()
If CBool(vbNo - MsgBox("delete c3?", vbYesNo)) Then
Range("C3").ClearContents
End If
End Sub[/VBA]

[shrivallabha]

[VBA]Sub DeleteCellContent()

Dim Decision As VbMsgBoxResult

Decision = MsgBox("Do yo want to delete content in Cell C3?", vbYesNo, "DECIDE")
Select Case Decision
Case 6 'Yes case
Range("C3").ClearContents
Case 7 'No case
'Do nothing
End Select

End Sub
[/VBA]

[JP2112]

You could even turn mine into a one-liner (Rick Rothstein would be proud):


[vba]Sub clearcell()
If CBool(vbNo - MsgBox("delete c3?", vbYesNo)) Then Range("C3").ClearContents
End Sub[/vba]

[Kenneth Hobs]

[VBA]If MsgBox("delete c3?", vbYesNo) = vbYes Then Range("C3").ClearContents[/VBA]