How do I extract the first entry in a filtered list?

The archives do not look kindly on no text in the message. Put in subject
line and ask a question.

Try this where f2 is the first cell after the header text
Sub firstinfiltered()
MsgBox Range("f2:f21").SpecialCells(xlCellTypeVisible).Ce lls(1)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Djoy" wrote in message
...

Try this...

Assuming the full range is A2:A15

Array entered** :

=INDEX(A2:A15,MATCH(1,SUBTOTAL(3,OFFSET(A2:A15,,,R OW(A2:A15)-MIN(ROW(A2:A15))+1)),0))

** array formulas need to be entered using the key combination of
CTRL,SHIFT,ENTER (not just ENTER)


--
Biff
Microsoft Excel MVP


"Djoy" wrote in message
...

Thank you very much for your help. The formula is what I needed. I'm also
grateful to all those who posted in response to my query. Kind regards.



"T. Valko" wrote:

Try this...

Assuming the full range is A2:A15

Array entered** :

=INDEX(A2:A15,MATCH(1,SUBTOTAL(3,OFFSET(A2:A15,,,R OW(A2:A15)-MIN(ROW(A2:A15))+1)),0))

** array formulas need to be entered using the key combination of
CTRL,SHIFT,ENTER (not just ENTER)


--
Biff
Microsoft Excel MVP


"Djoy" wrote in message
...

You're welcome. Thanks for the feedback!

--
Biff
Microsoft Excel MVP


"Djoy" wrote in message
...
Thank you very much for your help. The formula is what I needed. I'm also
grateful to all those who posted in response to my query. Kind regards.



"T. Valko" wrote:

Try this...

Assuming the full range is A2:A15

Array entered** :

=INDEX(A2:A15,MATCH(1,SUBTOTAL(3,OFFSET(A2:A15,,,R OW(A2:A15)-MIN(ROW(A2:A15))+1)),0))

** array formulas need to be entered using the key combination of
CTRL,SHIFT,ENTER (not just ENTER)


--
Biff
Microsoft Excel MVP


"Djoy" wrote in message
...