Snasui Excel Forum

Code: Select all

Private Sub cbProcess_Change()
Dim rowIndex As Integer
Dim processCode As String
Dim Dictionary As Object
Set Dictionary = CreateObject("Scripting.Dictionary")
  rowIndex = 3
 processCode = Application.WorksheetFunction.VLookup(cbProcess.Value, Sheet7.ListObjects("tbProcessName").Range, 2, False)
  Do Until IsEmpty(Sheet6.Cells(rowIndex, 2))
 If Sheet6.Cells(rowIndex, 2).Value = processCode Then
   If Not Dictionary.exists(Sheet6.Cells(rowIndex, 4).Value) Then
      Dictionary.Add Sheet6.Cells(rowIndex, 4).Value, 0
       cbPhase.AddItem Sheet6.Cells(rowIndex, 4).Value
End If
    End If
        rowIndex = rowIndex + 1
    Loop
End Sub

Code: Select all

'Other code
cbPhase.Clear
Do Until IsEmpty(Sheet6.Cells(rowIndex, 2))
    If Sheet6.Cells(rowIndex, 2).Value = processCode Then
        If Not Dictionary.exists(Sheet6.Cells(rowIndex, 4).Value) Then
            Dictionary.Add Sheet6.Cells(rowIndex, 4).Value, 0
            cbPhase.AddItem Sheet6.Cells(rowIndex, 4).Value
        End If
    End If
    rowIndex = rowIndex + 1
Loop
'Other code