Combobox1 den Seçilen Değere Göre Combobox2 ye Belirlenen Aralığı Alması

[ahmed_ummu]

Merhaba arkadalar.

Aşağıdaki kod ile Combobox1 den seçtiğim veriye göre Combobox2 ye "PARAMETRELER" sayfasından belirlediğim aralıktaki verileri aldırmak istiyorum. Bu haliyle olmuyor. Yardımcı olursanız sevinirim.

Sheets("PARAMETRELER).Select
Select Case ComboBox1.Value = "EĞİTİM ÖĞRETİM SINIFI"
Case Is = ComboBox2.RowSource = "PARAMETRELER!ar1:ar" & Range("ar65000").End(xlUp).Row

Select Case ComboBox1.Value = "GENEL İDARİ HİZMETLER SINIFI"
Case Is = ComboBox2.RowSource = "PARAMETRELER!ao1:ao" & Range("ao65000").End(xlUp).Row

Select Case ComboBox1.Value = "YARDIMCI HİZMETLER SINIFI"
Case Is = ComboBox2.RowSource = "PARAMETRELER!au1:au" & Range("au65000").End(xlUp).Row
End Select

 

[ÖmerFaruk]

Sheets("PARAMETRELER).Select
Select Case ComboBox1.Value
    Case "EĞİTİM ÖĞRETİM SINIFI"
        ComboBox2.RowSource = "PARAMETRELER!ar1:ar" & Range("ar65000").End(xlUp).Row
    Case "GENEL İDARİ HİZMETLER SINIFI"
        ComboBox2.RowSource = "PARAMETRELER!ao1:ao" & Range("ao65000").End(xlUp).Row
    Case "YARDIMCI HİZMETLER SINIFI"
        ComboBox2.RowSource = "PARAMETRELER!au1:au" & Range("au65000").End(xlUp).Row
End Select

 

[ahmed_ummu]

Sheets("PARAMETRELER).Select
Select Case ComboBox1.Value
    Case "EĞİTİM ÖĞRETİM SINIFI"
        ComboBox2.RowSource = "PARAMETRELER!ar1:ar" & Range("ar65000").End(xlUp).Row
    Case "GENEL İDARİ HİZMETLER SINIFI"
        ComboBox2.RowSource = "PARAMETRELER!ao1:ao" & Range("ao65000").End(xlUp).Row
    Case "YARDIMCI HİZMETLER SINIFI"
        ComboBox2.RowSource = "PARAMETRELER!au1:au" & Range("au65000").End(xlUp).Row
End Select

Çok teşekkürler ÖmerFaruk bey.