Now I have tested a solution that works, but it is not a nice solution:

Improvement suggestions are still very welcome.

Peter


Selection.AutoFilter Field:=3, Criteria1:=myReqRev

Range("ReqID").Select
Do
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.EntireRow.Hidden = False

With ActiveCell
myReqSourceID = .Offset(0, 7).Value
myReqText = .Offset(0, 8).Value
myValue = .Offset(0, 9).Value

"Peters" wrote:


Hi,

I have a list of data that I autofilter to show only one row. From this row
I want to assign data to variables with the attached code.

My problem is that the active cell is never in my autofiltered list and I do
not seem to be able to get it there. How do I get a fix reference (such as
the active cell) on the only visible row in a fixed column?

Please help,
Peter

Selection.AutoFilter Field:=3, Criteria1:=myReqRev

' How do I change the activecell to be on the only and/or first visible row?

With ActiveCell
myReqSourceID = .Offset(0, 0).Value
myReqText = .Offset(0, 1).Value
myValue = .Offset(0, 2).Value
myUnit = .Offset(0, 3).Value