VBA/Excel/Access/Word/Excel/AdvancedFilter

AdvancedFilter Action:=xlFilterCopy

   <source lang="vb">

Sub AllColumnsOneCustomer()

   Dim IRange As range
   Dim ORange As range
   Dim CRange As range
   Set CRange = cells(1, 1).resize(2, 1)
   Set ORange = cells(1, 3)
   Set IRange = range("A1").resize(FinalRow, 1)
   IRange.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=CRange, CopyToRange:=ORange

End Sub

</source>
   
  

Advanced Filter Demo

   <source lang="vb">

    Private Sub CommandButton1_Click()
        Dim rngData As Range
        Dim rngCriteria As Range
        Dim rngExtract As Range
        Set rngData = Workbooks("DataList5.xlsm").Worksheets("Sales").Range("Database")
        Set rngCriteria = ThisWorkbook.Worksheets("Sales").Range("Criteria")
        Set rngExtract = ThisWorkbook.Worksheets("Sales").Range("Extract")
        "Extract data with Advanced Filter
        rngData.AdvancedFilter Action:=xlFilterCopy, _
                             CriteriaRange:=rngCriteria, _
                             CopyToRange:=rngExtract, _
                             Unique:=False
    End Sub
</source>
   
  

Do the Advanced Filter

   <source lang="vb">

Sub UniqueCustomerRedux()

   Range("J1").Value = Range("D1").Value
   Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, CopyToRange:=Range("J1"), Unique:=True

End Sub

</source>