Заполнить ListBox с двух разных листов

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнить ListBox с двух разных листов (Макросы/Sub)

Dмитрий

Дата: Четверг, 03.04.2014, 12:28 | Сообщение № 1

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

Ранг: Участник

Сообщений: 91

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

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

Excel 2010

Добрый День. Как заполнить ListBox с двух разных листов по условию. Я делаю так:
[vba]

Код

Sheets("Лист2").Activate
lr = Cells(Rows.Count, 1).End(xlUp).Row  'находим номер строки
Sheets("Лист1").Activate
lr2 = Cells(Rows.Count, 1).End(xlUp).Row  'находим номер строки
Sheets("Лист2").Activate

ListBox1.Clear
'заполняем ListBox1
j = 0
For i = lr To 3 Step -1 'заполняем  снизу до три
    ListBox1.AddItem i
    ListBox1.List(j, 1) = Cells(i, 2)
    ListBox1.List(j, 2) = Cells(i, 4)
    ListBox1.List(j, 4) = Cells(i, 19)
    Sheets("Лист1").Activate
    For A = lr2 To 3 Step -1 'снизу до три
    If Cells(A, 1).Value = ListBox1.List(j, 4)  Then
    ListBox1.List(j, 5) = Cells(A, 2)
    End If
    Next A
    Sheets("Лист2").Activate
     j = j + 1
Next i

[/vba]
пишет ListBox1.List(j, 5)=Null
Смущает цикл в цикле, но раньше я что-то подобное у меня работало, правда данные были на одном листе