Страницы: 1
RSS
VBA - поиск всех значений по заданному условию и обновление связанных данных, FindNext в цикле ошибка
 
Добрый день.

Решаю следующую задачу.

Имеется лист excel, где отмечаются оплаты поступивших счетов (номер счета, сумма, запланированная дата оплаты и пр).

Надо из этого листа брать даты запланированных на оплату счетов, по которым нет отметки "ok" об оплате, находить на соседнем листе по номеру поставки эти счета (могут упоминаться на листе больше 1 раза). И, если находится, в определенном столбце проставлять  запланированную дату оплаты.


Вроде бы задачу удалось реализовать за тем исключением, что не удается после первого нахождения нужного инвойса провести дальнейший поиск в строке этого же номера, до перехода к следующему.


Файл с кодом и пояснениями прилагаю.

Прошу помочь в части продолжения поиска через FindNext или, возможно, другим способом реализовать продолжение поиска в цикле
 
Цитата
в части продолжения поиска через FindNext
Метод FindNext не работает, если перед этим был поиск Find для другого аргумента
Нужно произвести поиск
Код
Set pInvoice = .Rows(rFndShipNr.Row).Find(rInvoice, pInvoice)

И переменные определить как Range
Код
Dim rPayDate As Date, rPayWeek As Range, pInvoice As Range

И остальные переменные приведите в соответствие
 
Спасибо большое. Все удалось решить с вашей помощью!
Страницы: 1
Наверх