Macro VBA: Check If Column is empty

[harky]

I had data from

A to T

I want to check the entire column of D, if there is a empty cell. Marco will aborted.
MsgBox "Pls ensure Col D is not empty"

 

[harky]

Thanks! I change but still not working

there is no empty cell on D. The marco is not running.

You have changed the 4th line, not the 2nd!

Dim dRng As Range, lRow As Long
[U]lRow = Cells(Rows.Count, "J").End(xlUp).Row[/U]
On Error Resume Next
    Set dRng = Range("D1:D" & lRow).SpecialCells(xlBlanks)
On Error GoTo 0
If dRng Is Nothing Then
    MsgBox "Pls ensure Col D is not empty", vbExclamation
    Exit Sub
End If

 

[jasonb75]

I missed a 'Not' in the code, change it to

Dim dRng As Range, lRow As Long
lRow = Cells(Rows.Count, "J").End(xlUp).Row
On Error Resume Next
    Set dRng = Range("D1:D" & lRow).SpecialCells(xlBlanks)
On Error GoTo 0
If Not dRng Is Nothing Then
    MsgBox "Pls ensure Col D is not empty", vbExclamation
    Exit Sub
End If

Did you know that you can reply without repeating the previous post each time?

 

[harky]

Thanks! this work great

I missed a 'Not' in the code, change it to

Dim dRng As Range, lRow As Long
lRow = Cells(Rows.Count, "J").End(xlUp).Row
On Error Resume Next
    Set dRng = Range("D1:D" & lRow).SpecialCells(xlBlanks)
On Error GoTo 0
If Not dRng Is Nothing Then
    MsgBox "Pls ensure Col D is not empty", vbExclamation
    Exit Sub
End If

Did you know that you can reply without repeating the previous post each time?