C
CG Rosén
Good day Group,
Have following problem. By the code below I try to add all items of range
A1:A10 to
a Listbox. It works OK but the first added item will be the one of cell "A2"
not of cell "A1"
which appears in the bottom of theListbox.
Grateful for some hints.
CG Rosen
----------------------------------------------------------------------
With Sheets("Sheet1").Range("A1:A10")
Set j = .Find("*", _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows)
If Not j Is Nothing Then
firstAddress = j.Address
Do
r = j.Row
Item1 = Sheets("Sheet1").Cells(r, 1)
Item2 = Sheets("Sheet1").Cells(r, 2)
UserForm1.ListBox1.AddItem Item1
UserForm1.ListBox1.List(ListBox1.ListCount - 1, 1) = Item2
Set j = .FindNext(j)
Loop While Not j Is Nothing And j.Address <> firstAddress
End If
End With
Have following problem. By the code below I try to add all items of range
A1:A10 to
a Listbox. It works OK but the first added item will be the one of cell "A2"
not of cell "A1"
which appears in the bottom of theListbox.
Grateful for some hints.
CG Rosen
----------------------------------------------------------------------
With Sheets("Sheet1").Range("A1:A10")
Set j = .Find("*", _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows)
If Not j Is Nothing Then
firstAddress = j.Address
Do
r = j.Row
Item1 = Sheets("Sheet1").Cells(r, 1)
Item2 = Sheets("Sheet1").Cells(r, 2)
UserForm1.ListBox1.AddItem Item1
UserForm1.ListBox1.List(ListBox1.ListCount - 1, 1) = Item2
Set j = .FindNext(j)
Loop While Not j Is Nothing And j.Address <> firstAddress
End If
End With