Filter based on 3 OR conditions and cut paste the same on different sheet

[shan]

Hello Everybody,

Looking for a macro code which will Filter the data of a column based on 3 OR conditions and cut paste the same in new sheet named "Kont".

I have recorded below code but unable to add third OR condition i.e. "=*GHI*".
Kindly assist me on the same.


ActiveSheet.Range("$A$1:$R$7322").AutoFilter Field:=9, Criteria1:="=*ABC*" _
, Operator:=xlOr, Criteria2:="=*DEF*"


Regards,
Shan

[mancubus]

Sub vbax_54323_AutoFilter_Three_Or_More_Criteria()

Dim FilterCrit
Dim i As Long

FilterCrit = Array("*ABC*", "*DEF*", "*GHI*")

With Worksheets("MySheet") 'change MySheet to suit
    For i = LBound(FilterCrit) To UBound(FilterCrit)
        .Cells(1).AutoFilter Field:=9, Criteria1:="=" & FilterCrit(i)
        If .AutoFilter.Range.Rows.Count > 1 Then 'check if there are any filtered rows
            'code with filtered rows here
            
            'example: copy and delete filtered rows
            '.UsedRange.Columns(1).Offset(1).SpecialCells(12).EntireRow.Copy Destination:=Worksheets("MySheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
            '.UsedRange.Columns(1).Offset(1).SpecialCells(12).EntireRow.Delete
        
        End If
    Next
End With

End Sub

[Bob Phillips]

I would so it by adding a column and building a formula that I filter on

    With ActiveSheet
    
        .Columns(10).Insert
        .Range("J1").Value = tmp
        .Range("$J$2:$J$7322").Formula = "=SUM(COUNTIF(I2,{""*ABC*"",""*DEF*"",""*GHI*""}))>0"
        .Range("$A$1:$R$7322").AutoFilter Field:=10, Criteria1:="TRUE"
        'do your stuff
        
        .Columns(10).Delete 'tidy-up afterwards
    End With

[shan]

Thank you Sir,

The code is working as desired.