Добрый день! Как можно перенести при открытии формы в ListBox значения без нулей из столбца с формулами? Это необходимо для дальнейшего ввода строк в таблицу и ListBox. Сейчас получается в ListBox так:
Начал тестировать, и вот, что не получается: Если убавляем количество строк с товаром или вовсе убираем их тогда всплывают нули и тянутся строки которые ниже диапазона B12-G20
Private Sub UserForm_Activate()
Dim LastRow As Long
LastRow = Cells(20, 5).End(xlUp).Row
UserForm1.ListBox1.List = Range(Cells(12, 2), Cells(LastRow, 7)).Value
End Sub
Private Sub UserForm_Activate()
Dim LastRow As Long
LastRow = Cells(20, 5).End(xlUp).Row
If LastRow = 11 Then Exit Sub 'Добавлено
UserForm1.ListBox1.List = Range(Cells(12, 2), Cells(LastRow, 7)).Value
End Sub