Hi,

I have a basic bit of code that I am struggling with.

I have a userform where you enter a pass number, if the pass number matches the value in column F and the value in column H is blank, it should populate the remaining fields of that row. Sounds simple enough, however, it debugs with the error message:

method 'range' of object '_global' failed

Below is the code I am using:

myday = Format(Now, "DD")
mymonth = Format(Now, "MM")
myyear = Format(Now, "YY")

Application.ScreenUpdating = False
db1open.open_db
fircount = 5
Do Until Range("F" & fircount).Value = cmdPassNum.Value And Range("H" & fircount).Value = ""
fircount = fircount + 1
Loop
Range("G" & fircount).Value = "Yes"
Range("H" & fircount).Value = "Yes"
Range("I" & fircount).Value = Format(Now, "HH:HH")
Range("J" & fircount).Value = myday & " " & mymonth & " " & myyear

db2close.close_db
It debugs each time on the 'do until' line.

Any help will be greatly appreciated.

Thanks in advance,

Andy

---------- Post added at 10:11 PM ---------- Previous post was at 08:56 PM ----------

Hi all,

Any suggestions?

I've tried numerous pieces of code and have had no luck so any help will be appreciated.

Thanks.