Помогите чайнику с чяейками плз.

[zander]

Имеется постоянно обновляемая информация, формируемая внешней программой, с произвольной переодичностью и выводимая на лист файла excel. Каждая новая запись дополняет новой строкой имеющуюся запись, примерно в таком виде "порядковый номер записи/число/число/число/text/". Text возможен только в двух вариантах "Купля" или "Продажа". Можно ли как то к событию, например worksheet_canche прикрепить обработку перемещения данных из ячеек в другие листы и ячейки в зависимости от того какой именно 'text"?
типа Если текст "Продажа" в колонке такой то, то копировать значение ячеек со строкой "Продажа" туда то, лист такой то. Если текст "Покупка" то копировать значение туда то, лист такой то.
Или так "Если на Листе 1 есть текст "Купля" то строку с этим текстом копировать туда то, а если на Листе 1 есть текст "Продажа" то строку с этим текстом копировать туда то.

[EducatedFool]

Можно ли как то к событию, например worksheet_canche прикрепить обработку перемещения данных из ячеек в другие листы и ячейки в зависимости от того какой именно 'text"?

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

Прикрепите к сообщения пример файла - один лист с примером формируемых программно записей, и 2 листа ("Купля" и "Продажа") с примером того, как должны выглядеть листы после того, как макрос скопирует на них соответствующие строки.

[SAS888]

И еще, для полной ясности: слова "Купля" и "Продажа" в отдельной ячейке строки, или в конце текста ячейки?
Если второе, то контролировать можно, например, так:

If [A1] Like "*Купля" Then Rows([A1].Row).Copy Sheets(2).Rows(3)

Т.е. если в ячейке "A1" текст заканчивается словом "Купля", то строка с этой ячейкой копируется на лист 2 в строку 3.
Естественно, подставьте свои данные.

[zander]

[zander]

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

И еще, для полной ясности: слова "Купля" и "Продажа" в отдельной ячейке строки, или в конце текста ячейки?
Если второе, то контролировать можно, например, так:

If [A1] Like "*Купля" Then Rows([A1].Row).Copy Sheets(2).Rows(3)

Т.е. если в ячейке "A1" текст заканчивается словом "Купля", то строка с этой ячейкой копируется на лист 2 в строку 3.
Естественно, подставьте свои данные.

Но ведь новая строка будет иметь уже не А1 а А2 потом А3 и так далее по столбцу. или это не важно?

[zander]

[EducatedFool]

Попробуйте такой вариант:
(лист Настройки можно сделать скрытым)

Выделите последнюю строку на листе "вход записи", и растяните её вниз на несколько строк.
Автоматически изменится результат в ячейке А1 на листе Настройки, и запустится макрос, который допишет внесенные изменения на лист Купля Продажа.

Листы переименовывать нельзя. (или надо внести изменения в макрос)

[zander]

Вот почему то и в колонке Купля и в колонке Продажа, на листе КупляПродажа, один и тот же коментарий добавлен и к номерам сделок по покупке и к сделкам по продаже - Продажа хотя это была купля ?

[EducatedFool]

Исправил. Проверяйте.

[zander]

Может подскажете как теперь этот замечательный макрос можно перетащить на другие листы? Где крутить? Что бы можно было заменить название листов "Вход Записи" и "КупляПродажа" и по возможности колонку? в макросе и в формуле менял названия листов менял надо еще что то?