Всем доброго вечера!
Написал для работы макрос для переноса данных (по контексту) из одного файла(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 |
….никак не пойму, в чём дело !!!
хотя в начале все нормально работало. Сразу признаюсь, я не мастер написания кода (как правило, пытаюсь найти аналогичные решения в инете), так что, не взыщите и не судите строго
Заранее спасибо
Владимир