Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Use ListBox properties in This Workbook
Hi guys, Can anyone help me please. I have a small problem : I'm trying to use ListCount property of an ListBox in This Workboo object of the workbook and I get run-time error '424' Object requierd. The script is the following: Private Sub workbook_open() Dim d3 As Integer Dim d4 As Integer d3 = ListBox1.ListCount - 1 For d4 = 0 To d3 With Sheets("WERA Scorecard").Range("B35:B100") Set D = .Find(ListBox1.List(d4), LookIn:=xlValues LookAt:=xlWhole) If Not D Is Nothing Then ListBox1.Selected(d4) = True Else End If End With Next d4 End Sub I'm not a programmer so I just read help and try to figure it out bu this time I didn't manage to find the solution. I would be really happy if somebody can help me with this issue. Thanks -- cristio2 ----------------------------------------------------------------------- cristio26's Profile: http://www.excelforum.com/member.php...fo&userid=1551 View this thread: http://www.excelforum.com/showthread.php?threadid=27082 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Use ListBox properties in This Workbook
Put your code in a general module and call it from the Workbook_Open Event
Sub ProcessListbox() Dim d3 As Integer Dim d4 As Integer Sheets("WERA Scorecard").Activate d3 = ListBox1.ListCount - 1 For d4 = 0 To d3 With Sheets("WERA Scorecard").Range("B35:B100") Set D = .Find( Sheets("WERA Scorecard"). _ ListBox1.List(d4), LookIn:=xlValues, _ LookAt:=xlWhole) If Not D Is Nothing Then Sheets("WERA Scorecard").ListBox1.Selected(d4) = True End If End With Next d4 End Sub Private Sub Workbooks_Open() ProcessListBox End sub -- Regards, Tom Ogilvy "cristio26" wrote in message ... Hi guys, Can anyone help me please. I have a small problem : I'm trying to use ListCount property of an ListBox in This Workboox object of the workbook and I get run-time error '424' Object requierd. The script is the following: Private Sub workbook_open() Dim d3 As Integer Dim d4 As Integer d3 = ListBox1.ListCount - 1 For d4 = 0 To d3 With Sheets("WERA Scorecard").Range("B35:B100") Set D = .Find(ListBox1.List(d4), LookIn:=xlValues, LookAt:=xlWhole) If Not D Is Nothing Then ListBox1.Selected(d4) = True Else End If End With Next d4 End Sub I'm not a programmer so I just read help and try to figure it out but this time I didn't manage to find the solution. I would be really happy if somebody can help me with this issue. Thanks! -- cristio26 ------------------------------------------------------------------------ cristio26's Profile: http://www.excelforum.com/member.php...o&userid=15510 View this thread: http://www.excelforum.com/showthread...hreadid=270823 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
XL Workbook Properties | Excel Discussion (Misc queries) | |||
LISTBOX PROPERTIES | Excel Discussion (Misc queries) | |||
Workbook Properties | Excel Discussion (Misc queries) | |||
Listbox Properties totally blank | Excel Programming | |||
Control Toolbox ListBox Properties Blank | Excel Programming |