Deleting rows in Excel based on data inside 1

[megpow]

I am looking to write an excel macro to delete rows in a sheet based on the "minute" value of the data. I have a sheet with a column that reads sort of like this :
10/20/2003 12:00
10/20/2003 12:12
10/20/2003 12:15
10/20/2003 13:00
10/20/2003 13:15
...

I'd like to delete the entire row associated with any cell having the number 12 as a minute reading, i.e. 10/20/2003 12:12 (but not 10/20/03 12:12 ... only the ones where the minute reading is a 12!)

I am stumped!

 

[Loomah]

Hi
Summat like this should do it. Assumes your data is in Column A and starts in row 1 (ie A1)

Sub a()
Dim lRow As Long, lCnt As Long
lRow = [a65536].End(xlUp).Row
For lCnt = lRow To 1 Step -1
    If Minute(Cells(lCnt, 1).Value) = 12 Then
        Rows(lCnt).EntireRow.Delete
    End If
Next
End Sub

;-)

If a man says something and there are no women there to hear him, is he still wrong?
The faqs ma'am, just the faqs. Get the best from these forums : faq222-2244

 

[SkipVought]

Hi,

What's wrong with...

10/20/2003 12:12 (but not 10/20/03 12:12?

other than it may not be a date/time value???

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[megpow]

Yeh, sorry, that was a typo i meant to type
10/20/2003 12:12 (but not 10/20/2003 12:00)

Anyways, Loomah, your code worked perfect! Thanks for the help !

 

[SkipVought]

pssssst, megpow,

Don't you agree with me that Loomah's answer was...

a helpful/expert post!

???

So don't forget...


Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[BenyG]

hehe )

I thought that sort of prompting was not allowed ?

I guess as it was nto for yourself you can get away with it.