## Copy filtered Excel tables [VBA]

Today I want to share some pretty useful macros.

My first macro copies an excel defined table with vba. It is easy.

Sub CopyTable() Range("Table1[#All]").Copy Destination:=Worksheets("2010").Range("A13") End Sub

It copies all table headers and data to sheet 2010, cell A13.

### Copy a filtered table

The macro above works great if there are no filters applied to the table. If there were filters applied, all data would have been copied anyway. So how do we solve that problem?

Sub CopyFilteredTable() Dim rng As Range Dim WS As Worksheet For Each Row In Range("Table2[#All]").Rows If Row.EntireRow.Hidden = False Then If rng Is Nothing Then Set rng = Row Set rng = Union(Row, rng) End If Next Row Set WS = Sheets.Add rng.Copy Destination:=WS.Range("A1") End Sub

This macro checks if each row in Table1 is visible. If it is, it is copied to a new sheet.

### Copy multiple filtered tables

The following macro cycles through each sheet in the current workbook and looks for excel tables. It copies all visible values from every excel table to a new sheet.

This is handy if you have many excel tables in a workbook and you want to merge all filtered values from all tables to a new sheet.

Sub CopyFilteredTables() Dim WS As Worksheet Dim WSN As Worksheet Dim tbl As ListObject Dim rng As Range Set WSN = Sheets.Add For Each WS In Worksheets For Each tbl In WS.ListObjects Set rng = Nothing For Each Row In tbl.DataBodyRange.Rows If Row.EntireRow.Hidden = False Then If rng Is Nothing Then Set rng = Row Set rng = Union(Row, rng) End If Next Row Lrow = WSN.Range("A" & Rows.Count).End(xlUp).Row If Lrow > 1 Then Lrow = Lrow + 1 rng.Copy Destination:=WSN.Range("A" & Lrow) Next tbl Next WS End Sub

### Apply filter to all excel tables in a workbook

Wouldn't it be great if you could apply the same filter to all excel tables in a workbook? This is useful if you are working with many excel tables but they all have the same table headers.

Check this macro out.

**Instructions**

- Type the corresponding header, make sure you spell it right.
- Type the critera below each header
- Select the criteria with your mouse
- Run macro ApplyFilterToTable

Sub ApplyFilterToTable() Dim filters As Range Dim flV() As Variant Set fltrs = Selection ReDim flV(0 To Selection.Rows.CountLarge - 2) 'Cycle through all sheets in active workbook For Each WS In Worksheets 'Cycle through all excel tables in sheet For Each tbl In WS.ListObjects 'Compare table headers to selection For ct = 1 To tbl.DataBodyRange.Columns.Count For cf = 1 To fltrs.Columns.Count 'Build array with filter values j = 0 For i = LBound(flV) To UBound(flV) If fltrs.Cells(i + 2, cf) <> "" Then flV(i) = CStr(fltrs.Cells(i + 2, cf)) Else flV(i) = "" j = j + 1 End If Next i 'Check if headers match If tbl.Range.Cells(1, ct) = fltrs.Cells(1, cf) Then 'Clear filter tbl.Range.AutoFilter Field:=ct 'Apply new filter If UBound(flV) <> j - 1 Then tbl.Range.AutoFilter Field:=ct, Criteria1:=flV, Operator:=xlFilterValues End If End If Next cf Next ct Next tbl Next WS End Sub

It cycles through all excel tables in a workbook and applies the filter you have selected on a sheet.

### Apply filter to all excel tables and copy filtered values from all excel tables to a new sheet

So if you combine macro CopyFilteredTables and ApplyFilterToTable you can quickly apply multiple filters to all excel tables and then copy the filtered values from all excel tables to a new sheet. That saves you a lot of time.

**Instructions**

- Select the criteria. You also need to specify the corresponding header, make sure you spell it right.
- Run macro ApplyFilterToTable
- A new sheet is created and populated with values from all filtered

Sub ApplyCopy()</span> ApplyFilterToTable CopyFilteredTables End Sub

### Clear all filters from all tables in active workbook

This macro clears all filters in all tables in active workbook.

Sub ClearFiltersAllTables() For Each WS In Worksheets For Each tbl In WS.ListObjects For ct = 1 To tbl.DataBodyRange.Columns.Count tbl.Range.AutoFilter Field:=ct Next ct Next tbl Next WS End Sub

### Download excel *.xlsm file

How to use a Table name in Data Validation Lists and Conditional Formatting formulas

David Hager gave this valuable comment about how to reference a table name in conditional formatting formulas: =INDIRECT("Table1[Start]") Watch this video to [โฆ]

Extract unique distinct values from a filtered Excel defined Table [UDF and Formula]

Robert Jr asks: Oscar, I am using the VBA code & FilterUniqueSort array to generate unique lists that drive Selection [โฆ]

Count unique distinct values in a filtered Excel defined Table

This article demonstrates a formula that counts unique distinct values filtered from an Excel defined Table. Debra Dalgleish described in [โฆ]

Remove common records between two data sets

This article demonstrates how to filter records occurring in only one out of two Excel defined tables. It also shows [โฆ]

Populate drop down list with filtered Excel Table values

This article demonstrates how to populate a drop down list with filtered values from an Excel defined Table. The animated [โฆ]

This article demonstrates a macro that copies values between sheets. I am using the invoice template workbook. This macro copies [โฆ]

Open Excel files in a folder [VBA]

This tutorial shows you how to list excel files in a specific folder and create adjacent checkboxes, using VBA. The [โฆ]

Split data across multiple sheets [VBA]

In this post I am going to show how to create a new sheet for each airplane using vba. The [โฆ]

Working with COMBO BOXES [Form Controls]

This blog post demonstrates how to create, populate and change comboboxes (form control) programmatically. Form controls are not as flexible [โฆ]

Identify missing numbers in a column

The image above shows an array formula in cell D6 that extracts missing numbers i cell range B3:B7, the lower [โฆ]

### 4 Responses to โCopy filtered Excel tables [VBA]โ

### Leave a Reply

### How to comment

**How to add a formula to your comment**

<code>Insert your formula here.</code>

**Convert less than and larger than signs**

Use html character entities instead of less than and larger than signs.

< becomes < and > becomes >

**How to add VBA code to your comment**

[vb 1="vbnet" language=","]

Put your VBA code here.

[/vb]

**How to add a picture to your comment:**

Upload picture to postimage.org or imgur

Paste image link to your comment.

**Contact Oscar**

You can contact me through this contact form

suppose you dont want the header to be copied

shelly

Oscar did you just copy and paste the same code?

I am trying to copy a filtered table but I don't want to paste the header information.

Hi, for copying filtered tables there seems to be a much easier solution:

as can be found here:

https://stackoverflow.com/questions/16039774/excel-vba-copying-and-pasting-visible-table-rows-only