MsgBox if day = saturday

Mar 9th, 2002, 05:36 PM

Hi there,
Please help me write a macro to do the following:
I need a message box to pop up if a certain condition is met.
The condition is if the day in a particular cell is Saturday. The particular cell contains the formula =today().

thank you.

Dave Hawley · Mar 9th, 2002, 07:05 PM

Try

If Weekday(Range("A2")) = 7 Then
MsgBox "Hello, today is Saturday", vbInformation
End If

Mar 11th, 2002, 08:11 AM

I have a similar query and this solution has helped but how do I get the message box to only pop up once? As it is it pops up everytime there is a key entry anywhere else on the sheet.

Then how do I get it to move two cells to the right so the cell selector is in the right place for the next key entry?

Hope you can help!

Dave Hawley · Mar 11th, 2002, 08:33 AM

Hi

The code would normally go in the Workbook_Open Procedure of the Workbook module. Sounds like you have it the:

Worksheet_Calculate

Mar 11th, 2002, 08:38 AM

It says Worksheet_SelectionChange

What should it be on?

Dave Hawley · Mar 11th, 2002, 07:56 PM

Hi

While in Excel right click on the Excel icon top left next to "File" then select "View Code" This will take you to the Private Module of the Workbook. in here place:

Private Sub Workbook_Open()
If Weekday(Sheet1.Range("A2")) = 7 Then
MsgBox "Hello, today is Saturday", vbInformation
End If

End Sub

But of course this depends on when you want the code to run.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 9th, 2002, 05:36 PM	#1
Guest Posts: n/a	Hi there, Please help me write a macro to do the following: I need a message box to pop up if a certain condition is met. The condition is if the day in a particular cell is Saturday. The particular cell contains the formula =today(). thank you.

Mar 9th, 2002, 07:05 PM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Try If Weekday(Range("A2")) = 7 Then MsgBox "Hello, today is Saturday", vbInformation End If

Mar 11th, 2002, 08:11 AM	#3
Guest Posts: n/a	I have a similar query and this solution has helped but how do I get the message box to only pop up once? As it is it pops up everytime there is a key entry anywhere else on the sheet. Then how do I get it to move two cells to the right so the cell selector is in the right place for the next key entry? Hope you can help!

Mar 11th, 2002, 08:33 AM	#4
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi The code would normally go in the Workbook_Open Procedure of the Workbook module. Sounds like you have it the: Worksheet_Calculate

Mar 11th, 2002, 08:38 AM	#5
Guest Posts: n/a	It says Worksheet_SelectionChange What should it be on?

Mar 11th, 2002, 07:56 PM	#6
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi While in Excel right click on the Excel icon top left next to "File" then select "View Code" This will take you to the Private Module of the Workbook. in here place: Private Sub Workbook_Open() If Weekday(Sheet1.Range("A2")) = 7 Then MsgBox "Hello, today is Saturday", vbInformation End If End Sub But of course this depends on when you want the code to run.