Ошибка 1004 во время выполнения: метод 'Range' объекта'_Worksheet 'не удался - PullRequest
Новая
       5

Ошибка 1004 во время выполнения: метод 'Range' объекта'_Worksheet 'не удался

0 голосов
/ 18 февраля 2020

Я получаю сообщение об ошибке «1004» и не могу понять, почему. Я попытался скопировать точный код из другой книги, а также напечатать его безрезультатно. Проблема связана с .range (строка листа

Sub Empl_Load () Dim EmpRow As Long Dim EmpCol As Long с Sheet2 If .Range ("B5"). Значение = пусто, затем MsgBox "Пожалуйста, введите действительный сотрудник из раскрывающегося списка «Выход из вспомогательного конца, если .Range (« B1 »). Value = True» Установить нагрузку на сотрудника в True EmpRow = .Range («B5»). Значение 

  For EmpCol = 1 To 28
    .Range(Sheet1.Cells(1, EmpCol).Value).Value = Sheet1.Cells(EmpRow, EmpCol).Value
Next EmpCol

.Shapes("NewEmpGrp").Visible = msoFalse
.Shapes("ExistEmpGrp").Visible = msoCTrue

  .Range("B6").Value = False 'Set New Employee To False
  .Range("E4").Select 'Load General Info Tab



  .Range("B1").Value = False 'Set Employee Load To False

Окончание

End Sub

...