BİRLEŞİK KUTU ile ikili veri doğrulama

[designer41]

Merhabalar
Bilen için çok basittir ama ben 2 gündür çözemedim.
ikili veriyi BİRLEŞİK KUTU ile listeleme olayını bir türlü beceremiyorum ekli dosyada yapmak isteilediğimi anlattım yardımcı olabilecek kimse varmı acaba?

 

[asi_kral]

Merhabalar
Bilen için çok basittir ama ben 2 gündür çözemedim.
ikili veriyi combobox la listeleme olayını bir türlü beceremiyorum ekli dosyada yapmak istediğimi anlattım yardımcı olabilecek kimse varmı acaba?

Merhaba
Açtığınız Açılır liste değilde combobox ile çözüm buldum. Bir Commandbutton ekledim bununla Combobox1'deki listeyi güncelleyebilirsiniz.
Combobox1'den seçtiğiniz sınıf'a göre Combobox2'ye öğrencileri yazar. Combobox2'den yaptığınız seçim'e göre'de N3 hücresine Puan'ı yazıyor.
Sayfanın kod bölümüne

Option Explicit
Private Sub ComboBox1_Change()
'Konu       :   Seçilen Sınıfa Göre Liste
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long, kral As New Collection, a As Range
For asi = 3 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(asi, "A") = ComboBox1 Then
kral.Add Cells(asi, "B"), CStr(Cells(asi, "B"))
End If: Next: ComboBox2.Clear
For Each a In kral
ComboBox2.AddItem a
Next
End Sub
Private Sub ComboBox2_Change()
'Konu       :   Combobox1 ve Combobox2'den Seçilenin Puanını Bul
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long
For asi = 3 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(asi, "A") = ComboBox1 And Cells(asi, "B") = ComboBox2 Then
Range("N3") = Cells(asi, "C").Value
End If: Next
End Sub
Private Sub CommandButton1_Click()
'Konu       :   Combobox1'e Tekli Liste Ekte
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long
ComboBox1.Clear
For asi = 3 To Cells(Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.CountIf(Range("A3:A" & asi), Cells(asi, "A")) = 1 Then
ComboBox1.AddItem Cells(asi, "A")
End If: Next
End Sub

Bu kodu kopyalayıp deneyin.
Not : Sizin eklediklerinizde çalışmaz sizinkiler açılır kutu bu kod combobox'ta çalışır.
Dosyanız ekte.

 

[designer41]

Merhaba
Açtığınız Açılır liste değilde combobox ile çözüm buldum. Bir Commandbutton ekledim bununla Combobox1'deki listeyi güncelleyebilirsiniz.
Combobox1'den seçtiğiniz sınıf'a göre Combobox2'ye öğrencileri yazar. Combobox2'den yaptığınız seçim'e göre'de N3 hücresine Puan'ı yazıyor.
Sayfanın kod bölümüne

Option Explicit
Private Sub ComboBox1_Change()
'Konu       :   Seçilen Sınıfa Göre Liste
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long, kral As New Collection, a As Range
For asi = 3 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(asi, "A") = ComboBox1 Then
kral.Add Cells(asi, "B"), CStr(Cells(asi, "B"))
End If: Next: ComboBox2.Clear
For Each a In kral
ComboBox2.AddItem a
Next
End Sub
Private Sub ComboBox2_Change()
'Konu       :   Combobox1 ve Combobox2'den Seçilenin Puanını Bul
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long
For asi = 3 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(asi, "A") = ComboBox1 And Cells(asi, "B") = ComboBox2 Then
Range("N3") = Cells(asi, "C").Value
End If: Next
End Sub
Private Sub CommandButton1_Click()
'Konu       :   Combobox1'e Tekli Liste Ekte
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long
ComboBox1.Clear
For asi = 3 To Cells(Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.CountIf(Range("A3:A" & asi), Cells(asi, "A")) = 1 Then
ComboBox1.AddItem Cells(asi, "A")
End If: Next
End Sub

Bu kodu kopyalayıp deneyin.
Not : Sizin eklediklerinizde çalışmaz sizinkiler açılır kutu bu kod combobox'ta çalışır.
Dosyanız ekte.

Sayın asi_kral_1967 öncelikle cevabınız için çok teşekkür ederim.
Commandbutton olmadan liste otomatik güncellenmezmi acaba?
bide combobox değilde açılır kutu olarak yapılabilirmi acaba?

 

[asi_kral]

Sayın asi_kral_1967 öncelikle cevabınız için çok teşekkür ederim.
Commandbutton olmadan liste otomatik güncellenmezmi acaba?
bide combobox değilde açılır kutu olarak yapılabilirmi acaba?

Merhaba
Sayfa üzerinde olduğundan otomatik güncellemez.
2 Açılır kutu ile olur mu bilmem ama sanırım yardımcı sütun kullanılarak yapılabilir.
Yardımcı sütun kullanarak yapacaksanız açılır kutu ile Veri - Doğrulama - Liste Şeklinde yapabilirsiniz ve güncelleme yapmanıza gerek kalmaz.

 

[designer41]

Merhaba
Sayfa üzerinde olduğundan otomatik güncellemez.
2 Açılır kutu ile olur mu bilmem ama sanırım yardımcı sütun kullanılarak yapılabilir.
Yardımcı sütun kullanarak yapacaksanız açılır kutu ile Veri - Doğrulama - Liste Şeklinde yapabilirsiniz ve güncelleme yapmanıza gerek kalmaz.

Yardımcı sutun kullanılabilir veri doğrulama ile bildiğim kadarı ile açılır liste yapılıyor, bana açılır liste değil , ekli dosyamdaki birleşik kutu lazım. birleşik kutu ile veri doğrulama nasıl yapıldığını bilmiyorum.