Excel VBA question

[tdpman]

OK, need a hand here. This should be a simple piece of code, I think.

I need a piece of code that will look at the contents of column H, and if it equals "00/00/00", I need it to clear the contents of column M on the same row.

Thanks!

 

[amm9290]

sub RemoveIt
MCol = Range("M:M&quot.Column
For Each c In Range("H1", Cells(Range("H:H&quot.Rows.Count, Range("H:H&quot.Column).End(xlUp).Address)
If c.Value = "00/00/00" Then
Cells(c.Row, MCol).Value = ""
End If
Next c
end

Hope it helps.

 

[SkipVought]

Hi,

Here's a way, not knowing you you are accessing a particular row...

    With ActiveCell
       If Cells(.Row, "H").Value = "00/00/00" Then
          Cells(.Row, "M").ClearContents
       End If
    End With

Hope this helps Skip,
metzgsk@voughtaircraft.com