Adding another Condition to VBA Code

[Russ At Index]

Good afternoon ,

Please see code below ...

I have a small problem whereby i wish to delete other named criteria as well as REP 00 from by worksheet.
Along with REP 00 , I wish to also delete rows that contain ( in column D ) , CON 01 , CON 02 and CRT 99.

I am no great "VBAer" , i'm afraid to say , would someone point me in the right direction please .

Many thanks ,

Russ.

Sub test()
With ActiveSheet
.AutoFilterMode = False
With Range("d1", Range("d" & Rows.Count).End(xlUp))
.AutoFilter 1, "*REP 00*"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With
End Sub

 

[Fluff]

Are the values REP 00, CON 01 etc on there own in the cell, or part of a larger string?
Also is it just the 4 values, or are there more?

 

[Russ At Index]

Hi Fluff ,

Hope you are well ,

All there is in the cell in column D is , for example REP 00 , so i need to delete that particular row , along with the other criteria mentioned.

The 4 values are the ones that i need to remove , it will leave : FRA 01 , SHE 01 , PIC 00 , PIC 01 , LIQ 00

Thanks ,

Russ,

 

[Fluff]

Ok, how about

Sub RussAtIndex()
   Dim Ary As Variant
   
   Ary = Array("Rep 00", "con 01", "con 02", "crt 99")
   With ActiveSheet
      .AutoFilterMode = False
      .Range("A1:D1").AutoFilter 4, Ary, xlFilterValues
      .AutoFilter.Range.Offset(1).EntireRow.Delete
      .AutoFilterMode = False
   End With
End Sub

 

[Russ At Index]

In the immortal words of Del Boy ..... "He's only cracked it !!"

Thanks Fluff , as ever fantastic help

Russ

 

[Fluff]

You're welcome & thanks for the feedback.