Две одинаково петли, но разные результаты

Question

Я работаю над циклом, который находит смежное значение на основе зацикленного списка со списком надстроек в пользовательской форме. Первый зацикленный код работает просто отлично. секунда не находит свое значение.

Я попытался изменить форматирование в ячейке, где хранится значение. Я пытался переключить окно пользовательской формы с рабочим. Это делает их обоих неисправными.

'Works without a problem

Private Sub REQUESTED_Change()
    i = 1
    kto = FORM.REQUESTED
    Do While (Worksheets("DATA").Cells(i, 1) <> "")
        i = i + 1
        If Worksheets("DATA").Cells(i, 1) = kto Then
            DEPARTEMENT.Text = Worksheets("DATA").Cells(i, 2)
        End If
    Loop
End Sub

'Doesn't work. It loops with the correct value, but doesnt find itself

Private Sub CUSTNR_Change()
    i4 = 1
    kSto = FORM.CUSTNR
    Do While (Worksheets("DATA").Cells(i4, 6) <> "")
        i4 = i4 + 1
        If Worksheets("DATA").Cells(i4, 6) = kSto Then
            NAZWA.Text = Worksheets("DATA").Cells(i4, 7)
        End If
    Loop
End Sub

Он должен зацикливаться на основе значения, введенного / перечисленного в выпадающем списке пользовательской формы, найти строку, в которой он находится, и на основе этого значения i получить смежное значение в ячейке. рядом с ним в том же ряду.