+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Userform Üzerinde Combobox Da Verileri Türkçe Alfabetik Sıralama. (/konu-excel-userform-uzerinde-combobox-da-verileri-turkce-alfabetik-siralama.html)
RE: Excel Userform Üzerinde Combobox Da Verileri Türkçe Alfabetik Sıralama. - Oğuz Türkyılmaz - 12/05/2021
Allah allah ben iptal edeyim dijital imza olayını o zaman bir anlamı kalmadı ki. İnternette izlediğim bir dersde hocanın anlattığı çözüm dü bu yada hocaya bir mesaj atayım bakalım nedeni konusunda bir yorum yapabilecek mi.
Evet @berduş hocam taşıyabilirsiniz. Tekrar teşekkürler.
RE: Excel Userform Üzerinde Combobox Da Verileri Türkçe Alfabetik Sıralama. - berduş - 12/05/2021
belki de ben becerememişimdir, yada benim ofis sistemimde bir sorun vardır bilemiyorum. @feraz hocamda bu sorun yaşanmamış da olabilir onun cevabını da bekleyeylim.
RE: Excel Userform Üzerinde Combobox Da Verileri Türkçe Alfabetik Sıralama. - berduş - 12/05/2021
yalnız şunu farkettim 65.500 küsür satır veri varken yazdığım Sql kodu
SQL = "SELECT [F1] " & _
"FROM [Ana_Sayfa$C2:C" & sonStr & "] " & _
"ORDER BY [F1];"galiba sınır hala eski excel)
Sql = "SELECT [F1] " & _
"FROM [Ana_Sayfa$C2:C] " & _
"where [F1]<>"""" " & _
"ORDER BY [F1];"RE: Excel Userform Üzerinde Combobox Da Verileri Türkçe Alfabetik Sıralama. - Oğuz Türkyılmaz - 12/05/2021
Düzelttim @berduş hocam. Teşekkür ederim.
RE: Excel Userform Üzerinde Combobox Da Verileri Türkçe Alfabetik Sıralama. - berduş - 12/05/2021
dediğim gibi sorun 65bin üzerindaki veride oluşuyor birkaç binle sınırlıysa veriniz, sorun olmaz
RE: Excel Userform Üzerinde Combobox Da Verileri Türkçe Alfabetik Sıralama. - feraz - 12/05/2021
Buda başka yoldan.Normalde bununlada Tr karakterler en altta sıralanıyordu ama ne hikmetse doğru sıralanıyor
3bin küsur 1 saniye sürdü.
https://resim.accesstr.net/do.php?img=11022
Dim dic_col As Object: Set dic_col = CreateObject("System.Collections.ArrayList")
If ComboBox_FirmaUnvani > 0 Then
With dic_col
For i = 0 To ComboBox_FirmaUnvani.ListCount - 1
If Not dic_col.Contains(CStr(ComboBox_FirmaUnvani.List(i, 0))) Then _
.Add CStr(ComboBox_FirmaUnvani.List(i, 0))
Next
.Sort: ComboBox_FirmaUnvani.Clear: ComboBox_FirmaUnvani.List = .toarray: .Clear
End With
End If
Application.ScreenUpdating = True
Set dic_col = Nothing