при старте не работает ACTIVATE

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

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

jiko

Дата: Среда, 17.07.2013, 15:44 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

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

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

При запуске книги в процедуре
Workbook_Open()
....
....
logg.Activate

после некоторых манипуляций (включая запись в ячейки страницы logg) программа активирует лист logg, потом выделяет в нем диапазон и пр.
Всё работало как надо, потом вдруг перестало. Выдает ошибку 1004.
Пытался "активировать" и Книга.лист, и при выделении диапазона - лист.диапазон и книга.лист.диапазон - не помогает
Просто никак не запустить активацию страницы. Что делать?

:confused:

Сообщение отредактировал jiko - Среда, 17.07.2013, 15:45

Ответить

SkyPro

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

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

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

Сообщений: 1206

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

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

2010

Цитата (jiko, 17.07.2013 в 15:44, в сообщении №1)

Что делать? confused

Как что? устранять причину ошибки!
Выложите пример. Все телепаты в отпуске, но все-таки попробую :
[vba]

Код

sheets("logg").Activate

[/vba]

Вы разделом форума ошиблись.

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Среда, 17.07.2013, 15:51

Ответить

jiko

Дата: Среда, 17.07.2013, 16:10 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

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

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

спасибо, но не помогает. лист имеет системное имя logg, а "в миру"(на закладке) - log.
Ну, не суть,
sheets("log").Activate не помогает..

А, самое важное забыл написать!!!! когда книга уже открыта (нажимаю END на диалоговом окне), я нажимаю альт+F11, запускаю ту же процедуру - всё работает, и данные вносятся и лист активируется.

то есть не работает только при запуске книги huh

Сообщение отредактировал jiko - Среда, 17.07.2013, 16:11

Ответить

jiko

Дата: Среда, 17.07.2013, 16:15 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

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

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

вот пример
но файл очень большой, поэтому высылаю кусок текста (текст процедуры)

К сообщению приложен файл: kkk.txt (1.3 Kb)

Сообщение отредактировал jiko - Среда, 17.07.2013, 16:16

Ответить

SkyPro

Дата: Среда, 17.07.2013, 16:21 | Сообщение № 5

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

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

Сообщений: 1206

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

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

2010

Вот тут у вас ошибка:

Цитата (jiko, 17.07.2013 в 16:15, в сообщении №4)

К сообщению приложен файл: kkk.txt(1Kb)

Неужели тяжело выслать "укороченный" пример? Или полный код макроса.

Попробуйте заменить вот это:
[vba]

Код

logg.Activate

'Sheets("Log")
Range("B351:E392").Select
        Selection.Copy
        Range("B351").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

[/vba]
на это:
[vba]

Код

With Sheets("Log")
.Range("B351:E392").Copy
.Range("B351").PasteSpecial Paste:=xlPasteValues
.activate
End With

[/vba]

Цитата

Всё работало как надо, потом вдруг перестало.

Первую часть кода писал макрописец, а вторую макрорекордер. Вот почему "вдруг перестало".

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Среда, 17.07.2013, 16:29

Ответить

jiko

Дата: Среда, 17.07.2013, 16:34 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

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

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

Всё то же самое - пишет, что метод ACTIVATE завершен неверно (error 1004)/
А при перезапуске все ок

полный макрос вложен

К сообщению приложен файл: 45.txt (2.6 Kb)

Ответить

SkyPro

Дата: Среда, 17.07.2013, 16:37 | Сообщение № 7

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

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

Сообщений: 1206

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

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

2010

Попробуйте вместо activate через select сделать

skypro1111@gmail.com

Ответить

jiko

Дата: Среда, 17.07.2013, 16:49 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

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

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

Дружище, пробовал - всё то же...

Мы с ИТ-шником вместе устраивали мозговой штурм - ИМХО 2010-й excel обладает дурным характером. В 2003-м или работает или нет, а тут всё более странно.

Ответить

Матраскин

Дата: Среда, 17.07.2013, 17:06 | Сообщение № 9

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

Ранг: Обитатель

Сообщений: 375

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

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

20xx

Select ячейки а1 тоже? и дайте же файл!

p.s. попробовал код SkyPro отдельно макросом, всё работает. выделение работает, но похоже остальное - нет

в интернете опять кто-то не прав

Сообщение отредактировал Матраскин - Среда, 17.07.2013, 17:23

Ответить

SkyPro

Дата: Среда, 17.07.2013, 18:34 | Сообщение № 10

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

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

Сообщений: 1206

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

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

2010

Проверьте через Watches в пошаговом выполнении.

skypro1111@gmail.com

Ответить

VictorM

Дата: Среда, 17.07.2013, 20:51 | Сообщение № 11

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

Ранг: Форумчанин

Сообщений: 161

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

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

Какой упорный ТС однако smile

Его уже 2 раза просят выложить пример файла и он 2 раза выкладывает нам ТЕКСТ кода.
jiko, без примера, хотя-бы урезанного, раз уж он такой большой, РЕАЛЬНОГО файла, помощь будет на уровне догадок и измышлений.
Делайте выводы.

Ответить

при старте не работает ACTIVATE

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