Private Sub ComboBox1_Change()
ListBox1.RowSource = ""
ComboBox2.Clear
ComboBox3.Clear
TextBox1 = ""
deg = ComboBox1
If ComboBox1 = "" Then Exit Sub
If IsNumeric(ComboBox1) = True Then deg = CLng(ComboBox1)
ilk = WorksheetFunction.Match(deg, s1.[a:a], 0)
son = WorksheetFunction.CountIf(s1.[a:a], ComboBox1) + ilk - 1
adr = "a" & ilk & ":L" & son
ListBox1.RowSource = "ARAÇ_MALZEME_DATA!" & adr
For a = ilk To son
If WorksheetFunction.CountIf(Range("c" & ilk & ":c" & a), s1.Cells(a, "c")) = 1 Then ComboBox2.AddItem s1.Cells(a, "c")
If WorksheetFunction.CountIf(Range("d" & ilk & ":d" & a), s1.Cells(a, "d")) = 1 Then ComboBox3.AddItem s1.Cells(a, "d")
Next
sat = s1.[a1:a65536].Find(ComboBox1).Row
TextBox1 = s1.Cells(sat, "b")
End Sub