Список, заполненный из листа, не может найти исходное значение - PullRequest
0 голосов
/ 24 июня 2019

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

Private Sub cmdAdd_Click()

LastRow = Cells(Rows.Count, 2).End(xlUp).Row

For j = 2 To LastRow
    If Cells(j, 2).Value = cmbStage.Value Then
        For k = 2 To LastRow
            If Cells(k, 3).Value = lstJobCard.Value Then
                Cells(k, 4).Value = lstJobCard.Value & ": " & txtNote.Value
            End If
        Next k
    End If
Next j
Unload Me

End Sub

Что я делаю не так?

1 Ответ

0 голосов
/ 26 июня 2019

Я понял это. Вместо того чтобы сказать, было ли значение этой ячейки равным lstJobCard.Value, я должен был сказать «Мне нравится». Например

Private Sub cmdAdd_Click()

LastRow = Cells(Rows.Count, 2).End(xlUp).Row

For j = 2 To LastRow
    If Cells(j, 2).Value = cmbStage.Value Then
        For k = 2 To LastRow
            If Cells(k, 3).Value Like lstJobCard.Value Then
                Cells(k, 4).Value = lstJobCard.Value & ": " & txtNote.Value
            End If
        Next k
    End If
Next j
Unload Me

End Sub

Все еще не уверен, почему, но это работает сейчас.

...