VBA - Delete all rows except rows which contain certain text

[Giggs1991]

Hi All,

I have a excel workbook with 2 worksheets.
Worksheet A has a very badly formatted data dump from our timesheet tool.
Worksheet B has a list of project names.

I am looking for a vba code which when run will delete all rows in Worksheet A expect for rows which have dates in them and rows which have project names from Worksheet B.

 

[ajetrumpet]

giggs, try this:

first, on worksheet A, add 3 columns to establish the criteria for deletion so it looks like this:

.....which is established by writing these formulas in the last 3 columns:

and assuming your worksheet B looks like this:

....then all you would need to do is run this code behind worksheet A:

Function del_rows_without_date_and_project()
Dim r As Range
Application.ScreenUpdating = False
    For Each r In Range("h2", Range("h2").End(xlDown))
        If r = "YES" Then 'DELETE THE ROW, OUR FORMULAS TELL US THE CRITERIA IS SET FOR THIS ROW
            r.EntireRow.Delete (xlUp)
        End If
    Next r
Application.ScreenUpdating = True
End Function

 

[Giggs1991]

Thank you so much!!! i'll try this code