Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

AdvancedFilter Action

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