Вывод данных из listbox

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

Я еще добавил ссылку не на весь диапазон а только ЖКУ:

Option Explicit
Public shHome As Range 'база данных адресов (лист "Firms")
Public rowH As Integer 'количество используемых строк в базе
Public colH As Byte 'количество используемых столбцов в базе
'Инициализация переменных уровня проекта
Public Sub InitPublicVars()
With ThisWorkbook.Worksheets("Данные")
Set shHome = Intersect(Range("Данные_расходов"), .Columns("A:D"), .Rows("302:385")) 'база данных услуг ЖКХ
End With
With shHome
rowH = .Rows.Count 'количество используемых строк в базе
colH = .Columns.Count 'количество используемых столбцов в базе
End With
End Sub


Такое вообще разрешено?

[kuklp]

Разрешено, но бессмысленно. Зачем вычислять к-во строк-столбцов, если Вы их сами жестко задаете? Последний Ваш код можно записать так:

Public Sub InitPublicVars()
    With ThisWorkbook.Worksheets("Данные")
        Set shHome = Intersect(.Columns("A:D"), .Rows("302:385"))    'база данных услуг ЖКХ
    End With
    rowH = 84    'количество используемых строк в базе
    colH = 4    'количество используемых столбцов в базе
End Sub

[kuklp]

Сообщение от СтаниславАВ

Все равно ошибку выдает. Может переменную я какую нибудь забыл?

Забыл. Вам же писали:
Public shHome As Range
Вы оставили As worksheet. Отсюда и ошибка.

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

Всё равно ошибку выдает

http://clip2net.com/s/14AoE

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

Может два раза End With написать?

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

спасибо, другая проблема, буду сейчас решать: http://clip2net.com/s/14Apx

[kuklp]

Вы ответы читаете? Просто скопируйте код из ответа. Конечно же у Вас пропущен End With. Но Вам такого никто не советовал.

[kuklp]

Сообщение от СтаниславАВ

спасибо, другая проблема, буду сейчас решать: http://clip2net.com/s/14Apx

На это Вам Сергей ответил еще Вчера, 22:54, первым же пунктом. Повторяю вопрос - Вы ответы читаете?

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

Проблемы с макросом DimFirm: http://clip2net.com/s/14AqX

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

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

На это Вам Сергей ответил еще Вчера, 22:54, первым же пунктом. Повторяю вопрос - Вы ответы читаете?

Я все поиском проверил. Все .UsedRange убрал. Больше нигде не нашёл