mükerrer girilmiş verileri listbox ile listelemek

[cem yılmaz]

Merhabalar

sütunlar halinde girilmiş olan yaklaşık 40000 adet olan verilerimin içinde çift olanlarının listbox içinde görüntülemek istiyorum.Mesela a sütünundaki çift olarak girilmiş veriler userform üzerindeki listbox içinde görüntülemek istiyorum.yardımcı olurmusunuz.?

 

[halit3]

aşağıdaki mesajda düzeltildi

 

[fedeal]

Private Sub CommandButton1_Click()
ListBox1.Clear
Set s1 = Sheets("sayfa1")
sütun = ComboBox1.Text
f = s1.Cells(65536, sütun).End(xlUp).Row
For a = f To 1 Step -1
If WorksheetFunction.CountIf(Range(sütun & "1:" & sütun & a), Cells(a, sütun)) > 1 Then
ListBox1.AddItem s1.Cells(a, sütun).Value
End If
Next
End Sub

Halit bey benden hızlı benimkiside altarnatif olsun,saygılar

 

[halit3]

sayın fedeal benim kod doğru düzeldi

 

[fedeal]

sayın fedail senin kod iyi benim kodta sıkıntı var doğru veri gelmiyor

beninkindede mükerrer birden fazlayasa hepsini yazıyor düzeltemedim.

 

[halit3]

aşağıdaki mesajda düzeltildi

 

[cem yılmaz]

Yardımlarınız için teşekkür ederim arkadaşlar. Yalnız şöyle bir şey var. Ya ben yapamadım yada kod çalışmıyor. Sn halit3 bey'in dediği 2. command butonu ekledim fakat listeye alınan verilerde küçükten büyüğe doğru sıralama yapmıyor.Aslında birde şöyle yapılabilirmi combobox'u iptal edip sadece sayfada ne kadar çift veri varsa listboxta göster diye yapabilirmiyiz.Her iki türlüde çok işime yarayacak rica etsem bu şekildede yapabilirmiyiz?

 

[halit3]

aşağıdaki mesajda düzeltilmiştir.

 

[cem yılmaz]

Teşekkür ederim. Ekli dosyanızı inceledim.Herşey tam olarak işliyor fakat 1 yerde düzeltme yapılması gerekiyor. commandbutton3 'e basıldığı zaman sayfadaki tüm çift yazılmış verileri buluyor fakat listboxa kaç adet çift varsa onuda alıyor. mesela "35" sayısından 3 adet yazılmışsa 3 adet 35 'ide listboxa alıyor. 35 çiftse 1 tanesini alsın 3'ünüde almassın.
Emeğinize ve gösterdiğiniz ilgiye teşekkür ederim.

 

[halit3]

commandbutton4 düğmesine tıkladığır vakin istediğin gibi oluyor baya zor oldu kod kendisi başka bir sayfa açıyor mükerrerleri buluyor ve açtığı sayfayı siliyor

 

[veyselemre]

commandbutton3 'e basıldığı zaman sayfadaki tüm çift yazılmış verileri buluyor fakat listboxa kaç adet çift varsa onuda alıyor. mesela "35" sayısından 3 adet yazılmışsa 3 adet 35 'ide listboxa alıyor. 35 çiftse 1 tanesini alsın 3'ünüde almassın..

Aşağıdaki kodu da kullanabilirsiniz.

    With CreateObject("scripting.dictionary")
        For Each huc In ActiveSheet.UsedRange.Value
            If huc <> Empty Then
                If Not .Exists(huc) Then
                    .Add huc, 1
                Else
                    say = .Item(huc)
                    If say = 1 Then ListBox1.AddItem huc
                    .Item(huc) = say + 1
                End If
            End If
        Next
    End With

 

[halit3]

sayın veyselemre çok hoş olmuş iyi çalışmalar

 

[cem yılmaz]

çalışmalarından dolayı bütün emeği geçen herkese'e çok teşekkür ederim