Отбор, обработка и вывод

Привет всем!
Скрипты писать только учусь и пользуясь в основном только этим форумом, так что не обессудьте
Задача была довольно такая. Есть номера договоров и для каждого существуют 3 параметра: страховая программа(СП), канал продаж(КП), целевая группа(ЦГ). Соответствие приведено во 2м листе файла. Ключевым элементом для их изменения по данному договору является индификатор ID, каждый для своей СП, КП, ЦГ. Притом наименование канала может повторяться для программ, а вот ID этого КП при одинаковом наименовании может и отличаться. Целевая группа вполне может отсутствовать.
В общем вышел у меня более мение рабочий код, пусть со скрипом да прихрамыванием но данные выдает(конечный скрипт для апдейта в SQL базе )...

Подозреваю что намудрил я много лишнего, поэтому прошу помочь советом и коментарием кода: что нужно, чтобы сделать скрипт проще, надёжней, правильней чтоли... Пытался внедрить .find но что то не особо у меня получилось. Быть может ввести какую функцию для упрощения, даже малый обьем данных обрабатывает достаточно долго. В конце работы всегда выдаёт ошибку, с чем связано - непонимаю(Хотел чтобы если нет номера договора писал соответствующую ошибку и шол дальше). Хотел подкрасить "Не соответствие!" в какой-нибудь цвет(или залить ячеку), тоже что то невышло.

Ещё раз простите за сумбур в коде, пишу как умею...

Вложения

Апдейт программ & каналов.rar (42.3 Кб, 19 просмотров)

0

Создать базу данных и соединение с ней.

0

А где брать номер договора?

Добавлено через 34 минуты
.UsedRange.Rows.Count подсчитывает количество заполненных строк и если в начале пустые строки, значение не будет соответствовать последней заполненной строке. Выход-либо заполнить 1-у строку любым значением.

0

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

Вложения

пример.xls (28.0 Кб, 12 просмотров)

0

Таки почти все что хотел сделал сам. Но если кто то поймет как мне можно изменить и облегчить скрипт(используя .find или отдельную функцию), с удовольствием почитаю варианты.

Вложения

Апдейт программ & каналов.rar (47.2 Кб, 13 просмотров)

0