Este fórum está sendo desativado

[Rentto]

Olá pessoal

Estou tentando fazer uma planilha com filtro avançado com CopyToRange variável, porém não estou tendo sucesso.

Na Plan2 temos uma lista de informações, na qual estou tentando realizar o filtro avançado na Plan1. O primeiro filtro avançado traz os dados conforme o critério H3:H4, após a macro realizar esse filtro ela deveria realizar o segundo filtro avançado tomando como base o critério I3:I4, porém deveria colar o resultado pulando uma linha após o resultado do primeiro filtro avançado, para isso o critério CopyToRange do segundo filtro teria que ser variável, pois a minha lista vai aumentado conforme os inputs que irei fazendo.

Isso seria possível através do filtro avançado? Coloquei em anexo a planilha de exemplo.

[Parkeless]

Boa tarde!

Tenta isso:

Código: Selecionar todos

Sub FILTRO()

Dim PróximaArea As Range
Dim Linha As Long

If Range("H1000000").End(xlUp).Offset(1, 0).Row <= 5 Then ' Se não houver dados na coluna H...
    Set PróximaArea = Range("H8") '...é porque não tem nada; iniciar na linha 8
Else 'Mas, se houver...
    Linha = Range("H1000000").End(xlUp).Offset(1, 0).Row '... iniciar na linha logo abaixo
    Set PróximaArea = Range("H" & Linha)
End If

'Filtro avançado
 Sheets("Plan2").Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("H3:H4"), CopyToRange:=PróximaArea, Unique _
        :=False
        
   
End Sub