ben sadece sarı olalar için yaptım siz aynı  mantığı kullanarak diğerleri için yaparsınız

Private Sub ComboBox1_Change()

With Sayfa3

sonstr = .Cells(.Rows.Count, "D").End(xlUp).Row

Me.ComboBox3.Clear

For x = 2 To sonstr

    If .Range("d" & x).Value = Me.ComboBox1.Column(0) Then Me.ComboBox3.AddItem .Range("E" & x).Value

Next x



sonstr = .Cells(.Rows.Count, "A").End(xlUp).Row

Me.ComboBox4.Clear

For x = 2 To sonstr

    If .Range("A" & x).Value = Me.ComboBox1.Column(0) Then Me.ComboBox4.AddItem .Range("B" & x).Value

Next x

End With

End Sub

Private Sub UserForm_Initialize()

sonstr = Sayfa3.Cells(Sayfa3.Rows.Count, "h").End(xlUp).Row

Me.ComboBox1.List = Sayfa3.Range("g2:h" & sonstr).Value

End Sub