How to check if a specific range of cells have any blank cell?

[justme101]

Hello,

I have prepared a simple form on an excel sheet for my team. Look at the sample below and the questions after that:

Assume this is the entire form. The number of rows are fixed (14), excluding header. Let's say the user has filled up 4 rows of data. What I need to do is to check whether all the cells in those 4 rows, where the column header is highlighted in BLUE, have been filled or not. No need to check the blank rows after the last data line. Can you help me with a VBA to do that? Please let me know if the explanation was not satisfactory. Thank you, in anticipation.

 

[jasonb75]

I think that this should overcome any issues, although I've only done a very quick test.

Sub Find_Blanks()
Dim rng As Range
On Error Resume Next
    Set rng = Intersect(Range("A1:F15").SpecialCells(xlConstants).EntireRow, Range("A:C,E:E")).SpecialCells(xlBlanks)
On Error GoTo 0
If Not rng Is Nothing Then
    MsgBox "Blanks found" & vbCrLf & rng.Address(0, 0)
Else
    MsgBox "OK"
End If
End Sub

 

[justme101]

I think that this should overcome any issues, although I've only done a very quick test.

Sub Find_Blanks()
Dim rng As Range
On Error Resume Next
    Set rng = Intersect(Range("A1:F15").SpecialCells(xlConstants).EntireRow, Range("A:C,E:E")).SpecialCells(xlBlanks)
On Error GoTo 0
If Not rng Is Nothing Then
    MsgBox "Blanks found" & vbCrLf & rng.Address(0, 0)
Else
    MsgBox "OK"
End If
End Sub

YES! This works. Much appreciated. Thank you to everyone who took out time to respond.