Ошибка subscript out of range - VBA (250270)
Формулировка задачи:
Доброго дня уважаемые светлые головы. По данному вопросу много тем, но я так понимаю, что в каждом отдельном случае причина и одна и много их одновременно.
Прошу незамыленным взглядом посмотреть на два файла и помочь с советом как избавиться от ошибки subscript out of range.
Самое интересное, что когда тестирую код на своем компе - все отрабатывает. Отправил Журнал диспетчеру на пробу, бросил ему заявку - глючит.
Суть файлов такова: в одном "Бланк заявки..." формируется заявка и отправляется диспетчеру. Диспетчер открывает заявку и обрабатывает ее. Если заявка принимается, то данные с ее копируются в общий журнал. Где-то в месте открытия журнала при определении последней строки и вылезает ошибка. Вроде бы и лист такой есть и т.д., но не получается убрать ошибку и все тут. При этом на моем компе эти же самые файлы отрабатывают.
Извиняюсь за кривой код, самоучусь пока еще, так сказать)))
Решение задачи: «Ошибка subscript out of range»
textual
Листинг программы
Dim m As Workbook ', а дальше писать If MsgBox("Создать новую запись в журнале?", vbQuestion + vbYesNo, "Обработка заявки") = vbYes Then Jurnal = Application.GetOpenFilename("Файлы Excel 97-2003,*.xlsm", , "Выбор файла") 'выбор файла для копирования в него данных из заявки Set m = Workbooks.Open(Filename:=Jurnal) '"C:\Users\DleTeplov\Desktop\Журнал заявок.xlsm" End If