Sub Test()
Dim mpRow As Long
Dim mpWord As String
Dim mpResult As Double

mpRow = Int(Rnd() * 25 + 1)
mpWord = Cells(mpRow, "A").Value

On Error Resume Next
mpResult = InputBox("provide a number for " & mpWord)
On Error GoTo 0
If mpResult < 0 Then

If mpResult < Cells(mpRow, "B").Value Then

MsgBox "Wrong"
Else

Cells(mpRow, "A").Value = ""
End If
End If
End Sub


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"pswanie" wrote in message
...
thats almost what i needed... thanx

it needs to randomly pick a row between 1 and 50 from colum a. then check
that the number enterd match the row from what it picked the word.

and if possible delete the word it picked?... (i know im streching my luck
now...)

o. and the cancell button dont work. i get a error message on that

thanx bob

phillip

"Bob Phillips" wrote:

Don't bother with a a form, just use an inputbox

Sub Test()
Dim mpRow As Long
Dim mpWord As String
Dim mpResult As Double

mpRow = Int(Rnd() * 4 + 1)
mpWord = Cells(mpRow, "A").Value

mpResult = InputBox("provide a number for " & mpWord)
If mpResult < Cells(mpRow, "B").Value Then

MsgBox "Wrong"
End If

End Sub


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my
addy)



"pswanie" wrote in message
...
i got a userform. with a cmdbuton on a sheet named "verify" column a
down i
got 50 words. and column b i got 50 difrent combinations of 4 numbers.
i
need
the folowing code. 1 when i click the cmdbuton it needs to call the
userform.
2 when it opens up in one block randomly go and pick a word from column
a.
3
the user enter a 4 number combination. click the okay buton it verify
that
the number combination is in fact the one next to the word picked from
colmn
a. then run macro "editsheet"
phillip