benzersiz kayitlari comboboxta gostermek

[manevra]

arkadaslar benim formum üzerindeki combobox nesnesinde bir kolondaki değerlerin aynı olanlarından sadece birer tanesini gorunmesini istiyorum. yani combobox ta gorunen degerler tekrar icermesin.

bu nasıl mümkün olabilir arkadaslar?

cevap acil olursa sevinirim
biraz sıkıştım da

 

[hamitcan]

Private Sub UserForm_Initialize()
For X = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("A2:A" & X), Cells(X, 1)) = 1 Then
ComboBox1.AddItem Cells(X, 1).Value
End If
Next
End Sub

Zannedersem yukarıdaki kod işinizi görür.

 

[manevra]

teşşekürler dostum sorunumu hallettim.
bir sorum daha var zamanın varsa.

listboxuma veriler ekliyorum bir çalışma sayfasından bulup,
mesela e sütünunda arama yapıyor ve seçilen tarih ile eşit ise calisma sayfasındaki tüm satırı listboxum da listeliyorum.
ama şöyle bir sorunum var.
aynı tarihli kayıtları listelerken listbox1 deki eski listelenmis kaydin üzerine yaziyor. alt satıra bir türlü geçiremiyorum.

bunun bir yolu var midir?
listbox1.Additem yazıyorum ama alt satıra geçmiyor bir türlü.

tesekkurler simdiden...

yeni bir baslik mi acsaydim acaba?

 

[manevra]

su anki kodum şöyle:

For Each bak In Range("E1:E" & WorksheetFunction.CountA(Range("E1:E65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select
Myarray(1, 0) = Sheets("Veri").Cells(i, bak.Column - 4)
Myarray(1, 1) = Sheets("Veri").Cells(i, bak.Column - 3)
Myarray(1, 2) = Sheets("Veri").Cells(i, bak.Column - 2)
Myarray(1, 3) = Sheets("Veri").Cells(i, bak.Column - 1)
Myarray(1, 4) = Sheets("Veri").Cells(i, bak.Column)
Myarray(1, 5) = Sheets("Veri").Cells(i, bak.Column + 1)
Myarray(1, 6) = Sheets("Veri").Cells(i, bak.Column + 2)
Myarray(1, 7) = Sheets("Veri").Cells(i, bak.Column + 3)
ListBox1.List(i) = Myarray
ListBox1.AddItem
End If
i = i + 1
next

 

[manevra]

listbox1.list = Myarray olacak ilgili satır.
parantez içindeki i yok yani.

yardım edersen sevinirim.

 

[hamitcan]

örnek bir dosya gönderir misiniz ?

 

[manevra]

ornek bir dosya gonderiyorum.

 

[hamitcan]

Ben bir örnek hazırladım,umarım işinize yarar.

 

[manevra]

çok teşekkürler dostum. ellerine sağlık. son (ama ufak) bir sorum daha var :yardim:

listbox nesnesindeki columnheads ların içine nasıl o sana yolladığım ekteki başlıkları yazabilirim. mesela birinci columnhead e "sıra no"
elimde yapılmış bir ornek var ama nasil yaptigini bulamadim.

tesekkurler...

 

[NBATMAN]

Sayin Hamİtcan Merhaba,

Bu Problem İle İlgİlİ Bende Bİr Kod Ariyorum,fakat VerdİĞİnİz Kodu Kendİ Dosyama Uyguladim ÇaliŞtiramadim.
Manevra İÇİn GÖndermİŞ OlduĞunuz Örnek Dosyayi Benİm İÇİnde GÖnderİrmİsİnİz. Şİmdİden TeŞekkÜrler...