get the data from a filtered table.

[EricKr]

With the folowwing code, I try to walk trough the filterd rows of a table:

Sub GetConfigDataLists()
Dim xRange As Range
Set xRange = Sheets("config").ListObjects("config_table").DataBodyRange
xRange.AutoFilter 1, "Lists"
xRange.Select
For Each Row In xRange
'Try to read in a variable
MsgBox (row)

Next Row

End Sub

The Table is a simple table with the name config_tabel

Parameter	Field	Value
Lists	Risks	Top5Risks
Lists	Issues	Top5Issues
Startup	Sheet	Progress
Location	save	c:\temp

<tbody>
</tbody>

When I filterd and run the code, all Fields are displayed in the messagebox...

How can I read the filterd cells : Field and Value...

 

[Comfy]

You need reset what xRange is or Create a new one.

Sub GetConfigDataLists()
Dim xRange As Range, FilteredRange As Range
Set xRange = Sheets("config").ListObjects("config_table").DataBodyRange
xRange.AutoFilter 1, "Lists"
Set FilteredRange = Sheets("config").ListObjects("config_table").DataBodyRange.SpecialCells(xlCellTypeVisible)
For Each Row In FilteredRange
'Try to read in a variable
MsgBox (row) 


Next Row


End Sub

You maybe aware but your code states otherwise your for Each is looking at each cell not each row.

 

[EricKr]

You maybe aware but your code states otherwise your for Each is looking at each cell not each row.

Correct and I want to change it to Read the cells of the filtered row, but i don't know how....?

 

[Comfy]

Correct and I want to change it to Read the cells of the filtered row, but i don't know how....?

Re-read my post, it includes a solution.

 

[EricKr]

Re-read my post, it includes a solution.

Many thanks.... Great Work..