Producing warnings

Frankie needs HELP · Apr 9th, 2002, 06:35 AM

How do I produce a warning that tells the user of the database that no patients have been admitted?

My spreadsheet contains 7 columns. Column E is the admitted column with the dates that the patients were admitted.

How do I produce an If Statement so that when my macro runs if non of the patients have been admitted a warning will appear?

Juan Pablo González · Apr 9th, 2002, 06:39 AM

Not sure, but, do you check if any patients have been admited depending on today's date ? or yesterday ?

Or do you want to look in Column E and see if there is anything there ?

Dave Hawley · Apr 9th, 2002, 06:41 AM

Hi Frankie

How about

If WorksheetFunction.CountA(Columns(5) = 0) Then
MsgBox "No Patients", vbCritical
Exit Sub
End If

Frankie needs HELP · Apr 9th, 2002, 07:11 AM

It's not working a mis match error appears. Am I doing something wrong? Is there something I will have to change?

Frankie needs HELP · Apr 9th, 2002, 07:13 AM

Juan, yes it is column E I want to look at

Cosmos75 · Apr 10th, 2002, 01:18 PM

EDIT: Deleted posted answer to wrong question

[ This Message was edited by: Cosmos75 on 2002-04-10 13:54 ]

Apr 9th, 2002, 06:39 AM	#2
Juan Pablo González MrExcel MVP Join Date: Feb 2002 Location: Bogota, Colombia Posts: 11,927	Not sure, but, do you check if any patients have been admited depending on today's date ? or yesterday ? Or do you want to look in Column E and see if there is anything there ? __________________ Regards, Juan Pablo González http://www.juanpg.com

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

Apr 9th, 2002, 06:35 AM	#1
Frankie needs HELP New Member Join Date: Apr 2002 Posts: 43	How do I produce a warning that tells the user of the database that no patients have been admitted? My spreadsheet contains 7 columns. Column E is the admitted column with the dates that the patients were admitted. How do I produce an If Statement so that when my macro runs if non of the patients have been admitted a warning will appear?

Apr 9th, 2002, 06:41 AM	#3
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi Frankie How about If WorksheetFunction.CountA(Columns(5) = 0) Then MsgBox "No Patients", vbCritical Exit Sub End If

Apr 9th, 2002, 07:11 AM	#4
Frankie needs HELP New Member Join Date: Apr 2002 Posts: 43	It's not working a mis match error appears. Am I doing something wrong? Is there something I will have to change?

Apr 9th, 2002, 07:13 AM	#5
Frankie needs HELP New Member Join Date: Apr 2002 Posts: 43	Juan, yes it is column E I want to look at

Apr 10th, 2002, 01:18 PM	#6
Cosmos75 Board Regular Join Date: Feb 2002 Location: Tulsa, OK Posts: 354	EDIT: Deleted posted answer to wrong question [ This Message was edited by: Cosmos75 on 2002-04-10 13:54 ]