(13/10/2020, 00:48)feraz yazdı: Alttakide başka bir yol.Aynen Zafer Hocam ben bu işin içinden çıkamayacağım galiba. Size de zahmet olacak ama . Hakkınızı helal edin.
CtrlListNames listbox adı
RemovelstDuplicates ctrlListNames bu şekilde fonksiyon çağrılıyor.
Public Sub RemovelstDuplicates(lst As msforms.ListBox)
Dim i As Long, j As Long
With lst
For i = 0 To .ListCount - 1
For j = .ListCount - 1 To (i + 1) Step -1
If .List(j) = .List(i) Then
.RemoveItem j
End If
Next
Next
End With
End Sub
Yada en hızlısı listboxtaki verileri dictionarye alıp ordan çağırmak..
Her neyse uygun zamanda hallederiz.
Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü
Konuyu Okuyanlar: 1 Ziyaretçi