Макрос разнесения по листам разносит НЕ все строки. Почему?

Пользователь

Сообщений: 282 Регистрация: 22.12.2012

21.11.2012 21:53:50

Здравствуйте, знатоки Excel.
Помогите, пожалуйста, решить вопрос.
Есть файл КАЛЕНДАРЬ, в котором есть макрос, который копирует данные из файла АРХИВ на свой первый лист БАЗА, а затем разносит их по листам в соответствии с критерием в 7-м столбе (по месяцам).
Всё вроде нормально, но сегодня заметил, что в последний лист (01.2013) не переносятся из БАЗы последние 6 строк.
Подскажите, пожалуйста, в чем дело и как "вылечить".

В этом приложении КАЛЕНДАРЬ.

Прикрепленные файлы

post_379736.rar (22.82 КБ)

maseur Пользователь Сообщений: 282 Регистрация: 22.12.2012	#2 21.11.2012 21:55:18 Здесь файл АРХИВ. Прикрепленные файлы post_379738.xls (47 КБ)

maseur Пользователь Сообщений: 282 Регистрация: 22.12.2012	#3 21.11.2012 22:21:53 Если понадобится пароль, то 1

Kuzmich

Пользователь

Сообщений: 8189 Регистрация: 21.12.2012

21.11.2012 23:14:11

В этом фрагменте кода последняя строка ищется по столбцу B,
в котором как раз на 6 значений меньше, чем в A
With Sheets("БАЗА")
lLastRow = .Cells(Rows.Count, 2).End(xlUp).Row 'находим последнюю строку
On Error Resume Next
For li = 2 To lLastRow 'перебираем весь столбец по условию до последней строки

Попробуйте
lLastRow = .Cells(Rows.Count, 1).End(xlUp).Row

Baklanoff Пользователь Сообщений: 580 Регистрация: 25.12.2012	#5 21.11.2012 23:45:04 Эх... не успел. Но раз уж все равно сделал Лень было редактировать ваш код - написал новый (вам осталось только адрес файла в коде на свой поменять). Прикрепленные файлы post_379748.rar (24.73 КБ)

Guest

Гость

22.11.2012 00:15:02

Re Kuzmich
Таки да! ПОМОГЛО! Не в бровь, а в глаз. Большое спасибо Вам.

Re Baklanoff:
Адрес поменял.
Выдавал жёлтым строку
[A1].CurrentRegion.Copy Destination:=.[A1]
Снял защиту с АРХИВа.
Опять запустил "тест"
Прокатил дальше, но выдаёт желтым строку
ReDim Preserve MyArr(1 To .[A1].End(xlToRight).Column, 1 To WorksheetFunction.CountIf(DateRange, sht.Name))
Вот.

maseur

Пользователь

Сообщений: 282 Регистрация: 22.12.2012

22.11.2012 00:27:31

Re Baklanoff:
Я Вам очень признателен за внимание, но я вполне обойдусь "родным" макросом. "Своя рубашка ближе к телу". Да и пользоваться им 1 раз в месяц. Пусть подольше помигает раз в месяц, а я пока чайку попью.
Так что, спасибо Вам большое, но тратьте время.
Всего Вам хорошего.

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#8 22.11.2012 00:32:59 {quote}{login=maseur}{date=22.11.2012 12:27}{thema=}{post}Так что, спасибо Вам большое, но тратьте время.{/post}{/quote}Но тратьте :-)

Baklanoff Пользователь Сообщений: 580 Регистрация: 25.12.2012	#9 22.11.2012 09:41:31 На предоставленных вами примерах "желтых строк" нет. Дело ваше:)

Читают тему