Listboxdaki aynı veriyi silme...

[oguzka]

Arkadaş merhaba. Listbox a excel hücrelerinden okutarak veri giriyorum. Ancak listboxımda girdiğim verinin aynı olması halinde sadece 1 tane gözüksğn istiyorum. Listbox da şirket isimleri var ve ben aynı şirket isimlerinin 1 kere gözükmesini istiyorum. Nasıl yapabilirim

 

[hamitcan]

Aşağıdaki linki inceleyin.
http://www.excel.web.tr/showthread.php?t=73866&highlight=tekrars%FDz+veri

 

[oguzka]

İlginize teşekkür ederim öncelikle.. Ancak ben bu verileri bir kaç koşul sunarak hücrelerden listbox ekledim. Ve bu örneklerdeki kodları dosyama uyarlayamıyorum. Listbox a hazır eklenmiş verileri liste içinde nasıl sıralayabilirim?

 

[hamitcan]

Küçük bir dosya ekleyin.

 

[oguzka]

For j = 3 To 1000
If Sheets("PERSONEL VERİLERİ").Cells(j, 11).Value = ComboBox1.Value Then
If Sheets("PERSONEL VERİLERİ").Cells(j, 27).Value = "" Then
ListBox1.AddItem Sheets("PERSONEL VERİLERİ").Cells(j, 18).Value
End If
End If
Next j


Kod bu şekilde. Pek vba bilmiyorum. Bu kodla aynı isme sahip bi çok veri listbox a ekleniyor ve ben her isimden sadece 1 tane eklesin istiyorum. Yardımcı olabilirimisiniz?

 

[Orion1]

For j = 3 To 1000
If Sheets("PERSONEL VERİLERİ").Cells(j, 11).Value = ComboBox1.Value Then
If Sheets("PERSONEL VERİLERİ").Cells(j, 27).Value = "" Then
    If WorksheetFunction.CountIf(Sheets("PERSONEL VERİLERİ").Range( _
    Sheets("PERSONEL VERİLERİ").Cells(3, 18), Sheets("PERSONEL VERİLERİ").Cells(i, 18)), _
    Sheets("PERSONEL VERİLERİ").Cells(i, 18).Value) = 1 Then
        ListBox1.AddItem Sheets("PERSONEL VERİLERİ").Cells(j, 18).Value
    End If
End If
End If
Next j

 

[oguzka]

Abi çok teşekkür ederim....Saygılar...

 

[Orion1]

Abi çok teşekkür ederim....Saygılar...

Rica ederim.
İyi çalışmalar.