Как выполнить условия, используя .Cells?

Question

Я использую пользовательскую форму для добавления нового контента на лист. Чтобы добавить контент, я получаю идентификационный номер (например, от 1 до ... скажем, 4, но он будет использоваться для больших чисел), и я пытаюсь отправить данные, когда условие выполнено (при условии, что число I положить в поле со списком в моей пользовательской форме то же самое, что и на листе, тогда все данные, записанные в пользовательской форме, заполняют строки ниже идентификационного номера.

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

Код

Dim j As Long
Dim lastRow As Long
lastRow = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row
i = 0
numero = ComboBox_numero.Value 'value of the number ID filled in the combobox
    For j = 5 To lastRow
    Sheets(5).Cells(1, 2 + i) = Sheets(2).Range("A" & j).Value 'takes the ID number from an other sheet
    Select Case numero
        Case Is = Sheets(5).Cells(1, 2 + i).Value
            'here will be the data sent below the ID number
    End Select
    i = i + 1
    Next

Любая помощь приветствуется, я могу дать более подробную информацию, если это необходимо.

Answer 1

может быть, вы можете начать отсюда:

Dim numero As Long
numero = CLng(ComboBox_numero.Value) 'value of the number ID filled in the combobox

Dim numeroPosition As Variant
numeroPosition = Application.Match(numero, Sheets(2).Range("A5", Sheets(2).Cells(Rows.Count, "A").End(xlUp)), 0) ' use Application.Match to find the index of the searched number inside the the array

If Not IsError(numeroPosition) Then ' if match found
    Sheets(5).Cells(1, numeroPosition - 2).Value = numero 'copy 'numero' in Sheets(5) wanted cell
        'here will be the data sent below the ID number
End If