Excel VBA troubles

[Onimancer]

Greetings!

I ve written the below snippet:

If IsNumeric(FillingForm.txtArel.Value) Then
    flag = False
    i = 2
    j = 2
    id = FillingForm.txtArel.Value
    
    Do While Cells(i, 1).Value <> ""
        If Cells(i, 1).Value = id Then
            flag = True
            
            Set FillingForm.txtSur.Value = Worksheets("mainDB").Cells(i, j + 1).Value
        End If
        
        i = i + 1
        
    Loop
End If
End Sub

It should read an employee's id from txtArel textbox (which works fine) and write his surname in textbox txtSur. Instead it gives me error '9' subscript out of range.

Set FillingForm.txtSur.Value = Worksheets("mainDB").Cells(i, j + 1).Value

is yellowed.

Thanks in advance!

 

[RoryA]

Most likely cause is that is not the exact name of the worksheet (or the worksheet is not in the active workbook).

 

[Onimancer]

Most likely cause is that is not the exact name of the worksheet (or the worksheet is not in the active workbook).

Hmm, so I should add something like Workbook(workbookname).Activate after the sub or in the loop?

 

[RoryA]

You don't need to activate it, you can just qualify the Worksheets call:

Workbooks("some workbook.xlsx").Worksheets("mainDB")

rather than just:

Worksheets("mainDB")

for example.

 

[Onimancer]

Ok thanks. I ll give it a shot and post the result