Excel VBA - AutoFiltro - Copiando Linhas Filtradas - AutoFilter VBA

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

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

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