check for blanks in specific columns

[QuietRiot]

not sure why im having a hard time with this..
check for any blanks in columns A, B, D, E, F, G and J

 

[JamesW]

Hi,

What do you want to do with the blanks?

This will count the number of blanks:

=CountBlank(A1:J1000)

 

[QuietRiot]

actually i need VBA. i just want a message box that column bla contains a blank and then exit sub

 

[JamesW]

Hi,

Try:

Sub happyPanda()
    lRow = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lRow
        For j = 1 To 10
            If Cells(i, j).Value = "" Then MsgBox "Cell " & Cells(i, j).Address(RowAbsolute:=False, ColumnAbsolute:=False) & " contains a blank! *sadpanda*"
        Next j
    Next i
End Sub

Or for column number:

Sub happyPanda()
    lRow = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lRow
        For j = 1 To 10
            If Cells(i, j).Value = "" Then MsgBox "Column " & Cells(i, j).Column & " contains a blank! *sadpanda*"
        Next j
    Next i
End Sub