Перенос с listbox2 на лист

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос с listbox2 на лист (Макросы/Sub)

miro5

Дата: Суббота, 25.11.2017, 22:25 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Добрый вечер.
Помогите, написал код переноса данных на лист, если делать отдельной кнопкой все хорошо, работает, но мне надо чтобы он работал в коде где выбрался лист на какой переносить. код ниже. подскажите что не так делаю.
[vba]

Код

Private Sub ComboBox1_Change()

If Me.ComboBox1.Value = "Лист1" Then
Sheets("Лист1").Activate

ElseIf UserForm1.ComboBox1.Value = "Лист2" Then
Sheets("Лист2").Activate
Dim i As Long, strFileName As String
ReDim arr(1 To Me.ListBox2.ListCount + 1, 1 To 6)
    For i = 0 To Me.ListBox2.ListCount - 1
        arr(i + 1, 1) = Me.ListBox2.List(i, 1)
        arr(i + 1, 2) = Me.ListBox2.List(i, 2)
        arr(i + 1, 3) = Me.ListBox2.List(i, 3)
        arr(i + 1, 4) = Me.ListBox2.List(i, 4)
        arr(i + 1, 5) = Me.ListBox2.List(i, 5)
        arr(i + 1, 6) = Me.ListBox2.List(i, 6)

    Next
        arr(Me.ListBox2.ListCount + 1, 1) = " "
        arr(Me.ListBox2.ListCount + 1, 2) = " "
        arr(Me.ListBox2.ListCount + 1, 3) = "Итог:"
        arr(Me.ListBox2.ListCount + 1, 4) = sum
        arr(Me.ListBox2.ListCount + 1, 5) = " "
        arr(Me.ListBox2.ListCount + 1, 6) = " "

ThisWorkbook.Worksheets("Лист2").Activate
Range("A2").Resize(Me.ListBox2.ListCount + 1, 6).Value = arr
Sheets(2).Select

  On Error Resume Next
ElseIf UserForm1.ComboBox1.Value = "Лист3" Then
Sheets("Лист3").Activate
End If

End Sub

[/vba]

Ответить

Manyasha

Дата: Воскресенье, 26.11.2017, 00:59 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

miro5, здравствуйте.
Попробуйте так:
[vba]

Код

Private Sub ComboBox1_Change()
    Dim i As Long, strFileName As String
    ReDim arr(1 To Me.ListBox2.ListCount + 1, 1 To 6)
        For i = 0 To Me.ListBox2.ListCount - 1
            arr(i + 1, 1) = Me.ListBox2.List(i, 1)
            arr(i + 1, 2) = Me.ListBox2.List(i, 2)
            arr(i + 1, 3) = Me.ListBox2.List(i, 3)
            arr(i + 1, 4) = Me.ListBox2.List(i, 4)
            arr(i + 1, 5) = Me.ListBox2.List(i, 5)
            arr(i + 1, 6) = Me.ListBox2.List(i, 6)

        Next
            arr(Me.ListBox2.ListCount + 1, 1) = " "
            arr(Me.ListBox2.ListCount + 1, 2) = " "
            arr(Me.ListBox2.ListCount + 1, 3) = "Итог:"
            arr(Me.ListBox2.ListCount + 1, 4) = Sum
            arr(Me.ListBox2.ListCount + 1, 5) = " "
            arr(Me.ListBox2.ListCount + 1, 6) = " "

    ThisWorkbook.Worksheets(UserForm1.ComboBox1.Value).Range("A2").Resize(Me.ListBox2.ListCount + 1, 6).Value = arr
End Sub

[/vba]

Если не то, показывайте пример в файле.