Hello,
I have two different tabs with a combo box in each I fill Both Combobox's with a list when the WorkBook opens. I am trying to link both combobox's. If combo box on Tab 1 changes then also change combo box on tab 2. This is all pretty easy but when custom text is received then that's when it creates a loop between themselves and crash. Please help!!!! Thank in advance
TAB 1
TAB 2
I have two different tabs with a combo box in each I fill Both Combobox's with a list when the WorkBook opens. I am trying to link both combobox's. If combo box on Tab 1 changes then also change combo box on tab 2. This is all pretty easy but when custom text is received then that's when it creates a loop between themselves and crash. Please help!!!! Thank in advance
TAB 1
Code:
Private Sub ComboBox9_Change()
Sheet2.Range("AE4").Value = ComboBox9.Text
Sheet2.ComboBox10.Text = ComboBox9.Text
With ComboBox9
'See if the text is in the list
If .ListIndex > -1 Then
Sheet2.Range("AE5").Value = .List(.ListIndex, 1) 'Colomn 2
Else
Sheet2.Range("AE5").Value = "" 'clear out the cell becouse the text entered is Custom
End If
End With
TAB 2
Code:
Private Sub ComboBox10_Change()
Sheet2.Range("AE4").Value = ComboBox10.Text
Sheet4.ComboBox9.Text = ComboBox10.Text 'copy to AUTO tab
'See if the text is in the list
With ComboBox10
If .ListIndex > -1 Then
Sheet2.Range("AE5").Value = .List(.ListIndex, 1)
Else
Sheet2.Range("AE5").Value = "" 'clear out the cell becouse the text entered is Custom
End If
End With
End Sub