VBA code to adding additional filter with array

[Balajibenz]

I have below code which i use for copying the filtered data to another sheet(ws2).

Sub VBA()

ws1.Activate
    lr = ws1.Cells(Rows.Count, 16).End(xlUp).Row
    For Each c In ws1.Range("P2:P" & lr)
        temp2 = Left(c, 3)
        temp = Right(c, 3)
        temp3 = c.Offset(0, -5)
            If temp2 = "180" And _
        (temp = "341" Or _
        temp = "342" Or _
        temp = "642") Then
        
    
        ReDim Preserve arr(i)
            arr(i) = CStr(c)
            i = i + 1
        End If    
    With ws1.Range("A1").CurrentRegion
        .AutoFilter 16, Array(arr), 7
        .Offset(1).Copy ws2.Cells(2, 1)
        .AutoFilter
    End Sub

what i am looking for right now to is to add another filter in column K, I have defined it as temp3 in above code and looking to include filter as temp3 = "Sam" or "Alok" or "Kristy". Can someone help me with this.. Thanks in advance.

 

[DanteAmor]

is to add another filter in column K

Add the following highlighted line and test.

  With ws1.Range("A1").CurrentRegion
    .AutoFilter 16, Array(arr), 7
    .AutoFilter 11, Array("Alok", "Kristy", "Sam"), 7
    .Offset(1).Copy ws2.Cells(2, 1)
    .AutoFilter
  End With

 

[Balajibenz]

thank you @DanteAmor . That worked

Add the following highlighted line and test.

  With ws1.Range("A1").CurrentRegion
    .AutoFilter 16, Array(arr), 7
    .AutoFilter 11, Array("Alok", "Kristy", "Sam"), 7
    .Offset(1).Copy ws2.Cells(2, 1)
    .AutoFilter
  End With

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.

 

[Balajibenz]

I'm glad to help you. Thanks for the feedback.

Hi @DanteAmor . can you help me with a add on with above code where i wanted to copy from columns A to H within in the filtered range.

 

[DanteAmor]

i wanted to copy from columns A to H

Try this:

  With ws1.Range("A1").CurrentRegion
    .AutoFilter 16, Array(arr), 7
    .AutoFilter 11, Array("Alok", "Kristy", "Sam"), 7
    ws1.AutoFilter.Range.Range("A2:H" & lr).Copy ws2.Cells(2, 1)
    .AutoFilter
  End With