- Katılım
- 4 Ekim 2004
- Mesajlar
- 155
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
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