поиск группы чисел в колонке

[SeverQX]

Всем Доброго Дня!
Помогите, пожалуйста, у кого есть время. Сам в Excel разбираюсь слабо, а про макросы вообще молчу. А вопрос для меня реально важный. Задача в том, что мне необходимо чтобы я мог в тело макроса внести ряд чисел примерно такой :
970046
141702
707242
743960
255426
331678
480640
34681
628042
241196
32426
998223
912675
434747
481955
746525
429770
неважно будут они в столбик или иметь вид 970046;141702;707242;743960;255426; 331678;480640;34681;628042;241196;3 2426;998223;912675;434747;481955;74 6525;429770; (быстро переформатировать в удобный вид не проблема) главное, что бы их удобно было подставлять в тело макроса. После запуска макроса необходимо чтобы осуществлялся поиск этих чисел в колонке А и если искомое число находится надо чтобы макрос напротив него (на той же строке) в колонке D проставлял слово ОК. К сожалению дописывать в эти файлы ни чего кроме ОК нельзя, а их не один десяток. Штатным поиском гробится очень много времени и очень рутинно, ведь все приходится делать руками((

[Hugo121]

Как Вам такой вариант алгоритма -
1. макрос находится в другом файле.
2. в этом же файле (с макросом) в столбик заносите свои данные - критерий поиска.
3. далее варианты - кнопка в этом файле (с макросом) для выбора обрабатываемого файла, или (что лучше по некоторым соображениям) по Alt+F8 на активном файле и листе с данными, куда нужно заносить ОК, запускаете макрос из открытого параллельно файла с критериями.

Могу вечером набросать код.


P.S. Или как универсальный вариант, но после 15 раза платный - http://www.excelworld.ru/index/comparefiles_find/0-25
Подготавливаете свой файл с критериями и с ОК рядом и с помощью файла по ссылке одним кликом копируете эти ОК в свой файл.

[SeverQX]

Hugo121 Алгоритм понял, было бы здорово, если бы Вы смогли написать такой код. т.к. он полностью подходит. Огромно спасибо а столь быстрый ответ в теме ))

[nilem]

Например, так

Sub prSever()
Dim x, rng As Range, i As Long: Application.ScreenUpdating = False

'заносим в массив ячейки от j6 до последней заполненной ячейки в столбце
x = Range([j6], Cells(Rows.Count, 10).End(xlUp)).Value

Set rng = Range([a2], Cells(Rows.Count, 1).End(xlUp))
On Error Resume Next
For i = 1 To UBound(x)
    'ищем соответствие, ставим Ок
    rng.Find(x(i, 1), LookAt:=xlWhole).Offset(, 3) = "Ok"
Next i
On Error GoTo 0: Application.ScreenUpdating = True
End Sub

[SeverQX]

nilem Спасибище огромное, то что надо! Проверил дома, работает на ура!!
Я в шоке от скорости с которой Вы подходите к ответам))
Еще раз nilem и Hugo121 Огромное Вам спасибо ребят!!!

[IgorGO]

а формулы не подходят? точнее - формула

[Hugo121]

Тогда я уже ничего писать не буду... Николай уже всё написал. Если удобнее разнести по двум файлам, как я сперва описал (чтоб в основной писать только ОК), то берите код Николая, и добавьте туда обращение к нужным листам, типа
Set sh = ActiveSheet
Set sh2 = ThisWorkbook.Sheets(1)
т.е. указываете, откуда брать и где искать.