Помогите "расшифровать" макрос

[kzld]

Сообщение от Serge_Bliznykov

так что ж ответить, если сказать по существу нечего?!

Вы знаете, какую Вы делаете ошибку?
вместо того, чтобы чётко сформулировать задание - что, куда и в каком случае переписывается, Вы пытаетесь заставить работать макрос. (причём, надо отметить - жуткий макрос почему жуткий? потому что в нём жестко заданы константы - начала диапазона, конец диапазона и т.д. и т.п. поэтому добавление строки, удаление строки могут привести к самым разнообразным последствиям, вплоть до полной нераспособности всего макроса!

[Добавлено]
и ещё, в книге kassa_2009.xlsm у Вас
два макроса: kassakredit01() и kassadebet01() — Вы какой из них терзаете?

Нет, не знаю. Прошу указать.
ДА, макрос чужой. Пытаюсь использовать его для решения моей задачи.
>kassakredit01()
работает так как надо. может потому что там мало значений
>kassadebet01()
Работает неправильно

[kzld]

Сообщение от kzld

Нет, не знаю. Прошу указать.
ДА, макрос чужой. Пытаюсь использовать его для решения моей задачи.
>kassakredit01()
работает так как надо. может потому что там мало значений
>kassadebet01()
Работает неправильно

28 человек просматривают форум, неужели не найдётся хотя бы один гуру excel`a кто ответит на мой вопрос. Почему макрос пропускае некоторые строки

[pivas]

kzld, прошу прощения за долгое молчание. Макрос подправил, должно работать.

Г-н Serge_Bliznykov, есть хорошее правило: критикуешь - предлагай. И ещё, давно в Американских барах над тапёрами висел плакат: "НЕ СТРЕЛЯЙТЕ В ПИАНИСТА, ОН ИГРАЕТ, КАК УМЕЕТ".

[kzld]

Сообщение от pivas

kzld, прошу прощения за долгое молчание. Макрос подправил, должно работать.

Г-н Serge_Bliznykov, есть хорошее правило: критикуешь - предлагай. И ещё, давно в Американских барах над тапёрами висел плакат: "НЕ СТРЕЛЯЙТЕ В ПИАНИСТА, ОН ИГРАЕТ, КАК УМЕЕТ".

Спасибо, работает. К сегодняшнему дню я правда уже и сам "допетрил" , но всё равно СПАСИБО. Вынести кнопки ДЕБЕТ и КРЕДИТ наверх интересное решение. Но столкнулся со следующей задачей:
Я специально сделал по 5 раз каждый день (в столбце А), однако в последующих месяцах обнаружилось 6 операций за один день. А значит 6 операция не прописалась на положенное ей место. Делать каждый день по 10 позиций - неоправданный рост файла. Вот если б Excel`y дать задание при наступлении подобного случая добавлять строку или хотя бы выводить предупреждение - было бы отлично.
Файл с примером приложен.

[Serge_Bliznykov]

[сорри за оффтоп...]

pivas, так разве я критиковал? я наоборот, попытался помочь... А чтобы заменить код вида
For i = 3 To 500
If .Cells(i, 5).Value <> 451 Then GoTo 10
For k = 9 To 169
нужно понимать, что означают цифры 3, 500, 9, 169 и т.д....
Поэтому и просил нормальное ТЗ
Хотя, вижу, что некоторым всё же удалось разобраться в алгоритме...

а вообще я с Вашим замечанием полностью согласен.

Сообщение от kzld

Я специально сделал по 5 раз каждый день (в столбце А), однако в последующих месяцах обнаружилось 6 операций за один день. А значит 6 операция не прописалась на положенное ей место. Делать каждый день по 10 позиций - неоправданный рост файла.

kzld, Вы поймите, смысл моего поста и заключался как раз в том, что, прежде чем программировать, нужно чётко сформилировать задачу, определить обрабатываемые данные (исходный диапазон), при этом надо постараться найти условия, по которым можно этот диапазон выделить. и учесть, что сегодня он один, завтра другой (сегодня 5 операций, а завтра 20, а послезавтра - одна.. нужно, чтобы макрос обрабатывал без привязки к конкретным строкам...)

[pivas]

Приветствую, kzld. Со вставкой строк повозиться можно, но хочу предлжить другой вариант. Правда одно условие всё же надо соблюдать: на листе в книге kassa рабочих строк должно быть не меньше, чем в allwork.