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

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

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

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

И как решить проблему?

[VictorM]

Кстати, в новом файле макрос вот с такой строкой
Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки ").Range("Б_данные").Value 'база данных адресов (лист "Firms")
работать не хочет.
Если же так
Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки ")'база данных адресов (лист "Firms")
работает нормально

И как решить проблему?

я говорил выше
этот макрос нужно запускать при инициализации формы

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

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

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

И все равно упираюсь в эту ошибку.
Удалил строчку rowH = .Rows.Count
Public Sub InitPublicVars()
Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки ")
With shHome.UsedRange
End With
End Sub

[VictorM]

Эту строку удалять не нужно!
rowH у Вас используется дальше, опять же при инициализации формы. Макрос

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

рабочий!!!

[VictorM]

Просто у вас там дальше останавливается на rowH, обьявил переменную в модуле - пошло дальше, но опять ошибка, только уже на другой строке....и т.д...

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

Кое что докумекал.....

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

Просто у вас там дальше останавливается на rowH, обьявил переменную в модуле - пошло дальше, но опять ошибка, только уже на другой строке....и т.д...

А rowH=1786 - это количество ячеек?

[VictorM]

Кое что докумекал.....

Ну все правильно.
А теперь дальше ошибка, о чем я и говорил

и, кстати, у меня всеже не работает строка полностью

Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки").Range("Б_данные")

только вот так

Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки")

А rowH=1786 - это количество ячеек?

количество строк
и оно потом у вас используется дальше

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

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

и, кстати, у меня всеже не работает строка полностью

Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки").Range("Б_данные")

только вот так

Set shHome = Workbooks("Репо (облигации).xls").Worksheets("Банки")

Спасибо.
Начал немного понимать. .Range("Б_данные") - показывает границы массива, а rowH = .Rows.Count на безграничность массива. Конфликт интересов.

Дошёл до этого....

[IgorGO]

ничего Вы не начали понимать.
Workbooks("Репо (облигации).xls").Worksheets("Банки ").Range("Б_данные") - указывает на диапазон, а Вы пытаетесь присвить переменной типа WorkSheet значение типа Range.
.Rows.Count - указывает на количество рядов в обьекте, который должен быть записан перед точкой (если там указан "правильный" обьект, у которого есть свойство Rows - коллекция строк)

[VictorM]

да, недоглядел в вопросе
конечно же rowH=1786 не количество ячеек, а количество строк