Snasui Excel Forum

Code: Select all

Private Sub OptionButton1_Click()
CommandButton1.Enabled = True
ComboBox1.Clear
Sheets("DataTrain").Select
Range("AA5").Select
MyComboBox1 = ActiveCell.Value
ComboBox1.AddItem MyComboBox1
ActiveCell.Offset(1, 0).Select
    Do While Not IsEmpty(ActiveCell.Value)
        If MyComboBox1 <> ActiveCell.Value Then
            MyComboBox1 = ActiveCell.Value
            ComboBox1.AddItem MyComboBox1
        End If
            ActiveCell.Offset(1, 0).Select
    Loop
End Sub

Code: Select all

Private Sub ComboBox1_Change()
Sheets("DataTrain").Select
ComboBox2.Clear
Range("AB5").Select
    Do While Selection <> ""
        If ComboBox2 = ActiveCell And ActiveCell.Offset(0, 1) = ActiveCell.Offset(-1, 1) Then
            ComboBox3.AddItem ActiveCell.Offset(0, 1).Value
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
    End Sub

Code: Select all

Private Sub ComboBox1_Change()
    Sheets("DataTrain").Select
    ComboBox2.Clear
    Range("AB5").Select
    Do While Selection <> ""
        If ComboBox1 = CStr(ActiveCell.Offset(0, -1)) And ActiveCell.Offset(0, 2) <> ActiveCell.Offset(-1, 2) Then
            ComboBox2.AddItem ActiveCell.Offset(0, 2).Value
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub

Code: Select all

Range("AB5").Select

Code: Select all

Private Sub ComboBox1_Change()
    Sheets("DataTrain").Select
    ComboBox2.Clear
    Range("AA5").Select
    Do While Selection <> ""
        If ComboBox1 = CStr(ActiveCell) And (ActiveCell.Offset(0, 3) <> ActiveCell.Offset(-1, 3) _
            Or ActiveCell <> ActiveCell.Offset(-1, 0)) Then
            ComboBox2.AddItem ActiveCell.Offset(0, 3).Value
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub