Добавление строк

[Atevss]

Здравствуйте, помогите, пожалуйста, с решением задачи, дело в том, что на форуме очень много подобных тем, но мне все равно ничего не помогло

Есть два файла lp1 и plan1 (во вложении, хотя на самом деле таблицы ооооочень большие)
по сути plan1 состоит из данных lp1

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

Я пыталась это реализовать просто через промежуточный лист в lp1 с новыми данными, но у меня не получилось сделать так, чтобы при использовании события Worksheet_Change копировались только ДОБАВЛЯЕМЫЕ целые строки.

[doober]

Коды макросов расположить в соответствующих книгах.Укажете в plan1 путь к файлу Lp1,и имя листа в константах.
Первым запустить Lp1,вызвать событие Worksheet_Change на Листе3
При первом запуске plan1 укажете (макрос сам попросит)номер строки Листа3 Lp1 , с которой надо начинать отбор строк.

[Atevss]

Спасибо огромное за ответ. А нельзя ли сделать так, чтобы пользователю не приходилось вводить номер строки с которой начинать отбор, чтобы новые строки были выбраны без его участия. И еще при вводе в lp1 нескольких новых строк в результате в plan1 копируется на одну меньше

[doober]

Исправил перенос всех новых строк.
По поводу указания номера строки.
Она указывается только один раз при первом запуске макроса(не при открытии книги).
В реестр записывается номер строки с которой надо начинать отбор,иначе номер строки 0.
Далее указание диазазона для отбора идет автоматически.Книга донор при событии Worksheet_Changeзаписывает в реестр номер последней заполненой строки.
Книга с макросом Start загружает с реестра номер первой и последней строки не загруженого диапазона новых записей .
После добавления данных записывает в реестр номер первой строки для отбора как номер последней +1

[Atevss]

Не сочтите за попрошайничество, но я так поняла, что все ячейки самой последней строки в lp1 должны быть обязательно заполнены, но очень часто (на практике) некоторых данных нет и в строках присутствуют пустые ячейки, ведь тогда макрос не сработает, как быть?

[doober]

Замените на

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ra As String
  ra = Columns(1).SpecialCells(xlCellTypeConstants).AddressLocal
Dim g, sl
  
  g = Split(ra, ":", -1)

    sl = Split(g(1), "$", -1)
     SaveSetting DEVNAME, APPNAME, "Poz_last", sl(UBound(sl))
    
End Sub

будет срабатывать по наличию записи в колонке"А"

[Atevss]

Огромнейшее Вам СПАСИБО, Все работает....

А можно еще один вопрос не в тему?Хотя, конечно, Вы мне и так очень помогли, но, если у Вас есть время.... Вы не подскажите мне, как сделать так, чтобы данный макрос (вложение) сам находил максимальное и предыдущее перед максимальным значением, окрашивая строку в нужный цвет, просто в созданном мной макросе, я вручную прописала значение (>5). А на самом деле мест может быть очень много (важно закрасить цветом последних два)

В любом случае спасибо еще раз

[doober]

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

Вы не подскажите мне, как сделать так, чтобы данный макрос (вложение) сам находил максимальное и предыдущее перед максимальным значением

Подскажу Нажать на кнопку

[Atevss]

Спасибо