Ошибка 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

Оцени полезность:

6   голосов , оценка 4.167 из 5