Excel VBA userform next and previous + first and last entry

Question

How can it be difficult to add buttons showing previous and next entries on the userform? There is a bunch of source on the net. I've tried many of them but no go. I have tried to adapt one of the solutions mentioned in this very site, I failed. :(

In the column A there are item numbers (say 180) It may be according to 180 or to as long as it gets. I want to add the previous and next buttons. Then buttons to show the first and last entry.

My code is:

Private Sub UserForm_Initialize()

Dim k As Long, j As Long
Dim rng As Range
Set rng = Worksheets("BİLGİLER").Range("A180")

k = 0: j = 1

vyakinligi.Value = rng.Offset(k).Value
vadsoyad.Value = rng.Offset(k, j).Value: j = j + 1
vmeslegi.Value = rng.Offset(k, j).Value: j = j + 1
visadresi.Value = rng.Offset(k, j).Value: j = j + 1
vceptel.Value = rng.Offset(k, j).Value: j = j + 1

End Sub

'~~> Next Button
Private Sub CommandButton7_Click()
k = k + 1: j = 1

If k > (Sheets("BİLGİLER").Rows.Count - 4) Then
    MsgBox "Max rows Reached"
    Exit Sub
End If

vyakinligi.Value = rng.Offset(k).Value
vadsoyad.Value = rng.Offset(k, j).Value: j = j + 1
vmeslegi.Value = rng.Offset(k, j).Value: j = j + 1
visadresi.Value = rng.Offset(k, j).Value: j = j + 1
vceptel.Value = rng.Offset(k, j).Value: j = j + 1

End Sub


'~~> Previous Button
Private Sub CommandButton8_Click()
k = k - 1: j = 1

If k < 0 Then
    MsgBox "1st Row Reached"
    Exit Sub
End If

vyakinligi.Value = rng.Offset(k).Value
vadsoyad.Value = rng.Offset(k, j).Value: j = j + 1
vmeslegi.Value = rng.Offset(k, j).Value: j = j + 1
visadresi.Value = rng.Offset(k, j).Value: j = j + 1
vceptel.Value = rng.Offset(k, j).Value: j = j + 1

End Sub

Where did I go wrong? What should I do to add the buttons and show previous, next, first and the last entry on the userform?

Answer 1

I managed to run (to adapt) the code finally. I will put it here in case someone makes use of it.

In general tab:

Dim Data As Variant
Dim LastRow As Long
Dim r As Long

The previous and next buttons:

Private Sub CommandButton7_Click()
RangeRow xlNext
End Sub

Private Sub CommandButton8_Click()
RangeRow xlPrevious
End Sub

To userform's initialize section:

With Sheets("BİLGİLER") 'change the name as you wish
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

Data = .Range("A1:AZ" & LastRow).Value 'data range

End With

r = ActiveCell.Row - 1

RangeRow r

And this Subroutine code:

Sub RangeRow(ByVal Direction As Long)
r = IIf(Direction = xlPrevious, r - 1, r + 1)
If r < 2 Then r = 2
If r > LastRow Then r = LastRow

With Me

.sira.Text = Data(r, 1)
.tckn.Text = Data(r, 2)
.oadsoyad.Text = Data(r, 3)
.cinsiyet.Text = Data(r, 4)
.dyeri.Text = Data(r, 5)
.dyili.Text = Data(r, 6)
.ncsn.Text = Data(r, 7)
.babaadi.Text = Data(r, 8)
.anneadi.Text = Data(r, 9)
.kangrb.Text = Data(r, 10)
.oceptel.Text = Data(r, 11)
.oevadresi.Text = Data(r, 12)

End With
End Sub

This code takes the info from the related row on the table and fills the userform textboxes and comboboxes on the usefrorm.

Now it's time to put buttons for the first and the last entry. Any suggestions?