Using Offset on Visible cells only

[KNKN9]

Hi,

I have the code

ActiveSheet.Range("A10").Offset(1, 0).Select

But this does not work for me as my data is filtered. I do not want to unfiltered the data. But how can I use offset on functioning with on the cells that are visible ?

 

[Barlew2]

I've a User Form that allows the user to filter a list and view a single record in that list. Using arrows on the User Form, they can go to the next visible row in the filtered list and view specific information from that row within the form. Both the code examples above work great for going to the next visible row, but neither work for going back up! I tried changeing Offest(1) to Offset(-1) but it didnt work.

This is the code I've currently. Arrow 1 should move to the previous visible row and retrieve the row number, ProcRow (ProcRow has already been defined during the users initial search and item selection)

  If Arrow = 1 Or Arrow = 2 Then
        If Arrow = 1 Then
            Set cel = Sheet2.Range("C" & ProcRow)
            ProcRow = Range(cel.Offset(-1), cel.Parent.Cells(Rows.Count, cel.Column)).SpecialCells(xlCellTypeVisible).Cells(1, 1).Row [B](not working)[/B]
        Else
            Set cel = Sheet2.Range("C" & ProcRow)
            ProcRow = Range(cel.Offset(1), cel.Parent.Cells(Rows.Count, cel.Column)).SpecialCells(xlCellTypeVisible).Cells(1, 1).Row
        End If
End If

 

[Fluff]

As this is a different question from the op, please start a new thread. Thanks.