добавление не найденных

[regitr]

Есть таблица, в ней есть данные. нужно чтобы по нажатии на кнопку(объект) выплывало окно в которое можно было ввести скажем "номер заявки" (сразу несколько) и при нажатии выполнить произошел поиск в соответствующем столбце на совпадение и если есть не внесенные то они добавились.

[Hugo121]

Под свою таблицу будете сами подгонять? Или (попросите помощника) дадите помогающему задание переделывать?

[regitr]

подгоню просто ума не приложу как макрос написать не очень разбираюсь но готовый код(если макрос) смогу переписать

[maksim_serg]

подгоняйте:

Sub n()
Dim FindN As Boolean: FindN = False
Dim Столбец_с_номерами_заявок As Integer: Столбец_с_номерами_заявок = 1
Dim table As Variant
FindStr = Application.InputBox("Введите номера заявок для добавления(через запятую)", Application.Caption)
For Each nz In Split(FindStr, ",")
    table = Range(Cells(1, Столбец_с_номерами_заявок), Cells(Rows.Count, Столбец_с_номерами_заявок).End(xlUp))
    For i = 1 To UBound(table, 1)
        If CStr(table(i, 1)) = Trim(nz) Then
            FindN = True
            Exit For
        End If
    Next
    
    If FindN = False Then
        Cells(Rows.Count, Столбец_с_номерами_заявок).End(xlUp).Offset(1, 0).Value = Trim(nz)
    End If
    FindN = False
Next

End Sub

[regitr]

огромное спасибо