Loop through Listbox and select item if found

[sharky12345]

I have a multi-select Listbox on a userform and I am trying to select an item using VBA if the value of a textbox is specific.

This is what I have but I keep getting an error that the control source could not be set;

For i = 1 To 12

If CheckFrm("TextA" & i).Value = "Issues found" Or CheckFrm("TextA" & i).Value = "Not checked" Or CheckFrm("TextA" & i).Value = "Out of service" Then
ListBoxCells.Selected("A" & i) = True
End If

For info, the Listbox is populated when the userform loads like this;

With ListBoxCells

For i = 1 To 12
.AddItem "A" & i
Next i

For i = 13 To 24
.AddItem "B" & i
Next i

For i = 25 To 36
.AddItem "C" & i
Next i


End With

Can someone please put me out of my misery?

 

[sharky12345]

*bump*

 

[sharky12345]

I have found what I thought was a solution but the problem is that it's adding each found item twice to the next Listbox if anyone can assist?

For x = 0 To ListBoxCells.ListCount - 1
If ListBoxCells.Selected(x) = True Then
With ListBoxCells2
.AddItem ListBoxCells.List(x)
End With
End If
Next x

For x = 0 To ListBoxCells.ListCount - 1
If ListBoxCells.Selected(x) = False Then
With ListBoxCells3
.AddItem ListBoxCells.List(x)
End With
End If
Next x

 

[GWteB]

The selected property of a Listbox control has the appearance (in memory) of an one dimensional array. The members of this array can only be accessed by means of a numeric index value. Since ("A" & i) is by definition alphanumeric due to the letter A, this will result in an error.

 

[GWteB]

From your code alone I cannot determine exactly what you want to achieve.