макрос сбора данных на новый лист

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос сбора данных на новый лист (Макросы/Sub)

Che79

Дата: Среда, 19.03.2014, 13:56 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

Всем доброго времени суток!
Вопрос касается моей предыдущей темы, которую, к сожалению закрыли из-за какого-то чудика)
Вопрос, наверное, уважаемому KuklP, который в прошлой теме помог мне с макросом. Если будут отклики от других обитателей форума, буду только рад!

Суть проблемы - при переходе c 2003 на Excel 2007 макрос, доработанный KuklP, стал сбоить.

При запуске выдает
Runtime error '9':
Subscript out of range.

и ругается на строки:
[vba]

Код

For i = 3 To sh.[b65536].End(xlUp).Row
With Sheets(sh.Cells(i, 2).Value)

[/vba]
Важное дополнение - кол-во листов в файле сейчас около 50, вместо 4-х, которые были в примере..
Подскажите, пжл, в чем может быть проблема?

Пример и собственно результат дублирую из той самой закрытой темы.

Спасибо.

К сообщению приложен файл: Che79_.rar (21.3 Kb)

Делай нормально и будет нормально!

Сообщение отредактировал Che79 - Среда, 19.03.2014, 14:04

Ответить

KuklP

Дата: Среда, 19.03.2014, 15:13 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Цитата Che79, 19.03.2014 в 13:56, в сообщении № 1

в чем может быть проблема?

В том, что листа с таким именем нет. В примере макрос работает без ошибок, а что у Вас в рабочем файле поди знай. Поставьте наблюдение(add.watch) в строке:
With Sheets(sh.Cells(i, 2).Value) на значение sh.Cells(i, 2).Value и при пошаговой отладке узнаете, на какое имя Экс ругается.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос сбора данных на новый лист (Макросы/Sub)

Страница 1 из 1
1