Clear Date Stamp

Hi,

I have a file where i am trying to remove the date stamp, it isnt working though, can someone have a look and amend

Many thanks

Sub RemoveDateStamps()

For Each c In Range(Range("A1"), Range("A" & Cells.Rows.Count).End(xlUp))
    If c < Date - 2 And c > 0 Then
        c.EntireRow.ClearContents
    End If
Next
End Sub
Book1.xlsx
Seamus2626Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Rory ArchibaldCommented:
I can only see one date in that column and it doesn't meet the criteria. What are you expecting to happen?
0
Seamus2626Author Commented:
I want the date stamp removed Rory, what is the criteria?
0
Seamus2626Author Commented:
So i want 01/09/2014 removed

Thanks
0
Rob HensonFinance AnalystCommented:
In your VBA Script your criteria are:

Cell value is less than Date - 2 and Cell value is Greater than 0

Date is a standard variable in VBA for the value of today, so in this instance will be 1 Sept 2014. For dates, less than is the same as earlier than. Therefore the cell value is not less/earlier than Date - 2 so won't be removed.

Thanks
Rob H
0
Ejgil HedegaardCommented:
You could use IsDate to check for any date.

Sub RemoveDateStamps()
Dim c As Range
For Each c In Range(Range("A1"), Range("A" & Cells.Rows.Count).End(xlUp))
    If IsDate(c) Then
        c.EntireRow.ClearContents
    End If
Next
End Sub

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.