Проблемы с базой данных

[СтаниславАВ]

Но поскольку макрос срабатывает неправильно. Он из другой книги в эту таблицу данные не подгружает и выдаёт ошибку. Я так думаю.

[VictorM]

Кстати и первый макрос Игоря работает!

Option Explicit
Public shHome As Worksheet 'база данных адресов (лист "Firms")
Public rowH As Integer 'количество используемых строк в базе
Public Sub InitPublicVars()
Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки")
With shHome.UsedRange
rowH = .Rows.Count
End With
End Sub

только Public shHome As Integer я изменил, так как Вы говорите у Вас в оригинале т.е. Public shHome As Worksheet

а выдает ошибку он на то, что у Вас процедуры с одинаковыми именами
в Репо макросов с именем Public Sub InitPublicVars два, и во второй книге такое же имя присутствует, обе книги работают одновременно...

[СтаниславАВ]

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

Кстати и первый макрос Игоря работает!

Option Explicit
Public shHome As Worksheet 'база данных адресов (лист "Firms")
Public rowH As Integer 'количество используемых строк в базе
Public Sub InitPublicVars()
Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки")
With shHome.UsedRange
rowH = .Rows.Count
End With
End Sub

только Public shHome As Integer я изменил, так как Вы говорите у Вас в оригинале т.е. Public shHome As Worksheet

Выдаёт ошибку

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

а выдает ошибку он на то, что у Вас процедуры с одинаковыми именами
в Репо макросов с именем Public Sub InitPublicVars два, и во второй книге такое же имя присутствует, обе книги работают одновременно...

В файле Репо (облигации) макросы не работают. Я их удалю. Просто макросы не работали, пытался из другого файла их запускать. Работать должен один. Который должен срабатывать в файле 11 Ноября после нажатия на кнопку Для всех банков.

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

это
"Репо (облигации).xls"
открыто, когда работает макрос?

Не знаю. Выдаёт ошибку и всё тут.....
Если данные переношу в эту же книгу. Макрос получается написать, а тут засада какая то....

[VictorM]

так удалите сначала!
и далее, при инициализации формы должна сначала сработать Public Sub InitPublicVars, чтобы определились переменные, окно ошибки Вам это и говорит.
Нажмите Debug и посмотрите на чем останавливается макрос.
И все равно это не все, потом он остановится на rowH, и потом далее...

[СтаниславАВ]

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

а выдает ошибку он на то, что у Вас процедуры с одинаковыми именами
в Репо макросов с именем Public Sub InitPublicVars два, и во второй книге такое же имя присутствует, обе книги работают одновременно...

При нажатии на кнопку для банков макрос срабатывает, но там путь указан как: x = Workbooks("Репо (облигации).xls").Worksheets("Банки ").Range("Б_данные").Value

[VictorM]

"Для банков" у меня рабоатет
а вот "Для всех банков" - выдает ошибку

[СтаниславАВ]

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

так удалите сначала!
и далее, при инициализации формы должна сначала сработать Public Sub InitPublicVars, чтобы определились переменные, окно ошибки Вам это и говорит.
Нажмите Debug и посмотрите на чем останавливается макрос.
И все равно это не все, потом он остановится на rowH, и потом далее...

Согласен. Но он останавливается на If Not IsEmpty(shHome.UsedRange) Then - я так понимаю, что если список не пуст то он должен грузится. А он не грузится.

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

"Для банков" у меня рабоатет
а вот "Для всех банков" - выдает ошибку

Вот я о том же. Этот макрос у меня хорошо отрабатывает. А тот нифига не получается настроить.

Я тут изменения внёс. При двойном нажатии в файле 11 Ноябрь.

[VictorM]

Но он останавливается на If Not IsEmpty(shHome.UsedRange) Then - я так понимаю, что если список не пуст то он должен грузится.

В данном случае дело не в том, пустой список или нет, в вашем случае, ошибка пишет что обьект не определен.
т.е. - ошибка

[СтаниславАВ]

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

В данном случае дело не в том, пустой список или нет, в вашем случае, ошибка пишет что обьект не определен.
т.е. - ошибка

Тоесть, не правильная ссылка на данные. А они указаны только здесь:
Public Sub InitPublicVars()
Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки ")
With shHome.UsedRange
rowH = .Rows.Count
End With
End Sub

[VictorM]

Вот, вот!
поэтому, если сначала запустить этот макрос, то как раз это место проходит и
ошибка уже возникает на другой строке
о чем я и писал