Добрый День. Как заполнить 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 Смущает цикл в цикле, но раньше я что-то подобное у меня работало, правда данные были на одном листе
Добрый День. Как заполнить 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 Смущает цикл в цикле, но раньше я что-то подобное у меня работало, правда данные были на одном листеDмитрий
Сообщение отредактировал Dмитрий - Четверг, 03.04.2014, 12:29