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

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

Добрый день. Практикуюсь с макросами. Решил создать семейный бюджет и при создании макроса возникла ошибка. Хотел бы проконсультироваться со специалистами, может кто поможет. При нажатии кнопки "Вставить ЖКУ" должно запуститься окно с формой "Вставка ЖКУ", данные в которую берутся с листа "Данные", диапазон A301:D385. После выбора данных, ячейки столбца B вставляются в ячейки P листа "Расходы", я D в ячейки листа "Расходы". Спасибо за помощь.

[kuklp]

Дык правильно, ошибка. Что есть(красным)
Call CreateDim 'составить отсортированный список фирм
Вставка_ЖКУ.ListBox1.List = DimFirm 'загрузить список в диалог
?
Дальше не смотрел.

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

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

Дык правильно, ошибка. Что есть(красным)
Call CreateDim 'составить отсортированный список фирм
Вставка_ЖКУ.ListBox1.List = DimFirm 'загрузить список в диалог
?
Дальше не смотрел.

Что за ошибки CreateDim и DimFirm. Ничего в нете не нашел.

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

Добавил макрос. Помогите пожалуйста с ошибками.

[doober]

Для начала

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

PS: для домашней бухгалтерии крутовато

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

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

Для начала

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

PS: для домашней бухгалтерии крутовато

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

[kuklp]

'Инициализация/уничтожение переменных уровня проекта

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:C")) 'база данных услуг ЖКХ
End With
   With shHome
      rowH = .Rows.Count 'количество используемых строк в базе
      colH = .Columns.Count 'количество используемых столбцов в базе
   End With
End Sub

Дальше у Вас shHome.UsedRange - это бред. Свойство UsedRange применимо к листу а никак не к диапазону.
expression.UsedRange

expression A variable that represents a Worksheet object.

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

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

'Инициализация/уничтожение переменных уровня проекта

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:C")) 'база данных услуг ЖКХ
End With
   With shHome
      rowH = .Rows.Count 'количество используемых строк в базе
      colH = .Columns.Count 'количество используемых столбцов в базе
   End With
End Sub

Дальше у Вас shHome.UsedRange - это бред. Свойство UsedRange применимо к листу а никак не к диапазону.
expression.UsedRange

expression A variable that represents a Worksheet object.

Спасибо за помощь, но все равно что-то не клеится

[doober]

1 DimFirm имя модуля и одновременно имя переменной-красная карточка.
2 Уберите везде shHome.UsedRange
Далее не смотрел

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

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