ComboBox'larda mükerrer kayıtlar görünmesin

[polis-53]

Arkadaşlar ekte gönderdiğim dosyada combobox ta mükerrer olanları tekini getirsin istiyorum.

 

[Necdet]

Merhaba,

Kodlarınız çalışıyor ama siz ComboBox1_Click() olayına kodları koymuşsunuz.
Yani önce boş bir Combobox, geliyor sonra tıklayacaksınız da kodlar öyle çalışacak.

Başka bir tetikleyiciye kodları bağlayın.

 

[EmrExcel16]

Bu şekilde mi ?
Sayfa aktif olduğunda çalışır.
Kodlar zaten gönderdiğiniz dosyada mevcuttu.

 

[polis-53]

Çok teşekkür ederim kal sağlıcakla

 

[muygun]

Merhaba;
İlave;
Mevcut kodların altına;

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
süt = Target.Column
If süt = 1 Then
Dim sat, s As Integer
ComboBox1.Clear
For sat = 1 To Cells(65536, "a").End(xlUp).Row
If Not WorksheetFunction.CountIf(Range("a1:a" & sat), Cells(sat, "a")) > 1 Then
ComboBox1.AddItem
ComboBox1.List(s, 0) = Cells(sat, "a")
s = s + 1
End If
Next sat
End If
End Sub

Şeklinde A sütununda işlem oldukça çalışan bir kod bloğu eklerseniz A sütunundaki ekleme yada silme işleminde ComboBox listesi yenilenir.
İyi çalışmalar.

 

[polis-53]

EmrExcel16 ben combobox sayfa2 de veriler sayfa 1 olacak combobox sayfa2 de çalışmıyor.

 

[byfika]

Merhabalar, combobox sayfa2, ve aylar sayfa1 olacak ve sayfa2nin kod bölümüne alttaki kodları yazarsanız ve sayfa1den sayfa2 ye geçip sayfayı aktif yaptığınızda işleminiz gerçekleşir.

Private Sub Worksheet_Activate()
Dim sat, s As Integer
ComboBox1.Clear
For sat = 1 To Sayfa1.Cells(65536, "a").End(xlUp).Row
If Not WorksheetFunction.CountIf(Sayfa1.Range("a1:a" & sat), Sayfa1.Cells(sat, "a")) > 1 Then
ComboBox1.AddItem
ComboBox1.List(s, 0) = Sayfa1.Cells(sat, "a")
s = s + 1
End If: Next
End Sub

 

[polis-53]

TEŞEKKÜR EDERİM

 

[polis-53]

Merhaba arkadaşlar combobox sayfa2 de veriler sayfa1 de bu durumda combobox a veriler nasıl gelecek.

 

[byfika]

Merhabalar, sayfa2 deki combobox için combobox in özelliklerinden rowsource a (örnek veriler sayfa1 a3 a15 arası olduğunu düşünürsek ) sayfa1!a3:a15 yazdığınızda sayfa2 deki combobox a veriler gelecektir.

 

[polis-53]

combobox excel sayfa üzerinde ise rowsource özelliği gözükmüyor userform uzerinde ise gözüküyor

 

[byfika]

Combobox üzerinde sağ klik yapın özellikler gorulecektir

 

[byfika]

Ben yanlış anladım . Veri doğrulama dan listeyi seçip sayfa1!a3:a15 i adres bölümüne yazın