VBA to delete all rows except

[frets]

Hi,

My problem is, I need code to delete all rows of data that doesn't meet the following criteria:

WPU0576
WPU0577
WPU0578....etc.

It needs to search through column A and also i have over 600K lines of data.

Thanks

 

[hiker95]

frets,

WPU0576
WPU0577
WPU0578....etc.

1. Does the column contain a title? If so, what row?

2. What is the range of columns in your dataset?

3. Please explain in more detail WPU0578....etc.


So that we can get it right the first time, can we see a sample of your worksheet?

You can upload a sample of your workbook to Box Net,
sensitive data scrubbed/removed/changed
mark the workbook for sharing
and provide us with a link to your workbook.

 

[montecarlo2079]

try this

Sub sumbyemp2()
Dim i As Long
Dim LR As Long
Application.ScreenUpdating = False
Sheets("sheet1").Select
LR = Cells(Rows.Count, 1).End(xlUp).Row
For i = LR To 2 Step -1
If Range("a" & i) <> "WPU0576" And Range("a" & i) <> "WPU0577" And Range("a" & i) <> "WPU0578" Then
Range("a" & i).EntireRow.Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True

End Sub



If you need to add more criteria just add them to this line

If Range("a" & i) <> "WPU0576" And Range("a" & i) <> "WPU0577" And Range("a" & i) <> "WPU0578" and condition4 and condition 5 Then

add conditions with this code

And Range("a" & i) <> "add value here"
And Range("a" & i) <> "add value here"

etc

Tested and it works

 

[frets]

Ok, thanks for the help.