Добрый день. Сегодня обнаружил что перестали работать кнопки для вызова макроса. Есть старые версии файла - в них кнопки работают а в последних они стали мертвые.. Что то типа http://www.excelworld.ru/forum/10-9107-1 ни кто не сталкивался?
У нас в компании к сожалению только сейчас установили это апдейт. поэтому так поздно и написал. но совет по удалению exd помог... жаль что когда в сети 2000 компьютеров и профиль пользователя на диске D надо все это делать руками.
Доброго дня. Помогите найти ошибку пожалуйста, все отлично работало, но сейчас перестала работать кнопка вызова формы "добавить заявочный лист", в других книгах все работает.
я их удалила потому что очень большой объем файла, даже заархивированного. На листах автотранспорт и сотрудники просто храняться данные для добавления в комбобоксы на форме. Размер файла больше 24000 КБ(((
У меня ругается, потому что нет этого листа. А дальше будет ругаться, потому что нет листов "Ремонтные работы", "Сотрудники"... Процедура инициализации просит эти листы )
Kcuxa_xa написал: Помогите найти ошибку пожалуйста
а как Вы поняли, что не работает? Ошибка появляется? Если да - какая? Если нет - с чего мысль, что что-то не работает? Может ошибка стала появляться при вызове календаря? Попробуйте тогда вызывать формы в немодальном режиме:
Kcuxa_xa, без Вашего файла сложно сказать, в чём причина. Зайдите в модуль формы, в процедуру инициализации, на строке Me.Caption = ... поставьте точку останова, и пройдите пошагово (F8) - увидите, на какой строке сбой.
значит ошибка где-то внутри формы при инициализации. Сделайте следующее: в редакторе VBE зайдите в Tools -Options. Вкладка General. Поставьте переключатель на пункт Break in ClassModule. Запустите форму кнопкой с листа и посмотрите на какой строке внутри формы будет ошибка и какая именно. Опишите её здесь.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
да видимо в форме проблема. Прикладываю фото ошибки и строчки кода. Это комбобокс в форме с данными из листа "сотрудники". Я так понимаю он не видит этот лист?
' заполняем вып.списки(комбобоксы)
With Sheets("Автотранспорт")
Me.grz.List = .Range("A1", .Cells(Rows.Count, "A").End(xlUp)).Value
End With
Посмотрите свой файл ,который Вы прикрепили !!!"
Скорее всего в первом столбце на листе Сотрудники просто нет данных. А Range().Value тогда возвращает не массив, а значение одной конкретной ячейки. По сути решить это можно примерно так:
Код
With Sheets("Сотрудники")
Dim arr
arr = .Range("A1", .Cells(Rows.Count, "A").End(xlUp)).Value
If Not IsArray(arr) Then
ReDim arr(1 To 1)
arr(1) = .Range("A1", .Cells(Rows.Count, "A").End(xlUp)).Value
End If
Me.fio.List = arr
End With
P.S. Господа, Вы все так привязались к отсутствию листов, что совсем забыли тот факт, что их нет только у нас, на форуме Девушка их удалила только для загрузки файла на форум, в реальности у неё они есть в файле