combobox liste çoğalması

[xemdarx]

Selamlar,
Comboboxu listeledikçe içindeki veri artıyor. Combobox'u listeden her seçtiğimde textbox1'i temizlemek istiyorum.

 

[askm]

Örnek dosya ile desteklerseniz sorunuzu çözüme çabuk ulaşırsınız. Textbox1.text="" şeklinde textbox içerisini boşaltabilirsiniz.
Comboboxa veri aldığınız kodların başında comboyu temizlerseniz liste çoğalmaz. ComboBox1.clear şeklinde. Yoksa mevcut listenin üzerine add.item ile sürekli veri eklemiş olursunuz.

 

[halilyor]

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim ComboListe As Variant
ComboListe = Benzersiz_Liste(Range("f2:f500"), True)
For i = 1 To UBound(ComboListe)
ComboBox6.AddItem ComboListe(i)
Next i
Application.ScreenUpdating = True
End Sub

Private Function Benzersiz_Liste(Aralik As Range, DuzListe As Boolean) As Variant
Dim Hucre As Range, Benzersiz As New Collection, Say As Long, Dizi() As Variant
Application.Volatile
On Error Resume Next
For Each Hucre In Aralik
If Hucre.Formula <> "" Then
Benzersiz.Add Hucre.Value, CStr(Hucre.Value)
End If
Next Hucre
Benzersiz_Liste = ""
If Benzersiz.Count > 0 Then
ReDim Dizi(1 To Benzersiz.Count)
For Say = 1 To Benzersiz.Count
Dizi(Say) = Benzersiz(Say)
Next Say
Benzersiz_Liste = Dizi
If Not DuzListe Then
Benzersiz_Liste = Application.WorksheetFunction.Transpose(Benzersiz_Liste)
End If
End If
On Error GoTo 0
End Function


Kodları çalışmanıza uyarlayın.

 

[Korhan Ayhan]

Alternatif;

http://www.excel.web.tr/f48/comboxtaki-verilerin-tekraryny-engelleme-t172541.html