объект Range ведет себя по разному???

[adapter]

честно гря не понял как это но вот в событии по двойному клику код не работает. Зато он же работает если его вызвать из модуля

Код: Выделить всё

' в модуле листа
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim mRange As Range

    Cancel = True   

    Test2

'    Set mRange = Range("изделия!B5:B9")
'    mRange.Cells(1, 1).Copy
'    ActiveSheet.Paste link:=True

End Sub


'в общем модуле
Public Sub Test2()
    Set mRange = Range("изделия!B5:B9")
    mRange.Cells(1, 1).Copy
    ActiveSheet.Paste link:=True

End Sub



т.е. я пытаюсь вставить в ячейку листа "заказы" ссылку на ячейку листа "изделия".

если в событии ДблКлика строчки откоменить то на строке
Set mRange = Range("изделия!B5:B9")

ругается
Method 'Range' of object '_Worksheet' failed

в чем прикол?

[alibek]

Не надо использовать Range без понимания, как он работает.
Используй Application, Worksheets.

[adapter]

ну я вот за пониманием и обратился

[alibek]

В таком случае постарайся понять, откуда Excel может знать, про какой Range ты ему говоришь?
Указывай ему на конкретный Range.

[adapter]

Ты меня не понял - перечитай тему внимательно и постарайся понять
или я тебя поэтому переформулирую. Почему

Set mRange = Range("изделия!B5:B9")

работает только в общем модуле? а в модуле листа НЕ работает?

откуда Excel может знать, про какой Range ты ему говоришь?

ясно ж указано "изделия!B5:B9"

[Денис]

Тушите свет! Сказано же

Не надо использовать Range без понимания, как он работает.
Используй Application, Worksheets.

значит

Код: Выделить всё

Set mRange = Worksheets("изделия").Range("B5:B9")

попробуйте.
А если модуль листа - это модуль листа "изделия", то вызываете просто

Код: Выделить всё

Set mRange = Range("B5:B9")

Вообще рекомендую изучить суть понятий "Пространство имен" (NameSpace) и "Наследование объектов"

[alibek]

Это ты меня не понял.
Range не существует сам по себе. Он может существовать только у Application или у Worksheet.
То, что он работает в модуле, возможно потому, что там по умолчанию добавляется Application.

[adapter]

Да, потестил дело оказалось действительно в

возможно потому, что там по умолчанию добавляется Application.

а в листе (исходя из пространства имен - текущий лист

Спасибо, помогли. Че то я сам до этого не дошел.

Мне явно в коде указывать лист через Worksheets("изделия") не хотелось, потому что "изделия!B5:B9" получаю программно и листы разные.

[alibek]

Тогда указывай Application (Application.Range).