increment one row at a time with cmd button

[NoWhereMan2012]

Have a simple sheet of 4 columns, a form with 4 txt boxes, 1 button & 1 Lble
on loading the form the 3 righthand columns are entered into their txtboxes
user enters corresponding txt to match column 1

I need the form to select the next row on button click
Ideally I would like to select all 90 rows randomly without repeats but would be happy just to progress in sequence for now.

excel.JPG

Private Sub CmdEnter_Click()

If TxtQ.Text = Worksheets("Test").Range("B6").Value Then 
LblResult.Caption = "1 OUT OF 90"
Else: LblResult.Caption = "0 OUT OF 90"
End If

TxtQ.Value = ""

TxtCode.Value = Worksheets("Test").Range("c7").Value
TxtPrice.Value = Worksheets("Test").Range("d7").Value
TxtDescription.Value = Worksheets("Test").Range("f7").Value
TxtQ.SetFocus
End Sub

[JBeaucaire]

Maybe:

Option Explicit

Private Sub CmdEnter_Click()
Dim NumFND As Range

On Error Resume Next
Set NumFND = Worksheets("Test").Range("B:B").Find(TxtQ.Text, LookIn:=xlValues, LookAt:=xlWhole)
    
If NumFND Is Nothing Then
    LblResult.Caption = "0 OUT OF 90"
    TxtCode.Value = ""
    TxtPrice.Value = ""
    TxtDescription.Value = ""
Else
    LblResult.Caption = NumFND.Row - 5 & " OUT OF 90"
    TxtCode.Value = Worksheets("Test").Range("C" & NumFND.Row).Value
    TxtPrice.Value = Worksheets("Test").Range("D" & NumFND.Row).Value
    TxtDescription.Value = Worksheets("Test").Range("F" & NumFND.Row).Value
End If

TxtQ.Value = ""
TxtQ.SetFocus
End Sub

[NoWhereMan2012]

Thanks JBeaucaire, nice code but unfortunately no joy.

I don't know anything about the xlLookin, xlLookat methods, used to use VB6 some years ago
and know I've done something like this before but don't have VB6 on my pc to check.

I have a problem as to where to put an incrimenting loop, if you put it in the Enter cmdbutton it will reset everytime you click. I think you have to create a module and place the loop
ie: for x = 1 to 90 or x = x + 1 etc in the module but really can't remember how to set it up.

I'm using Excel 2003 and I'm not sure about using variables in cell selection as

TxtCode.Value = Worksheets("Test").Range("C" & NumFND.Row).Value

I've tried to use a variable x and .Range("C" & x).Value also but either way does not seem to find any values which makes me question the syntax of that method for my version of Excel? or maybe its just not the correct way at all.

Thanks

[NoWhereMan2012]

I remembered after some trial and error,

dim x as integer "in general section"

create sub increment() and include x = x + 1
then call increment from within cmdclick()

now need to check columns j + k for next empty cells to export date and result to keep a record of results