cancel
Showing results for 
Search instead for 
Did you mean: 
cancel
Showing results for 
Search instead for 
Did you mean: 

Community Tip - You can Bookmark boards, posts or articles that you'd like to access again easily! X

Dynamically Filled List Boxes Error

fogartyjosiah
2-Explorer

Dynamically Filled List Boxes Error

Hello,

 

I'm working on a sheet which should update the options in a second (and third) list-boxes based on the selection of the first and second. (ie. selection a type of steel elements, the second list populates the options for steel grade depending of the element type selected).

 

The bug is that the later boxes don't update until they're clicked on. I want the lists to update automatically once the previous selections are completed. 

 

I'm fairly new to the control script so I think the issue likely lies in my sequence. 

 

Any help?

ACCEPTED SOLUTION

Accepted Solutions

There is a simple script that you can use to perform this function.  Put this script in the "script" section of the dynamic listbox.  Put the list you want to use as input in the input section of this listbox.

Dim OldList()
ReDim OldList(0)
Dim OnLoad
OnLoad = 1

 

Rem Initialize List Box
Rem ListBox.ResetContent()

Rem Add Strings here as needed

 

Sub ListBoxEvent_Start()
  sel = ListBox.CurSel
  ListBox.CurSel = sel
End Sub

 

Sub ListBoxEvent_Exec(Inputs,Outputs)
  sel = ListBox.CurSel
  If sel < 0 Then
    sel = 0
  End If
  ListBox.CurSel = sel

 

  SelectionList = Inputs(0).Value
  If ListHasChanged(SelectionList,OldList) Then
    ListBox.ResetContent()
    ReDim OldList(UBound(SelectionList))
    For i = 0 to UBound(SelectionList)
      OldList(i) = SelectionList(i)
      ListBox.AddString(SelectionList(i))
    Next
  End If
  If OnLoad Then
    ListBox.CurSel = 0
    OnLoad = 0
  End If
  Outputs(0).Value = ListBox.GetText(sel)
End Sub

 

Sub ListBox_SelChanged()
  ListBox.Recalculate()
End Sub

 

Sub ListBox_DblClick()
  ListBox.Recalculate()
End Sub

 

Function ListHasChanged(List1, List2)
  ListHasChanged = 0
  If UBound(List1) <> UBound(List2) Then
    ListHasChanged = 1
    Exit Function
  End If
  For i = 0 To UBound(List1)
    If List1(i) <> List2(i) Then
      ListHasChanged = 1
      Exit Function
    End If
  Next
End Function

View solution in original post

1 REPLY 1

There is a simple script that you can use to perform this function.  Put this script in the "script" section of the dynamic listbox.  Put the list you want to use as input in the input section of this listbox.

Dim OldList()
ReDim OldList(0)
Dim OnLoad
OnLoad = 1

 

Rem Initialize List Box
Rem ListBox.ResetContent()

Rem Add Strings here as needed

 

Sub ListBoxEvent_Start()
  sel = ListBox.CurSel
  ListBox.CurSel = sel
End Sub

 

Sub ListBoxEvent_Exec(Inputs,Outputs)
  sel = ListBox.CurSel
  If sel < 0 Then
    sel = 0
  End If
  ListBox.CurSel = sel

 

  SelectionList = Inputs(0).Value
  If ListHasChanged(SelectionList,OldList) Then
    ListBox.ResetContent()
    ReDim OldList(UBound(SelectionList))
    For i = 0 to UBound(SelectionList)
      OldList(i) = SelectionList(i)
      ListBox.AddString(SelectionList(i))
    Next
  End If
  If OnLoad Then
    ListBox.CurSel = 0
    OnLoad = 0
  End If
  Outputs(0).Value = ListBox.GetText(sel)
End Sub

 

Sub ListBox_SelChanged()
  ListBox.Recalculate()
End Sub

 

Sub ListBox_DblClick()
  ListBox.Recalculate()
End Sub

 

Function ListHasChanged(List1, List2)
  ListHasChanged = 0
  If UBound(List1) <> UBound(List2) Then
    ListHasChanged = 1
    Exit Function
  End If
  For i = 0 To UBound(List1)
    If List1(i) <> List2(i) Then
      ListHasChanged = 1
      Exit Function
    End If
  Next
End Function

Announcements

Top Tags