Ограничение по строкам в макросе

[Watcher_1]

Походу без примеров файлов источников действительно не обойтись.
+ Нужно описание последовательности действия для того чтобы появилась ошибка.

[ottomellon]

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

Походу без примеров файлов источников действительно не обойтись.
+ Нужно описание последовательности действия для того чтобы появилась ошибка.

Выкладываю сам макрос опять и примеры 2х файлов.

После запуска макроса будут всплывающие окна. В первом ставите "A2" (ячейка с которой начинать собирать информацию), во втором окошке пишите "Лист1" и потом выделяете оба файла.
Для примера как оно должно работать выберите 1 файл или 2 файла где в каждом по 30 тыс. строк.

[Watcher_1]

Поменяйте на это

iRngAddress = Range(ThisWorkbook.Sheets(DataSheet).Cells(lLastRowMyBook, 1), ThisWorkbook.Sheets(DataSheet).Cells(lLastRowMyBook + lLastrow, iLastColumn)).Address

Вроде ошибки нет

[ottomellon]

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

Поменяйте на это

iRngAddress = Range(ThisWorkbook.Sheets(DataSheet).Cells(lLastRowMyBook, 1), ThisWorkbook.Sheets(DataSheet).Cells(lLastRowMyBook + lLastrow, iLastColumn)).Address

Вроде ошибки нет

ВСЕ идеально получилось!
Спасибо вам большое!

[shanemac51]

надо проверять условие

If lLastrow < iBeginRange.Row Then
ws1.Cells(jinfo, 12) = "пропущен"
Exit For '''''''''''''''''''''''''''''''''
End If

запустите диапазон a2:c9

[ottomellon]

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

надо проверять условие

If lLastrow < iBeginRange.Row Then
ws1.Cells(jinfo, 12) = "пропущен"
Exit For '''''''''''''''''''''''''''''''''
End If

запустите диапазон a2:c9

Спасибо большое, но Watcher_1 предложил решение которое помогло.
В том файле который вы приложили не стало выбора с название листа книги.

[shanemac51]

мне надоело отвечать и поставила кавычку в коде

[ottomellon]

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

мне надоело отвечать и поставила кавычку в коде

ааа...= ))))

[shanemac51]

убрала кавычку

---
я обычно пускаю книгу и лист дополнительными столбиками
--всегда знаешь, кому принадлежит строка
--если лист по году/месяцу ---год/месяц в сводную

[ottomellon]

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

убрала кавычку

---
я обычно пускаю книгу и лист дополнительными столбиками
--всегда знаешь, кому принадлежит строка
--если лист по году/месяцу ---год/месяц в сводную

сорри, но или я делаю что-то не то или он работает не так как надо.