Filtro Avançado com múltiplos critérios

Filtro Avançado com múltiplos critérios

Eu tenho três planilhas

  1. ConditionSheet: Tendo valor de condições na célula E5&E7

  2. SourceSheet: Dados Completos

  3. TargetSheet: Quando executo a macro New worksheetcrie com este nome baseado no conditionSheetValor.

De SourceSheetquero criar uma nova planilha com dados específicos.

Na ConditionSheetcélula E5tendo o primeiro critério e E7tendo o segundo critério

Com base nisso, quero criar uma nova planilha com o nome 'TargetSheet'

Neste, apenas as cópias de dados SourceSheetcujo Column Fvalor corresponde ao E5valor da célula em ConditionalSheet& Column Hdo SourceSheetvalor correspondem ao E7valor deConditionalSheet

O segundo critério é opcional, então usei IIFa função para passar a condição.

O comando a seguir copiou todos os dados, sourcesheetsejam eles uma ou duas condições.

Sheets("SourceSheet").Range("A1:AB" & Worksheets("TargetSheet").Rows.Count).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=IIf(Sheets("ConditionSheet").Range("E7") = "", Sheets("ConditionSheet").Range("E5:E5"), Sheets("ConditionSheet").Range("E5:E7")), _
CopyToRange:=Sheets("TargetSheet").Range("A1"), _
Unique:=True

Quero copiar apenas dados com base em critérios.

Por favor me guie.

(Obrigado pelo visualizador e usuários respondidos)

informação relacionada