Loop within loop?
Thanks Rick, not quite, but JLGWhiz hit the nail on the head.
I appreciate your time though.
"Rick Rothstein" wrote:
If I understand your question correctly, I think this code will do what you
want...
Private Sub UserForm_Initialize()
Dim C As Range
For Each C In Worksheets("Sheet1").Range("A4:A12")
If Worksheets("Sheet5").Range("B5:B10").Find(C.Value) Is Nothing Then
ListBox1.AddItem C.Value
End If
Next
End Sub
--
Rick (MVP - Excel)
"LaDdIe" wrote in message
...
Hello,
I'm trying to fill a listbox with item in a range only if they are not in
another range, I've tried to sort of get started with the code below, but
it
fails at the second test.I think i need a loop in a loop, but can't figure
how to, could someone help please.
Private Sub UserForm_Initialize()
For Each Cell In Sheets("Sheet1").Range("A4:A12")
With Me.ListBox1
If Cell.Value < "" And Cell.Value < Sheets("Sheet5").Range("B5:B10")
Then
.AddItem Cell.Value
.List(.ListCount - 1, 1) = Cell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = Cell.Offset(0, 2).Value
End If
End With
Next Cell
End Sub
|