Ошибка Method "Intersect of object '_Global' failed при загрузке данных из текстового файла

Пользователь

Сообщений: 370 Регистрация: 01.01.1970

12.06.2018 10:25:37

Здравствуйте, тема пересекается с недавней, где все получилось если данные вводятся / меняются вручную.
При загрузке данных из текстового файла должна происходить заливка цветом ячеек, по граничным значениям, заданным на листе "Work", однако на строке кода выгрузки данных на лист, возникает ошибка указанная в названии темы.
Не могу понять, в чем отличие простого впечатывания значений в ячейки когда все работает, от выгрузки на лист из массива. Прикладываю проблемный файл и пример текстового из которого происходит загрузка.
Заранее спасибо.

Прикрепленные файлы

1.txt (6.58 КБ)
tmp.xlsm (48.19 КБ)
tmp.xlsm (48.19 КБ)

Изменено: VSerg - 12.06.2018 10:53:09

Sanja Модератор Сообщений: 19604 Регистрация: 10.01.2013	#2 12.06.2018 10:47:29 Не могу войти в Tools - References, требует пароль Изменено: Sanja - 12.06.2018 10:48:58 Согласие есть продукт при полном непротивлении сторон

VSerg Пользователь Сообщений: 370 Регистрация: 01.01.1970	#3 12.06.2018 10:53:53 Прошу прощения, заменил файл в первом сообщении. Еще заметил, что ошибка не возникнет если перед вставкой активировать нужный лист. Изменено: VSerg - 12.06.2018 11:24:00

Sanja

Модератор

Сообщений: 19604 Регистрация: 10.01.2013

12.06.2018 11:23:04

Для Range("E4:E6") укажите лист

Код

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    If (Sh.Name = "Work" And Not Intersect(Target, Sh.Range("E4:E6")) Is Nothing) Or Sh.Name Like "WS*" Then
        Call Paint
    End If
    Application.EnableEvents = True
End Sub

Согласие есть продукт при полном непротивлении сторон

VSerg Пользователь Сообщений: 370 Регистрация: 01.01.1970	#5 12.06.2018 11:28:27 Sanja, это помогло. Большое спасибо в очередной раз.

Читают тему