Всем доброго здравия!
Ну вот вроди как придумал, как достичь желанного результата. Вот только макрос нифига не получается.
Суть предлагаемого способа.
На даный момент, для подсчета и транспортирования в «КарткуОбліку» пробега авто , задействованы следующие ячейки:
Ячейки D7, D9 и D10 - на листе "ЗанестиДані", куда пользователь заносит даные.
Ячейки J7, K7, L7 - что находятся на листе "Перенос даних", строка для контроля правильности этих даных.
Диапазон ячеек Q3: Q6 - что на листе «СписокП», в котором проставляется входящий километраж на начало эксплуатации авто.
Диапазоны ячеек J10 J20, K10:K20, L10:L20 – что на листе, куда должны попасть данные.
И имеется макрос «ПереносКилометраж()», с помощью которого заносятся данные в ячейки D7, D9 и D10 листа "ЗанестиДані".
На данный момент этот макрос берет цыфру показания спидометра на конец предыдущего рабочего дня, из ячейки D7 и вставляет ее в ячейку D9 показание спидометра на начало текущего рабочего дня. А затем выкидывает «InputBox», посредством которого, заполняется ячейка D10 показания спидометра на конец текущего рабочего дня и D8 номер путевого листа. Все эти действия происходят на листе ЗанестиДані".
Сама ж ячейка D7, заполняется посредством формулы, которая ищет показания спидометра на конец предыдущего рабочего дня, в диапазоне ячеек K10: K20, на листе «КарткаОбліку». Критерий поиска : дата , которая стоит в ячейке F7 и Гос номер авто, смотри ячейка D2, листа "ЗанестиДані".
Таким образом, входящий километраж на начало эксплуатации авто, сейчас не учитывется. И чтобы эти входящие остатки задействовать, необходимо макрос «ПереносКилометраж()» дополнить модулем, который бы сравнивал цыфру километража в ячейке D7 листа «ЗанестиДані" с соответствующей этому же авто цыфрой входящего километража. Смотри диапазон ячеек Q3: Q6 - что на листе «СписокП». И если входящий остаток равен нолю, то модуль вставляет в ячейку D9 листа "ЗанестиДані" цифру 0. В противном случае, вносит в эту же ячейку, входящий километраж по конкретно взятому авто, который значится в ячейке D2 листа ЗанестиДані). Вот и все.
Не знаю, може это же можна сделать и с помощью формулы.
Пожалуйста, помогите Муле!
С ув. Муля!