Excel vba - como copiar varias colunas com filtro vba

[isabela queiroz]

Preciso copiar varias colunas adjacentes com filtro selecionado, mas preciso que isso seja feiot em VBA para adicionar na SUB da macro que estou fazendo 

[Scofieldgyn]

@isabela queiroz

 

elaborei esse código pra copiar apenas de uma coluna, mas caso queira copiar várias colunas, terá que fazer uma array. 

 

agora é só adpatar a sua necessidade.

 

Sub CopiarDadosFiltrados()

Dim ul As Long

    Planilha1.[A1].Select
    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
    End If

    On Error Resume Next
    With ActiveSheet.Range("G1:G" & Planilha1.UsedRange.Rows.Count)
    .AutoFilter Field:=7, Criteria1:="T17", Operator:=xlAnd
    End With
    
    ul = ActiveSheet.Range("G" & Rows.Count).End(xlUp).Row

    ActiveSheet.Range("G2:G" & ul).Select: Selection.Copy Planilha2.[A2]
    
    Planilha1.Select
    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
    End If
    
    Application.CutCopyMode = False

End Sub