Buttons for Next previous etc

[TurboDieselOne]

Can seem to get this to work I have a Current Button Loads the form OK
Then Next Button should use the :-
CurrentRow = ActiveCell.Row
CurrentRow = CurrentRow+1
Load the Form Data...
Too many lines to list here
Its goes Ok once but then when I press next again it does nothing.

Any clues before I try tackling the Previous


Thanks

Oh I have the Userform Fields fill like example below

Me.intIndex.Text = Worksheets("Sheet1").Cells(CurrentRow, "BG").Value

 

[bertie]

CurrentRow = ActiveCell.Row

This line resets the row.

What you need to do is retain this value so that the Next and Previous procedures can change it. One way to acheive this is to use a global variable.

[COLOR=darkblue]Public[/COLOR] CurrentRow [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
 
[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] UserForm_Initialize()
    CurrentRow = ActiveCell.Row
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
 
[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] cmdNext_Click()
    CurrentRow = CurrentRow + 1
    MsgBox CurrentRow
    [COLOR=green]'rest of the code goes here[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
 
[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] cmdPrevious_Click()
    CurrentRow = CurrentRow - 1
    MsgBox CurrentRow
    [COLOR=green]'rest of code goes here[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]