Soru Aranan değerlere göre bilgi getirmek

[sirkülasyon]

Ustam
Sayfa1' in A1 hücresinde "Ortaöğretim" B1 hücresinde "Ortaöğretim okullarında yemek yiyen Öğrenci sayısı" başlıkları var
A2 den A23' e kadar Ortaöğretim sınıfında bulunan Okul adları B2 den B23' e kadar da Ortaöğretim okullarında yemek yiyen Öğrenci sayıları var
Sayfa1' in C1 hücresinde "Temel Eğitim" D1 hücresinde "Temel Eğitim okullarında yemek yiyen Öğrenci sayısı" başlıkları var
C2 den C23' e kadar Temel Eğitim sınıfında bulunan Okul adları D2 den D23' e kadar da Temel Eğitim okullarında yemek yiyen Öğrenci sayıları var
Talebim:
Eğer Combobox1 ="Ortaöğretim" ise ComboBox2' ye hemen altında ki okul adlarının listesini boşluksuz aldırmak
Textbox1' e de Seçilen Ortaöğretim okuluna ait yemek yiyen öğrenci sayısını almak
Eğer Combobox1 ="Temel Eğitim" ise ComboBox2' ye hemen altında ki okul adlarının listesini boşluksuz aldırmak
Textbox1' e de Seçilen Temel Eğitim okuluna ait yemek yiyen öğrenci sayısını almak
Rica etsem yardımcı olabilir misiniz?

 

[veyselemre]

Dim ortaOgretim, temelEgitim

Private Sub ComboBox1_Change()
    ComboBox2.Tag = "Dur"
    ComboBox2.Clear
    ComboBox2.Tag = ""
    TextBox1.Text = ""
    
    If ComboBox1.Text = "Ortaöğretim" Then
        ComboBox2.List = ortaOgretim
    Else
        ComboBox2.List = temelEgitim
    End If
    
End Sub

Private Sub ComboBox2_Change()
    If ComboBox2.Tag = "" Then TextBox1.Text = ComboBox2.Value
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.List = Array("Ortaöğretim", "Temel Eğitim")
    With ComboBox2
        .ColumnCount = 2
        .ColumnWidths = "228;0"
        .BoundColumn = 2
    End With
    With Sheets("Sayfa1")
        ortaOgretim = .Range("A2:B" & .Cells(Rows.Count, 1).End(3).Row).Value
        temelEgitim = .Range("C2:D" & .Cells(Rows.Count, 3).End(3).Row).Value
    End With
End Sub

 

[sirkülasyon]

Veysel Abi;
Allah razı olsun. Hakkınızı helal edin. Selametle

 

[sirkülasyon]

Veysel Abi

With ComboBox2
        .ColumnCount = 2
        .ColumnWidths = "228;0"
        .BoundColumn = 2
    End With

kısmını çoğaltılmasının imkanı var mıdır?
Örnek:

With ComboBox2
        .ColumnCount = 3
        .ColumnWidths = "228;0;0"
        .BoundColumn = 3
    End With

With ComboBox2
        .ColumnCount = 4
        .ColumnWidths = "228;0;0;0"
        .BoundColumn = 4
    End With

Gibi