COMBOBOX ROWSOURCE MÜKERRER OLAN KAYITLARI BİR SEFER AL

[class37]

Merhaba
ComboBoxa Veri alırken sütunda aynı değerden olanları sadece bir sefer alabilirmiyiz.(Örneğin A2=aa A3=ab A4=aa COmboBox ta aa ve ab olarak)İyiçalışmalar.

 

[Kemal Demir]

[vb:1:8c0fcc54d2]For b = 2 To Sheets("veri").Cells(65536, 5).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("veri").Range("e2:e" & b), Sheets("veri").Cells(b, 5)) = 1 Then
ComboBox1.AddItem Sheets("veri").Cells(b, 5).Value
End If
Next[/vb:1:8c0fcc54d2]
Yukarıdaki bilgiler Veri Sheet'i ve e kolonu için geçerlidir

Kendi Bilgilerinize Göre Değiştiriniz

Umarım İşinizi görür

 

[Ali]

Eki inceleyin. İyi çalışmalar

 

[class37]

Merhabalar
Sayın Rakkas ve fructoce teşekkürler.İyiçalışmalar.

 

[hbasbay]

bu combobox içerisindeki mükerrrer kayıt işini ben yapamadım.nasıl yapacağımı da bulamadım.yapmak istediğim sayfa2 içerisindeki combobox'a mükerrer kayıt gelmesin ve combo içerisinde kayıdı seçip işlem yaptıktan sonra combodan silsin.yardımcı olabileceklere şimdiden teşekkürler.

 

[hamitcan]

Sayfayı aktif ettiğinizde combo içine isimler yüklenecektir. Ve düğmeye bastığınızda seçtiğiniz isim combodan silinecektir.

Private Sub CommandButton1_Click()
Sayfa1.[A1:H5000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sayfa2.[B3:B4], _
CopyToRange:=Sayfa2.[C8:J8], _
Unique:=False

Sayfa3.[c4] = Sayfa2.[c6]
Sayfa3.[d4] = Sayfa2.[d6]
Sayfa3.[e4] = Sayfa2.[e6]
Sayfa3.[f4] = Sayfa2.[f6]
Sayfa3.[g4] = Sayfa2.[g6]
Sayfa3.[h4] = Sayfa2.[h6]
For t = 1 To Application.CountA(Sayfa1.Columns(1)) + 1
If [b4] = Sayfa1.Cells(t, 1) Then Sayfa1.Cells(t, "I") = "x"
Next
Worksheet_activate
End Sub

Private Sub Worksheet_activate()
ComboBox1.Clear
For a = 2 To Application.CountA(Sayfa1.Columns(1)) + 1
If WorksheetFunction.CountIf(Sayfa1.Range("A2:A" & a), Sayfa1.Cells(a, 1)) = 1 And Sayfa1.Cells(a, "I") <> "x" Then
ComboBox1.AddItem Sayfa1.Cells(a, 1).Value
End If
Next
End Sub

 

[hbasbay]

sayın hamitcan

çok teşekkür ederim.yapmak isteyipte yapamadığım bir mesele idi.çok çok sağolun.