VBA to delete rows base on certain numbers in Column D

[zone709]

Hi i have alot of delete row codes if cell is empty or even if certain columns have certain names.

What i need help on now is Delete entire row except for these numbers in Column D 74,70,113,13,69,115

Any help thanks

 

[Fluff]

How about

Sub delRws()
With Range("D2", Range("D" & Rows.count).End(xlUp))
   .Value = Evaluate(Replace("if((@=74)+(@=70)+(@=113)+(@=13)+(@=69)+(@=115),@,"""")", "@", .Address))
   .SpecialCells(xlBlanks).EntireRow.Delete
End With
End Sub

 

[zone709]

Boom works great thanks for the help..

 

[Fluff]

Glad to help & thanks for the feedback

 

[zone709]

Hi im back one more thing i ran into. I need to also do this similar thing. Delete these rows with these numbers in D except for everything else.

 

[Fluff]

Can you please re-explain?

 

[zone709]

So instead of deleting everything except these numbers in D. I want to actually delete these rows with these number except everything else on my sheet. Its like the opposite

 

[Fluff]

In that case try

Sub delRws()
With Range("D2", Range("D" & Rows.count).End(xlUp))
   .Value = Evaluate(Replace("if((@=74)+(@=70)+(@=113)+(@=13)+(@=69)+(@=115),[COLOR=#ff0000]"""",@[/COLOR])", "@", .Address))
   .SpecialCells(xlBlanks).EntireRow.Delete
End With
End Sub

However any rows that are blank in col D will get deleted.

 

[zone709]

Hi this worked thanks again for the help..

 

[Fluff]

You're welcome