Кнопка следующая запись относительно текущего значения в textbox

[Number_30]

Добрый день,

На данный момент есть код для кнопки следующий:

Private Sub CommandButtonNext_Click()
ClearOut
LastRow = 7000
Source1 = "лист1"

If IsNumeric(RowNumber) Then
    r = CLng(RowNumber)
    
    r = r + 1
    If r > 1 And r <= LastRow Then
        RowNumber = FormatNumber(r, 0)
        
    End If
    
End If

If r > 1 And r <= LastRow Then
    Textid.Value = Sheets(Source1).Cells(r, 1)
    Textindrg.Value = Sheets(Source1).Cells(r, 3)

    
End If

FrmVlookup

End Sub

Где Textid и Textindrg - два Textbox-a на Userform
Работает хорошо. Но, если я вручную ввожу значение в Textid например из строки 489 (после этого он возвращает значение в Textindrg для введенного значения из Textid), и затем нажимаю на кнопку "Следующий", он возвращает значение из первой строки значений. А хотелось бы чтобы показывал строку 490.

[Number_30]

Тема закрыта