[ÇÖZÜLDÜ] Mükerrer kayıtları comboboxa sıralı olarak aktarma hk

[Fenomen]

Herkese iyi çalışmalar dilerim
Öğrenmek istediğim combo boxa item eklerken karışık değerleri sıralı olrak eklemek ama hücrelere müdahale etmemek ekteki örneğimde daha iyi açıkladığımı tamin ediyorum herkese şimdiden teşekkür ederim

 

[meslan]

Sn. Fenomen dosyanız ektedir. Kolay gelsin.

 

[Orion1]

Dosyanız ekte.

 

[Fenomen]

Sn melsan
Tam istadiğim gibi olmuş çok teşekkür ederim sizden bir ricam olacak yaptığınız makronun içinde ne neişe yarıyr kısa açıklarsanız sevinirim

Sn. Evren bey
sizin örneğinizde 2. ve 3. combo boxlarda mükerrer kayıtlar var onlar olmasa tam istediğim gibi olacak sizde mükerrer kayıt yapmamasını sağlayıp kısca makroyu açıklayabilirseniz hem benim hem de diğer arkadaşların işine daha çok yarayacağı inancındayım

her ikinizin de emeğine sağlık teşekkür ederim

 

[hsayar]

sn Evren Gizlen vbmenu_register("postmenu_313012", true); aşağıdaki fonksiyonu 0 dan Z ye türkçe karakterlere uyumlu olarak revize edebilirseniz çok makbule geçecek.

Private Function Sirala(Liste As Variant)
Dim i As Integer, j As Integer, x As Variant
    For i = LBound(Liste) To UBound(Liste) - 1
        For j = i + 1 To UBound(Liste)
            If Liste(i, 0) > Liste(j, 0) Then
'            If StrComp(Liste(i, 0), Liste(j, 0), vbTextCompare) = 1 Then
                x = Liste(j, 0)
                Liste(j, 0) = Liste(i, 0)
                Liste(i, 0) = x
            End If
        Next j
    Next i
    Sirala = Liste
End Function

hayret bir şey sormadan evvel denedim çalışmadı şimdi çalıştı hayret bir olay

Private Function Sirala(Liste As Variant)
Dim i As Integer, j As Integer, x As Variant
    For i = LBound(Liste) To UBound(Liste) - 1
        For j = i + 1 To UBound(Liste)
[COLOR=red]'            If Liste(i, 0) > Liste(j, 0) Then[/COLOR]
            [COLOR=green]If StrComp(Liste(i, 0), Liste(j, 0), vbTextCompare) = 1 Then[/COLOR]
                x = Liste(j, 0)
                Liste(j, 0) = Liste(i, 0)
                Liste(i, 0) = x
            End If
        Next j
    Next i
    Sirala = Liste
End Function

kırmızı ve yeşil satır arasındaki Türkçe sıralmayı dikkate almamaktan başka fark varmıdır?
kırmızı satır kullanıldığında (0,...,9,ABCDEFGHIJ........ZÇİ...
yeşil satır kullanıldığında (0,...,9,ABCÇDEFGHIİJ........Z)

 

[Orion1]

sn Evren Gizlen vbmenu_register("postmenu_313012", true); aşağıdaki fonksiyonu 0 dan Z ye türkçe karakterlere uyumlu olarak revize edebilirseniz çok makbule geçecek.

Private Function Sirala(Liste As Variant)
Dim i As Integer, j As Integer, x As Variant
    For i = LBound(Liste) To UBound(Liste) - 1
        For j = i + 1 To UBound(Liste)
            If Liste(i, 0) > Liste(j, 0) Then
'            If StrComp(Liste(i, 0), Liste(j, 0), vbTextCompare) = 1 Then
                x = Liste(j, 0)
                Liste(j, 0) = Liste(i, 0)
                Liste(i, 0) = x
            End If
        Next j
    Next i
    Sirala = Liste
End Function

hayret bir şey sormadan evvel denedim çalışmadı şimdi çalıştı hayret bir olay

Private Function Sirala(Liste As Variant)
Dim i As Integer, j As Integer, x As Variant
    For i = LBound(Liste) To UBound(Liste) - 1
        For j = i + 1 To UBound(Liste)
[COLOR=red]'            If Liste(i, 0) > Liste(j, 0) Then[/COLOR]
            [COLOR=green]If StrComp(Liste(i, 0), Liste(j, 0), vbTextCompare) = 1 Then[/COLOR]
                x = Liste(j, 0)
                Liste(j, 0) = Liste(i, 0)
                Liste(i, 0) = x
            End If
        Next j
    Next i
    Sirala = Liste
End Function

kırmızı ve yeşil satır arasındaki Türkçe sıralmayı dikkate almamaktan başka fark varmıdır?
kırmızı satır kullanıldığında (0,...,9,ABCDEFGHIJ........ZÇİ...
yeşil satır kullanıldığında (0,...,9,ABCÇDEFGHIİJ........Z)

Kırmızı satır sayısal değerler için.
Yeşil satır string değerler için artan sıralama yapar.