Snasui Excel Forum

Code: Select all

Private Sub ComboBox5_Change()
If ComboBox5 = "" Then
    ComboBox5 = vbNullString: ComboBox6.Enabled = True
Else
    Dim index As Integer
    index = ComboBox5.ListIndex
Select Case index
    Case Is = 0
   '    ComboBox6.Value = "_LEATHER"
   'Call LeatherA
   Me.ComboBox6.RowSource = "_LEATHER"
        ComboBox6.Enabled = False
    Case Is = 1
     '   ComboBox6.Value = "_FABRIC"
       Me.ComboBox6.RowSource = "_FABRIC"
        ComboBox6.Enabled = False
End Select
End If
'End If
End Sub

Code: Select all

Private Sub UserForm_Activate()
    On Error Resume Next
    Dim MODEL, Size, COLOR, Paticular, Feather As String
    MODEL = Range("Model_Id").Address                          'Cuslist Name manage
    ComboBox1.RowSource = "MODEL!" & MODEL
        Size = Range("Size_ID").Address                          'Size_ID Name manage
    ComboBox6.RowSource = "Choice!" & Choice
             Paticular = Range("_LEATHER").Address                          '_LEATHER Name manage
 ComboBox6.RowSource = "Choice!" & Paticular
      Feather = Range("_FABRIC").Address                          '_FABRIC Name manage
ComboBox6.RowSource = "Choice!" & Feather
 '    ComboBox5.AddItem "LEATHER"
 '   ComboBox5.AddItem "FABRIC"


     Me.ComboBox8.RowSource = "_Paticular"
     With ComboBox5
        .AddItem "LEATHER"
        .AddItem "FABRIC"
        End With
        With ComboBox6
     Me.ComboBox6.RowSource = "_Paticular"
     End With
     'ComboBox5.AddItem ""FABRIC", "LEATHER"
End Sub

Code: Select all

Private Sub ComboBox5_Change()
    If ComboBox5 = "" Then
        ComboBox6.Enabled = False
    Else
        Dim index As Integer
        index = ComboBox5.ListIndex
        Select Case index
            Case Is = 0
                '    ComboBox6.Value = "_LEATHER"
                'Call LeatherA
                Me.ComboBox6.RowSource = "_LEATHER"
                ComboBox6.Enabled = True
            Case Is = 1
                '   ComboBox6.Value = "_FABRIC"
                Me.ComboBox6.RowSource = "_FABRIC"
                ComboBox6.Enabled = True
        End Select
    End If
    'End If
End Sub