VBA IF Cell A is not blank And Cell D is Blank Then...

[DJhuffman]

Ok. Here's another one I've tried to reverse engineer all sorts of similar formulas I've seen, but I'm always falling short. Hopefully, this is easy to someone in the know.

Column A contains numerical strings in general format (don't know if that's important or not).
Column D contains dates.
I am trying to build into my macro a step that will check each cell with data in column A and then see if the corresponding cell in column D is blank or not. If it is blank, I would like to fill the cell with "'00/00/00".

Any assistance would be appreciated. Thank you in advance.

 

[JLGWhiz]

See if this works for you.

Sub t()
Dim rng As Range, c As Range
    With ActiveSheet
        Set rng = Intersect(.Range("A:D"), .UsedRange)
        rng.AutoFilter 4, "="
        For Each c In rng.Offset(1).Columns(1).SpecialCells(xlCellTypeVisible)
            If c > "" Then
                c.Offset(, 3) = "00/00/00"
            End If
        Next
        .AutoFilterMode = False
    End With
End Sub

 

[DJhuffman]

That works marvelously! Thank you.

 

[JLGWhiz]

That works marvelously! Thank you.

You're welcome,
Regards, JLG