работа на одном листе с данными из LISTBOX, данные на другом листе

[konstantin1990]

Добрый день! Есть проблема, на неё мозга не хватает, посерфил в нэте конкретного ответа не нашел. В примере на листе 1 есть табличка с данными, загружая макрос (ctrl+shift+q в данном случае) на фоме отображается Listbox с этой таблицой, а если запускать макрос при открытом лист 2 то поле list box остается пустым! Как привязать код записанный у меня в форме к конкретному листу, т.е чтобы при запуске макроса даже с листа 2, он показывал таблицу из листа 1?

[DiemonStar]

например, так поправить:

Private Sub UserForm_Initialize()

Dim gMassiv(2 To 13, 1 To 17)
    With Sheets("Лист1")
    For iRow& = 2 To 13
    
        gMassiv(iRow&, 1) = .Cells(iRow&, 11)
        gMassiv(iRow&, 2) = .Cells(iRow&, 12)
        gMassiv(iRow&, 3) = .Cells(iRow&, 13)
        gMassiv(iRow&, 4) = .Cells(iRow&, 14)
        gMassiv(iRow&, 5) = .Cells(iRow&, 15)
        gMassiv(iRow&, 6) = .Cells(iRow&, 16)
        gMassiv(iRow&, 7) = .Cells(iRow&, 17)
    Next
    End With
    ListBox1.ColumnCount = 7
    ListBox1.List = gMassiv

End Sub

но можно сделать короче:

Private Sub UserForm_Initialize()
    A = Sheets("Лист1").Range("K2:Q15")
    ListBox1.ColumnCount = 7
    ListBox1.List = A
End Sub

[konstantin1990]

Класс! Большое спасибо!

[IgorGO]

konstantin1990, в Вашем вопросе как бы есть ответ надо:

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

Private Sub UserForm_Initialize()
  With Worksheets(1).[k1]
    ListBox1.ColumnCount = .CurrentRegion.Columns.Count
    ListBox1.List = .Offset(1, 0).Resize(.CurrentRegion.Rows.Count, .CurrentRegion.Columns.Count).Value
  End With
End Sub