Страницы: 1
RSS
ListBox список с исключениями
 
Добрый день, форумчане! Нашел здесь код, который формирует список, исключая из него при совпадении значения из другого списка. Но никак не могу oCell.Value впихнуть в ListBox, при этом не задействовав дополнительно столбец на листе. Постоянно сталкиваюсь с ошибкой type mismatch либо invalid property array index.  
Выручите, пожалуйста.
 
Так ?  
Sub test2()  
Dim RNG1 As Range  
Dim RNG2 As Range  
Set RNG1 = Range("B1:B5")  
Set RNG2 = Range("A1:A5")  
For Each oCell In RNG1.Cells  
If RNG2.Find(oCell.Value, , xlValues) Is Nothing Then  
ListBox1.AddItem oCell.Value  
End If  
Next  
End Sub
 
А я ListBox1.List.AddItem пытался сделать  
Спасибо, увидел свою ошибку.
Страницы: 1
Наверх