VBA Delete Rows based on drop down list selection

[Ridofhate]

Dear community members,
I'm new to VBA and would like to try something in one of my excel files. I would like to have a worksheet that based on a drop down list selection only keeps the rows which are referring to this selection.

For Example:
If D4 "LOG" is selected all rows which not contain "LOG" in column "A" should be deleted.
In this case the rows 120 - 142 would have been deleted (if Range is starting from "A74").

Do you have a good idea for a code?

Thank you very much!

 

[Ridofhate]

With the following code i worked to delete the rows. Is there also a possibility, that the way of selection is changed to "contain"? Means that a cell in Column A can contain several functional area and when it contains something from the drop down list it won't be deleted.

Thank you very much!

Sub Selection()
With Sheets("Budget")
    .Range("A8").CurrentRegion.AutoFilter Field:=1, Criteria1:="<>" & .Range("D4").Value
    .Range("A8").CurrentRegion.Offset(1).EntireRow.Delete
    .AutoFilterMode = False
End With
End Sub

 

[Ridofhate]

Trackback. Is there someone who can help regarding this "contain" question?

 

[Fluff]

How about

Criteria1:="<>*" & .Range("D4").Value & "*"

 

[Ridofhate]

@Fluff Thank you very much! It worked.

 

[Fluff]

You're welcome & thanks for the feedback.