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.
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.
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];"
satır sayısı aşma nedeniyle hata veriyor, onu aşağıdaki şekilde düzenlemek gerekiyor
galiba sınır hala eski excel)
Sql = "SELECT [F1] " & _
"FROM [Ana_Sayfa$C2:C] " & _
"where [F1]<>"""" " & _
"ORDER BY [F1];"
dediğim gibi sorun 65bin üzerindaki veride oluşuyor birkaç binle sınırlıysa veriniz, sorun olmaz
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