Need Help shortening Else/If statments

[kingkyle2005]

I need to check multiple cell values to see if there is a value present in the cell prior to proceeding with the print action. I will be needing to add multiple additional cells to the following code, and am also wondering if I have a range such as AO15:AO16, if that can be entered into on one line instead of two.

Also, if there is a better way to do this besides using 50 Else/If statements, it would truly save me headaches and code confusion.

Please Login or Register  to view this content.

[protonLeah]

Please Login or Register  to view this content.

[Greg M]

Hi there,

Take a look at the attached workbook and see if it does what you need.

Basically, the addresses of the cells which should be checked for missing data are listed in a table on the "Checks" worksheet, together with the error message which should be displayed if the cell is empty. The table will accommodade 25 address/message pairs, but this can be increased if necessary by changing the value in Cell B2 on the "Checks" worksheet.

The VBA code loads the contents of the table into an array, and then scans through each pair of array elements - if no value is found in the cell whose address is listed in the array, the corresponding error message is displayed and the cell in question is selected so that the missing data can be entered immediately.

Hope this helps - please let me know how you get on.

Regards,

Greg M

[kingkyle2005]

@ ProtonLeah This works wonderfully, Thank you Much!
@ Greg M, Website is not allowing me to view the document for some reason, perhaps it is my internet settings, but it keeps requiring me to "re-login"

[Greg M]

Hi there,

I've reposted my original post - maybe we'll be luckier with it this time!

Hi there,

Take a look at the attached workbook and see if it does what you need.

Basically, the addresses of the cells which should be checked for missing data are listed in a table on the "Checks" worksheet, together with the error message which should be displayed if the cell is empty. The table will accommodade 25 address/message pairs, but this can be increased if necessary by changing the value in Cell B2 on the "Checks" worksheet.

The VBA code loads the contents of the table into an array, and then scans through each pair of array elements - if no value is found in the cell whose address is listed in the array, the corresponding error message is displayed and the cell in question is selected so that the missing data can be entered immediately.

Hope this helps - please let me know how you get on.

Regards,

Greg M

Greg M