копировать ячейки из другой книги

[Magnetic Air]

Решил автоматизировать процесс. Но знаний и опыта нехватает. Не прошу писать код . а лишь подсказать какие переменные, операторы, и циклы использовать и в какой последовательности, чтобы он работал так:
в файле "журнал" нажимаем на кнопку и
макрос активирует файл "реестр" - активный лист,
находит в столбце "A" номер заявки (integer), пропуская пустые ячейки
Если ячейка справа от номера (столбец "B") уже заполнена, то ищет дальше
если нет то запоминает содержимое ячейки (Value1) и msgBox ("Заполнить заявку №", Да, Нет, Отмена)
если Нет, то продолжаем поиск,
если Отмена, то - end sub
если Да то переходит обратно в файл "журнал" и ищет (Value1), в стобце "B"
если не находит, то msgBox "Заявка не найдена" - end sub
если находит, то копирует содержимое ячеек двигаясь по строке вправо:
из "журнал" столбец "C" в "реестр" столбец "B"
из "журнал" столбец "D" в "реестр" столбец "C"
из "журнал" столбец "E" в "реестр" столбец "D"
из "журнал" столбец "F" в "реестр" столбец "F".

[doober]

если Да то переходит обратно в файл "журнал" и ищет

Возвращаться плохая примета

[Magnetic Air]

хм... через автофильтр. Спасиб большое дома буду разбирать.

[Magnetic Air]

doober
Ну подскажите, как научить макрос видеть число целиком, а не цифры по-отдельности, т.е. если в ячейке стоит 254 и такой заявки нет, то он увидит или 2 или 5 или 4 (зависит от того была ли заполнена какая-нибудь из этих цифр ранее)

[doober]

Сообщение от Magnetic Air

doober
Ну подскажите

    For Each icl In Rng
                If IsNumeric(icl) Then
                Set X = iFRng.Find(what:=icl, LookAt:=xlWhole)

[Magnetic Air]

doober
Спасиб наиогромнейшее. все работает