Printable View
i have created an excel file.i need to check if the value of one the cell value and if true display other cell values in a listbox.all i m getting is a blank listbox.
For i = 2 To i = 100
If (xlsheet.Range("2,i").Value = ("GAME")) Then
a = (xlsheet.Range("1,i").Value)
List1.AddItem (a)
End If
Next i
help needed
Check first if the list box you have inserted is an activeX or from excel form menu. The later can only fetch data by setting one of its property to a range of cells.
Another thing to check is the text comparision -- if you dont have Option Compare Text at the top of the module, a "GAME" would be different from a "Game"