можно ли глобально присвоить объект переменной?

[IgorGO]

видите-ли, уважаемый budmit, возможно все что Вам написали на другом форуме даже правильно... беда тошько в том что до использования переменной из другой книги Вы еще не дошли (это будет следующий этап кориды) пока же Вы в модуле, в котором обьявлена переменная не можете ей присвоить значение, немного настораживает фраза что если ее обьявить как Dim, то все нормально... это точно так? пока у меня было только одно обьяснение - Вы пытались переменной присвоить несуществующий обьект - отсюда и проблемы.
логическое обьяснение всему этому должно быть, просто мы с Сережей не может его найти из-за скудности исходных данных.
о том где и сколько живут пременные и как к ним обратиться есть полно технической информации

[doober]

У меня как то был пример общения 3 книг между собой.
Что то на подобии дуплексной связи.Пример есть на форуме за 2010 год.Называется общение книг

[budmit]

что мне надо с комментариями и вопросом что надо в процедурах calculate на листах

[IgorGO]

довольно традиционно...
обьясняем одно, на самом деле написано другое
см.вложение. добавил модуль в книгу.

[budmit]

это был только пример - написанный заново как пример необходимой задачи - спс еще раз

[Frantmc]

Подскажите, я так и не понял, как ввести в начале модуля сокращения:

Public TW As Workbook, WS As Worksheet, LO As ListObject
Const NameBook As String = "Book.xlsm"
Const NameList As String = "List"
Const NameTabl As String = "Tabl"

Public Sub Сокращения()
    Set TW = Workbooks(NameBook)
    Set WS = TW.Worksheets(NameList)
    Set LO = WS.ListObjects(NameTabl)
    LO.ListRows.Add AlwaysInsert:=True
End Sub

Sub Главный()
   Call Сокращения
   Call Выполнить
End Sub

Sub Выполнить()
            LO.ListRows.Add AlwaysInsert:=True
            Range("A1").End(xlDown).Offset(1, 0).Select
            'Range(Range("A1").End(xlDown).Offset(1, 0), Range("A1").End(xlDown).End(xlToRight).Offset(1, 0)).Select
End Sub

Процедура сокращения не присваивает значения переменных, то есть следующая процедура (Выполнить) их уже не видит.

Задача состоит в том чтобы обозначить конкретные объекты типа Книга, Лист, Диапазон в начале модуля, присвоить им удобные имена (сокращённые) чтобы потом в этом же модуле пользоваться этими сокращениями, процедур будет много, и каждый раз не хотелось бы обозначать одни и те же объекты.

[IgorGO]

а так:

Public Sub Сокращения()
    Set TW = Workbooks(NameBook)
    Set WS = TW.Worksheets(NameList)
'    Set LO = WS.ListObjects(NameTabl)
'    LO.ListRows.Add AlwaysInsert:=True
End Sub

Sub Главный()
   Call Сокращения
   Call Выполнить
End Sub

Sub Выполнить()
            MsgBox "sheet: " & WS.Name & Chr(10) & "workbook: " & TW.Name
'            LO.ListRows.Add AlwaysInsert:=True
'            Range("A1").End(xlDown).Offset(1, 0).Select
            'Range(Range("A1").End(xlDown).Offset(1, 0), Range("A1").End(xlDown).End(xlToRight).Offset(1, 0)).Select
End Sub

[ikki_pf]

Сообщение от budmit

в модуле

а модуль-то какой?
стандартный?
или это модуль листа/книги/формы?

таки есть разница, есличо.

пс. оказывается, тема на двух страницах. сорри, поторопился.