Como funcionam os filtros em VBA?

[MarlonS]

Prossigo estudando tutoriais-exemplos de VBA para excel e me deparo com o seguinte:

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")

'Ex tract data with Advanced Filter

rngData.AdvancedFilter Action:=xlFilterCopy, _

CriteriaRange:=rngCriteria, _

CopyToRange:=rngExtract, _

Unique:=False

End Sub

O que é um Range("Database")? Nesse caso, "Database" é o nome de um intervalo na planilha "Sales"? Ou ele seleciona as ocorrências da palavra"Database" em tal planilha?

Sabendo o que é .Range("Database"), .Range("Criteria") e .Range("Extract"), pergunto-me o que está sendo filtrado.

=================================

E o que ocorre em:

Sub UniqueCustomerRedux()

Range("J1").Value = Range("D1").Value

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

End Sub

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

Editado Dezembro 27, 2010 por MarlonS