Combobox a benzersiz ve alfabetik veri aldırma

[canercamalan]

Merhaba,
73 bine yaklaşan ve artarak devam eden bir datadan Combobox'a Sayfa1 B:B sütunundan verileri aldırmak istiyorum, ama benzersiz kayıtları ve alfabetik sıralama yaparak yaptırılabilirmi?
aynı kayıtlardan sadece birinin adı gözüksün ve sıralı olsun gibi.

Teşekkürler

 

[Orion1]

Verilerinizin yedeğini almayı unutmayın.
Buyurun.

Dim z As Object, i As Long, liste(), sonsat As Long
ComboBox1.Clear
Application.ScreenUpdating = False
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
Range("B1:B" & sonsat).Sort Range("B1")
liste = Range("B1:B" & sonsat).Value
Set z = CreateObject("scripting.dictionary")
For i = 1 To UBound(liste)
    If Not z.exists(liste(i, 1)) Then
        z.Add liste(i, 1), Nothing
    End If
Next i
Erase liste
ComboBox1.List = Application.Transpose(z.keys)
Set z = Nothing
Application.ScreenUpdating = True

 

[canercamalan]

Öncelikle teşekkürler yalnız nedense hata alıyorum
Compile Error
İnvalid Outside Procedure diyor
2.satırdaki ComboBox1 i seçiyor, orayı devre dışı bırakınca bu sefer aynı hata ile bir alt satırdaki False yazan yeri seçiyor
excel versiyon farklılıklarından kaynaklı olabilirmi yoksa sorun başka bir durummudur?

 

[Orion1]

Öncelikle teşekkürler yalnız nedense hata alıyorum
Compile Error
İnvalid Outside Procedure diyor
2.satırdaki ComboBox1 i seçiyor, orayı devre dışı bırakınca bu sefer aynı hata ile bir alt satırdaki False yazan yeri seçiyor
excel versiyon farklılıklarından kaynaklı olabilirmi yoksa sorun başka bir durummudur?

Dosyanızdan az veri kalacak gibi verilerinizi silip buraya link verin bakayım.

 

[canercamalan]

Dosyanızdan az veri kalacak gibi verilerinizi silip buraya link verin bakayım.

https://yadi.sk/i/jRrXK1BTjQndy
Örnek dosya yaptım yeni dosyada açıp denedim aynı hatayı aldım

 

[Orion1]

Kodları prosedür içine yazmamışsınız.
Kodları oradan silip , userform_initialize olayı içine yazmalısınız.

 

[canercamalan]

Teşekkürler bende diyorum bir eksiklik var bu işte hem acemilik hem yorgunluk anca
Çok teşekkür ettim.

 

[Orion1]

Teşekkürler bende diyorum bir eksiklik var bu işte hem acemilik hem yorgunluk anca
Çok teşekkür ettim.

Rica ederim.
İyi çalışmalar.

 

[canercamalan]

Tekrar selam farketmemişim ama bu şekilde B:B sütunu alfabetik sıralamaya uğruyor, yani verilerin yerleri değişiyor bu veriler birden çok rakamlarla ilişki halinde, yani liste sağına doğruda devam eden bir liste, bu sıralama işlemini sayfa içeriğine dokunmadan sadece combobox ta yaptıramazmıyız?

 

[Orion1]

Tekrar selam farketmemişim ama bu şekilde B:B sütunu alfabetik sıralamaya uğruyor, yani verilerin yerleri değişiyor bu veriler birden çok rakamlarla ilişki halinde, yani liste sağına doğruda devam eden bir liste, bu sıralama işlemini sayfa içeriğine dokunmadan sadece combobox ta yaptıramazmıyız?

Hızda biraz yavaşlama olabilir.
Kodlarınız aşağıdadır.

Dim z As Object, i As Long, liste(), sonsat As Long
Dim x As Variant, j As Long
ComboBox1.Clear
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
liste = Range("B1:B" & sonsat).Value
For i = LBound(liste) To UBound(liste) - 1
    For j = i + 1 To UBound(liste)
        If StrComp(liste(i, 1), liste(j, 1), vbTextCompare) = 1 Then
            x = liste(j, 1)
            liste(j, 1) = liste(i, 1)
            liste(i, 1) = x
        End If
    Next j
Next i
i = 0
Set z = CreateObject("scripting.dictionary")
For i = 1 To UBound(liste)
    If Not z.exists(liste(i, 1)) Then
        z.Add liste(i, 1), Nothing
    End If
Next i
Erase liste
ComboBox1.List = Application.Transpose(z.keys)
Set z = Nothing

 

[canercamalan]

evet böylede hiç kullanışlı olmuyor çok ağırlaştı, ben en iyisi benzersiz kayıtları bir yere toplayım ordan listeleme yaptırayım, herhalde en kolay ve hızlı yöntem böyle olacak.Hem diğer verileri bozmamış olurum.

 

[Orion1]

evet böylede hiç kullanışlı olmuyor çok ağırlaştı, ben en iyisi benzersiz kayıtları bir yere toplayım ordan listeleme yaptırayım, herhalde en kolay ve hızlı yöntem böyle olacak.Hem diğer verileri bozmamış olurum.

Aslında diğer verilerle birlikte B sütununu sıralayabiliriz.Veriler hangi sütun aralığında siz onu söyleyin,yapayım.

 

[canercamalan]

Aslında diğer verilerle birlikte B sütununu sıralayabiliriz.Veriler hangi sütun aralığında siz onu söyleyin,yapayım.

Sağol, ama orayı çokta bozmak istemiyorum tarih sırasına göre ve düzenli bir görünümü var ben diğer türlü deneyim takılırsam destek isterim yardımın için teşekkür ederim.

 

[Orion1]

Sağol, ama orayı çokta bozmak istemiyorum tarih sırasına göre ve düzenli bir görünümü var ben diğer türlü deneyim takılırsam destek isterim yardımın için teşekkür ederim.

Tamam.
Kolay gelsin.

 

[Korhan Ayhan]

Ekteki dosyayı inceleyiniz.

Link

 

[canercamalan]

Ekteki dosyayı inceleyiniz.

Link

Teşekkürler Koray bey sağlıklı çalışıyor sağolun.