View next visible row after filter has been applied

Really stuck would appreciate some help on this....

I have attached a test file, what I cant get to work is the navigation buttons (First, Last, Next and Previous) after the filter has been applied.

I had it working before introducing the filter, but now have got myself so confused.....

Thanks for your reply.

I have a 28 column spreadsheet with a couple of forms, one is a search form enabling a search function one all columns. Then there is this one the view form.

The id number in the colum A brings the information to the form, and that number is displayed in textbox1, the next button then takes that number adds 1 and then the form displays that record - all good until you filter (search form) - so what I need is a function that will take the first visible number in column A and then when next button is pressed moves the the next visible row bringing the number Crome column A over to text box 1 which then displays the record........

Previous, first and end need to perform the same as in bring the number from column A.

Hope this makes sense, have got my self in knots over this,

Yes Richard it does make it clearer... thanks

Originally Posted by Richard Buttrey

Hi,

Does the attached simplified code help

Hi Wales MB,
try so

Option Explicit
Dim x(), CurRec&

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
With Sheets(1)
    .Range("A1").CurrentRegion.Copy .Range("A200")
    With .Range("A200").CurrentRegion
        x = .Value
        .Clear
    End With
End With
Application.ScreenUpdating = True
Label60 = UBound(x) - 1 & " Records found": TextBox2.SetFocus
CurRec = 2: Call ViewRecord
End Sub

see also attachment