Soru combobox veri doğrulama

[sirkülasyon]

Private Sub ComboBox2_Change()
Dim DİZİC As New Collection, HÜCRE As Range, VERİ As Variant
On Error Resume Next
For Each HÜCRE In Range("E2:E" & Range("E65536").End(3).Row)
If HÜCRE.Value = ComboBox1 And CStr(HÜCRE.Offset(0, 1).Value) = ComboBox2 Then
DİZİC.Add HÜCRE.Offset(0, 2).Value, CStr(HÜCRE.Offset(0, 2).Value)
End If
Next
On Error GoTo 0
For Each VERİ In DİZİC
Next
End Sub

Private Sub UserForm_Initialize()
On Error Resume Next
ComboBox1.AddItem "Temel Eğitim"
ComboBox1.AddItem "Orta öğretim"
ComboBox1.Value = "Seçim Yapınız"
Dim DİZİA As New Collection, HÜCRE As Range, VERİ As Variant
For Each HÜCRE In Range("E2:E" & Range("E65536").End(3).Row)
DİZİA.Add HÜCRE.Value, CStr(HÜCRE.Value)
Next
On Error GoTo 0
For Each VERİ In DİZİA
ComboBox2.AddItem VERİ
Next
End Sub


Combobox1 de Temel Eğitim seçtiğim zaman "E2:E15 aralığında ki okul adları"
Combobox1 de ORtaöğretim seçtiğim zaman "E16:E24 aralığında ki okul adları"
gelmesini istiyorum ama. Yukarıdaki kod da E2:E24 aralığında ki hepsi geliyor.

Yardımcı olabilir misiniz?