Macro To Look At Specific Data In Cells And Delete Entire Rows

[Dazzawm]

I need a macro for something I do every day and I cant record it as it has different amounts everyday. I need the macro to look at column 'B' and any cell where the second digit is an R I need the entire row deleted. I then need it sorted smallest to largest by column 'D' (row 1 has headers).

Column D will then have values starting with a minus number gradually rising to positive numbers, I then need anything with a zero or higher those rows totally deleted, keeping the rows with a minus value in column 'D'.

The format of the data in column 'B' is normally 2 letters then 6 numbers i.e MR123456, JD456789, XX123456 etc...

Is this possible?

 

[Ropes4u]

www.asap-utilities.com free

 

[VoG]

Hi. ASAP is brilliant but it won't help you with this sort of issue.

Your code is fine but you could replace

If Range("C" & i).Value = "NPPACK" Then Rows(i).Delete
If Range("C" & i).Value = "EXPOSTER" Then Rows(i).Delete
If Range("C" & i).Value = "GYREGISTER" Then Rows(i).Delete
If Range("C" & i).Value = "INFOSHEET" Then Rows(i).Delete

with

With Range("C" & i)
    If .Value = "NPPACK" Or .Value = "EXPOSTER" Or .Value = "GYREGISTER" Or .Value = "INFOSHEET" Then Rows(i).Delete
End With

or (just showing off )

If IsNumeric(Application.Match(Range("C" & i).Value, Array("NPPACK", "EXPOSTER", "GYREGISTER", "INFOSHEET"), 0)) Then Rows(i).Delete

No criticism intended at all. You will become good at this with time and studying the posts on this fine forum.

 

[Ropes4u]

or (just showing off )

If IsNumeric(Application.Match(Range("C" & i).Value, Array("NPPACK", "EXPOSTER", "GYREGISTER", "INFOSHEET"), 0)) Then Rows(i).Delete

Nice bit of vba.