Help with creationg a MsgBox with VBYes and VBNo, then putting a 1 or 0 in
Sheet4, cell C4. Probably putting the code in Workbook Open?
Example:If date is =July1 and <July 5 then Msgbox "Do you qualify for Bank
Day? If VBYes is selected then a 1 is sent to Sheet4 cell C4, If VBNo then a
0 is sent to Sheet4 cell C4. I just can't write the code correctly.
Thanks in advance

You can try this for the MsgBox portion.

intResp = MsgBox("Do you qualify for Bank Day?", vbYesNo)
If intResp = 6 Then ' Yes was clicked
Sheets(4).Cells(4, 3).Value = 1
End If
If intResp = 7 Then ' No was clicked
Sheets(4).Cells(4, 3).Value = 0
End If



Steve Yandl



"Richard" wrote in message
...
Help with creationg a MsgBox with VBYes and VBNo, then putting a 1 or 0 in
Sheet4, cell C4. Probably putting the code in Workbook Open?
Example:If date is =July1 and <July 5 then Msgbox "Do you qualify for
Bank
Day? If VBYes is selected then a 1 is sent to Sheet4 cell C4, If VBNo then
a
0 is sent to Sheet4 cell C4. I just can't write the code correctly.
Thanks in advance

Private Sub Workbook_Open()
Dim ans
If Month(Date) = 7 Then
If Day(Date) = 1 And Day(Date) < 5 Then
If MsgBox("Do you qualify for Bank Day?", _
vbYesNo) = vbYes Then
Worksheets("Sheet4").Range("C4").Value = 1
Else
Worksheets("Sheet4").Range("C4").Value = 0
End If
End If
End If
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Richard" wrote in message
...
Help with creationg a MsgBox with VBYes and VBNo, then putting a 1 or 0 in
Sheet4, cell C4. Probably putting the code in Workbook Open?
Example:If date is =July1 and <July 5 then Msgbox "Do you qualify for
Bank
Day? If VBYes is selected then a 1 is sent to Sheet4 cell C4, If VBNo then
a
0 is sent to Sheet4 cell C4. I just can't write the code correctly.
Thanks in advance