VBA Autofilter Question

[JoeyGaspard]

Hi all, I am using the following code to filter some data and delete it, but I need to put in multiple criteria's, and I am not sure how to do that, please help! The section in bold is where i need to add multiple items.

With Sheets("Pivot")
.AutoFilterMode = False
With .Range("D", .Range("D" & Rows.Count).End(xlUp))
.AutoFilter 1, "0"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With

 

[Fluff]

What are the other criteria?

 

[JoeyGaspard]

What are the other criteria?

912, 3905,843,1200,9049,9032,852,835,2013,858,2017,9110,2209,860,853,856,509,854,4117,4059,275,4927,8036,194,6003

 

[Fluff]

Ok, try it like

Dim Ary As Variant
Ary = Array("0", "912", "3905", "843", "1200", "9049", "9032", "852", "835", "2013")
With Sheets("Pivot")
   .AutoFilterMode = False
   .Range("D", .Range("D" & Rows.Count).End(xlUp)).AutoFilter 1, Ary, xlFilterValues
   .AutoFilter.Range.Offset(1).EntireRow.Delete
   .AutoFilterMode = False
End With

Just add the rest of the values to the array

 

[JoeyGaspard]

Ok, try it like

Dim Ary As Variant
Ary = Array("0", "912", "3905", "843", "1200", "9049", "9032", "852", "835", "2013")
With Sheets("Pivot")
   .AutoFilterMode = False
   .Range("D", .Range("D" & Rows.Count).End(xlUp)).AutoFilter 1, Ary, xlFilterValues
   .AutoFilter.Range.Offset(1).EntireRow.Delete
   .AutoFilterMode = False
End With

Just add the rest of the values to the array

Perfect as always! Thank you Sir, very much!

 

[Fluff]

Glad to help & thanks for the feedback.

 

[johnkrenkel]

Hello, I am working through an Autofilter issue.

Basically, I am able to autofilter a sheet and copy it to the body of the email and send the email, When I try to add a second autofilter criteria and paste that to the body of the email, it breaks and everything is blank.

With wsNIM
.AutoFilterMode = False
    With rngNIM
    .AutoFilter Field:=8, Criteria1:="<>"
    .SpecialCells(xlCellTypeVisible).Copy
    End With
End With

'With wsNIM
'.AutoFilterMode = False
    'With rngError
    '.AutoFilter Field:=7, Criteria1:="<>"
    '.SpecialCells(xlCellTypeVisible).Copy
   ' End With
'End With

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        '.To = ""
        .CC = "me@me.com"
        '.BCC = ""
        .Subject = "subjectlinehere"
        .HTMLBody = RangetoHTML(PCReconcilement) & vbNewLine & "Not in Master Record" & vbNewLine & RangetoHTML(rngNIM) '& "Processing Error" & vbNewLine & RangetoHTML(rngError)
        'You can add a file like this
        '.Attachments.Add 
        .Send   'or use .Display
    End With
    On Error GoTo 0

How do I autofilter a second time and add to the body? FYI: RangeToHTML is a function

 

[Fluff]

As this is a different question from the OP, please start a new thread. Thanks