Excel VBA - AutoFiltro - Copiando Linhas Filtradas - AutoFilter VBA

| Blog Office VBA | Blog Excel | Blog Access |

100.000 VISITAS

Depois de filtrar dados em um intervalo de células ou tabela, você pode reaplicar um filtro para obter resultados, ou limpar um filtro para exibir novamente todos os dados.

Podemos definir AutoFiltros dentro de uma pasta de trabalho do MS Excel. 

Segue-se um bom exemplo abaixo:

Copiando Linhas Filtradas

O código followingExcel copiará as linhas filtradas da aba ativa para aba seguinte.

Sub CopyFilter()

Dim rng As Range

Dim rng2 As Range

With ActiveSheet.AutoFilter.Range

 On Error Resume Next

   Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _

       .SpecialCells(xlCellTypeVisible)

 On Error GoTo 0

End With

If rng2 Is Nothing Then

   MsgBox "No data to copy"

Else

   Worksheets("Sheet2").Cells.Clear

   Set rng = ActiveSheet.AutoFilter.Range

   rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _

     Destination:=Worksheets("Sheet2").Range("A1")

End If

   ActiveSheet.ShowAllData

End Sub

Tags: VBA, Excel, Autofilter, filtro, automático, protegida, senha, AutoFiltro, worksheet, filtered, copy, filtrada, row