ComBox_Change Olayına göre RoWSource sorunu

[bistrobellman]

Arkadaşlar Dosya Ekte..

ComboBox2' yi YURTICI seçin diğer 2 ComboBox ın RowSource u YURTICI sayfasına göre güncelleniyor...
Ancak ComboBox2 ' yi 2.SINIF SEÇİN...ComboBox8 de tekrarlamalar oluyor.neden acaba? kod şu şekilde: Yani Doğru Yere CombOBox8.rowSource = "" komutunu eklemek lazım..Ama nereye.bir yerlerde bir hata var ..kodlar ve dosya ekte...bir denermisiniz?

Private Sub ComboBox2_Change()

If ComboBox2.Value = "YURTICI" Then

ComboBox8.RowSource = ""
For w = 2 To Sheets("YURTICI").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Worksheets("YURTICI").Range("C2:C" & w), Sheets("YURTICI").Cells(w, 3)) = 1 Then ComboBox8.AddItem Sheets("YURTICI").Cells(w, 3).Value
Next

ComboBox8.List = ListSort(ComboBox8.List)
ComboBox9.RowSource = ""
For a = 2 To Sheets("YURTICI").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Worksheets("YURTICI").Range("B2:B" & a), Sheets("YURTICI").Cells(a, 2)) = 1 Then ComboBox9.AddItem Sheets("YURTICI").Cells(a, 2).Value
Next

ComboBox9.List = ListSort(ComboBox9.List)
Exit Sub
ElseIf ComboBox2.Value = "2.SINIF" Then
ComboBox8.RowSource = ""

For l = 2 To Sheets("2.SINIF").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Worksheets("2.SINIF").Range("C2:C" & l), Sheets("2.SINIF").Cells(l, 3)) = 1 Then ComboBox8.AddItem Sheets("2.SINIF").Cells(l, 3).Value
Next
ComboBox8.List = ListSort(ComboBox8.List)
ComboBox9.RowSource = ""
For n = 2 To Sheets("2.SINIF").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Worksheets("2.SINIF").Range("B2:B" & n), Sheets("2.SINIF").Cells(n, 2)) = 1 Then ComboBox9.AddItem Sheets("2.SINIF").Cells(n, 2).Value
Next
ComboBox9.List = ListSort(ComboBox9.List)
End If
End Sub

 

[danersin]

ComboBox8.RowSource = "" yerine combobox8.clear

ve
combobox9.rowsource="" yerine combobox9.clear

yazıp denermisiniz. yerleri doğru gözüküyor.

 

[bistrobellman]

teşekkür ederim...