✔ Programação GLOBAL®: Excel VBA - AutoFiltro - Copiando Linhas Filtradas

Excel VBA - AutoFiltro - Copiando Linhas Filtradas - AutoFilter VBA

Acesse: http://goo.gl/0v6AO

Depois de filtrar dados num 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 a seguir 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