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
[TABLE="width: 500"]
<tbody>[TR]
[TD]Parameter [/TD]
[TD]Field [/TD]
[TD]Value[/TD]
[/TR]
[TR]
[TD]Lists [/TD]
[TD]Risks[/TD]
[TD]Top5Risks[/TD]
[/TR]
[TR]
[TD]Lists [/TD]
[TD]Issues [/TD]
[TD]Top5Issues[/TD]
[/TR]
[TR]
[TD]Startup [/TD]
[TD]Sheet [/TD]
[TD]Progress[/TD]
[/TR]
[TR]
[TD]Location [/TD]
[TD]save [/TD]
[TD]c:\temp[/TD]
[/TR]
</tbody>[/TABLE]


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..