Deleting entries one year old
Thanks that works well
--
AOP
"JW" wrote:
One way:
Range("A" & X & ":F" & X & ",H" & X).ClearContents
AOP wrote:
I have the following code which deletes all entries that are one year old to
date.
Private Sub deleteit()
Dim LastRow As Long
Dim X
LastRow = Range("A20000").End(xlUp).Row
For X = LastRow To 1 Step -1
If Cells(X, 1).Value < Date - 365 Then
Range("A" & X & ":P" & X).ClearContents
End If
Next
End Sub
This code works well, but what I need is only to clear columns A to F and H.
I need it to leave column G alone because it has formulas.
--
AOP
|