How to display warning/alert messages if cells are blank in Excel?
Let's say you have designed a questionnaire in Excel as the following screen shot shown.
Now you want to display a warning message or alert if there are questions that have not been answered, how do you get it done? In this article, I will share three methods to display warning/alert messages if cells are blank in a specific range in Excel.
We can create a warning message with custom text and ISBLANK function to indicate there are blank cells in a specific range in Excel. And you can do as following:
Step 1: In a blank cell, enter the formula ="There are still "&COUNTBLANK(B1:B16)&" questions you have not answered!"; and press the Enter key.
Note: In the formula above, the B1:B16 is the specific range of Answer column where you want to count the blank cells, and you can change it as you need.
Step 2: Then format the cell to make it outstanding. Select the cell, and click the Home > Font Color > Red, next click the Bold button, and then specify the font size as you need.
We can also add a help column to display warning messages besides each blank cell in specific range. And you can do as following:
Step 1: in the Cell C2 besides the Answer column, enter the formula =IF(ISBLANK(B2),"Please Answer This Question",""), and drag the Fill Handle to the range you need.
Step 2: Next select the range you apply the formula, and then format with clicking Home > Font Color > Red and clicking the Bold button.
So far, we have added the warning messages behind each blank cell of Answer column. See the screen shot below:
We can also apply a VBA macro to check if there are blank cells in the specific range in Excel. And you can do it as following:
Step 1: Press the Alt + F11 keys to open the Microsoft Visual Basic for Application window.
Step 2: Click the Insert > Module, and then paste the following VBA code into it.
VBA: Warn if blank cells exist in specific range
Step 3: Press the F5 or Run button to apply this VBA macro.
Sub BlackCell() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "Kutools for Excel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Set WorkRng = WorkRng.SpecialCells(xlCellTypeBlanks) If Err = 0 Then MsgBox "You don't answer all of questions!" End If End Sub
Step 4: Now the Kutools for Excel dialog box comes out, and please specify the range you want to check whether blank cells exist or not, and click OK button to close the dialog box.
If blank cells exist in the specific range, it will pop up a dialog box as the following screen shot shown:
Best Office Productivity Tools
Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time. Click Here to Get The Feature You Need The Most...
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!