Status: Solved
Priority: Medium
Security: Public
Views: 372
Last Modified: 2013-01-01

Nested For Loops to Look at 2 ListBoxs in VBA UserForm

Hi All

Happy New Year. I'm attempting to compare items from one listbox with those in another listbox (both on the same userform).

I appear to be using the wrong approach because ListBoxA stops passing values when I introduce a nested ForLoop to look at ListBoxB. Code as follows:

For i = 0 To myForm.ListBoxA.ListCount - 1
  myForm.ListBoxA.ListIndex = i
  AItem = myForm.ListBoxA.Value
  MsgBox ("List A: " & AItem)
    
'    For j = 0 To myForm.ListBoxB.ListCount - 1
'    Next j
Next i

Open in new window

As soon as I uncomment the inner For-Next the MsgBox will not display AItem

This is most alarming!

Cheers, S

DrTribos

Asked: 2012-12-31

Advertise Here

Microsoft Word

3 Solutions

LVL 29

IrogSintaCommented: 2012-12-31

You need to use ItemData property.

For i = 0 To myForm.ListBoxA.ListCount - 1
  AItem = myForm.ListBoxA.Itemdata(i)
  MsgBox ("List A: " & AItem)
    
'    For j = 0 To myForm.ListBoxB.ListCount - 1
'    Next j
Next i

Open in new window

LVL 15

DrTribosAuthor Commented: 2012-12-31

Thanks for your reply.... I get an error:

Compile Error:
Method or data member not found

I tried changing the i to a 1 for testing purposes (there are 3 items in my list so this should have worked... I have not uncommented the other code.

Cheers,

LVL 15

DrTribosAuthor Commented: 2012-12-31

Do I need to reDim AItem? Currently string, also tried DataObject... really I'm just guessing :-(

LVL 29

IrogSintaCommented: 2012-12-31

Sorry, I just noticed you're doing this in MS Word. I assumed you were in Access. Can you upload a copy of this document? Just remove any private information first.

LVL 15

DrTribosAuthor Commented: 2012-12-31

Will clean for upload. The other thing I noticed is that if I click in the listbox before running my macro it works perfectly. BUT if I don't click (which would be easily anticipated for this application) it does not work... is there a way to give focus to the list - that might help too...

BTW sorry for reply lag... for some reason my EE emails are not popping up :-(

Thanks

LVL 77

GrahamSkanRetiredCommented: 2013-01-01

Steve,
There seems to be a bug, but it isn't anything to do with the inner loop, at least on my system, where it happens on alternate runs. It fails; but stop VB and restart, and then it works.
IrogSinta has the right idea, but you need to use the List property

Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim AItem As String

For i = 0 To myForm.ListBoxA.ListCount - 1
  AItem = myForm.ListBoxA.List(i)
  MsgBox ("List A: " & AItem)
    
    'For j = 0 To myForm.ListBoxB.ListCount - 1
    'Next j
Next i
End Sub

Open in new window

LVL 15

DrTribosAuthor Commented: 2013-01-01

Graham - works a treat, thanks.

LVL 77

GrahamSkanRetiredCommented: 2013-01-01

That's good news.
Incidentally, you could still use the .Value property by 'clicking' the listbox programatically.

Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim AItem As String

For i = 0 To myForm.ListBoxA.ListCount - 1
    myForm.ListBoxA.ListIndex = i
    myForm.ListBoxA.SetFocus
    AItem = myForm.ListBoxA.Value
    MsgBox ("List A: " & AItem)
    
    'For j = 0 To myForm.ListBoxB.ListCount - 1
    'Next j
Next i
End Sub

Open in new window

LVL 15

DrTribosAuthor Commented: 2013-01-01

ahhh.... SetFocus is what I was looking for but did not know what to search for. Thanks.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Nested For Loops to Look at 2 ListBoxs in VBA UserForm

Join & Write a Comment Already a member? Login.

Featured Post