Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
[ Закрыто] Проблема с поиском последней строки :-((, не могу разобраться с поиском последней строки, а вернее наверное с доступом к файлу
 

Всем доброго вечера!

Написал для работы макрос для переноса данных (по контексту) из одного файла(N1) в последнюю строку второго(N2)… Вроде бы тривиальная задачка, но вот столкнулся с проблемой где не ждал. По ходу выполнения процедуры, определяю и запоминаю имена открытых файлов(N1 и N2).

Код
Set ЛистКС = Workbooks(N1).Worksheets(1)Set ЛистСводки = Workbooks(N2).Worksheets(1)

Считываю данные, потом нахожу номер последней незаполненной строки в целевом файле (N2) и вот тут-то появилась проблема. Почему-то последняя строка определяется не в N2, а в исходном файле N1:

Код
With ЛистСводкиPosStr = .Cells(Rows.Count, 1).End(xlUp).Row + 1End With

….никак не пойму, в чём дело !!!

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

Заранее спасибо

Владимир

Страницы: 1
Наверх