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: