+- 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
(12/05/2021, 15:46)berduş yazdı: recordsetle denemek isterseniz aşağıdaki kodu deneyebilirsiniz.
Not: referanslara ADO eklenmeli
'hy____________________________AçılırKutu_Deneme
Dim Sql As String
Dim ADO_RS As ADODB.Recordset
Dim ADO_CN As ADODB.Connection
SQL = "SELECT [F1] " & _
"FROM [Ana_Sayfa$C2:C] " & _
"WHERE ([F1]<>"""") " & _
"ORDER BY [F1];"
Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection
ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & _
";extended properties=""excel 8.0;hdr=No"""
ADO_CN.Open
ADO_RS.Open SQL, ADO_CN, 3, 1
If ADO_RS.RecordCount = 0 Then GoTo son
ADO_RS.MoveLast
ADO_RS.MoveFirst
ComboBox_FirmaUnvani.Column = ADO_RS.GetRows
son:
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing
'hy_____________________________________________Bitti
Application.AutoCorrect.AutoExpandListRange = True
IlleriAktar
TextBox_Tarih = Format(Date, "dd.mm.yyyy")
With TextBox_Tarih
.SelStart = 0
.SelLength = .TextLength
End With
@berduş hocam office365 kullanıyorum bende resimdeki 2 referans dışında ADO yazan başka bir referans yok. Bu arada şimdi kayıt girmek istedim çok hızlı kaydettiğim veriler eskiye göre bayağı yavaşladı ben tam konuya yazacaktım sizin yorumunuz geldi.
RE: Excel Userform Üzerinde Combobox Da Verileri Türkçe Alfabetik Sıralama. - berduş - 12/05/2021
hocam modülün başına
Option Compare TextRE: Excel Userform Üzerinde Combobox Da Verileri Türkçe Alfabetik Sıralama. - feraz - 12/05/2021
(12/05/2021, 16:10)berduş yazdı: hocam modülün başınaAdoda buna gerek yok abey 2003 versiyonlarından sonra Ace.oledb ile yapıncaki denedim zaten öalıştı küçük büyük harfa duyarlılığı.
eklenmeliydi unutmuşumOption Compare Text
(12/05/2021, 16:06)Oğuz Türkyılmaz yazdı:2 satır üstündeki seçilecek.(12/05/2021, 15:46)berduş yazdı: recordsetle denemek isterseniz aşağıdaki kodu deneyebilirsiniz.
Not: referanslara ADO eklenmeli
'hy____________________________AçılırKutu_Deneme
Dim Sql As String
Dim ADO_RS As ADODB.Recordset
Dim ADO_CN As ADODB.Connection
SQL = "SELECT [F1] " & _
"FROM [Ana_Sayfa$C2:C] " & _
"WHERE ([F1]<>"""") " & _
"ORDER BY [F1];"
Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection
ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & _
";extended properties=""excel 8.0;hdr=No"""
ADO_CN.Open
ADO_RS.Open SQL, ADO_CN, 3, 1
If ADO_RS.RecordCount = 0 Then GoTo son
ADO_RS.MoveLast
ADO_RS.MoveFirst
ComboBox_FirmaUnvani.Column = ADO_RS.GetRows
son:
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing
'hy_____________________________________________Bitti
Application.AutoCorrect.AutoExpandListRange = True
IlleriAktar
TextBox_Tarih = Format(Date, "dd.mm.yyyy")
With TextBox_Tarih
.SelStart = 0
.SelLength = .TextLength
End With
@berduş hocam office365 kullanıyorum bende resimdeki 2 referans dışında ADO yazan başka bir referans yok. Bu arada şimdi kayıt girmek istedim çok hızlı kaydettiğim veriler eskiye göre bayağı yavaşladı ben tam konuya yazacaktım sizin yorumunuz geldi.
(12/05/2021, 15:46)berduş yazdı: WHERE ([F1]<>"""")
WHERE ([F1]<>' ' olarakta kısaltılıyor abey bu şekilde.
RE: Excel Userform Üzerinde Combobox Da Verileri Türkçe Alfabetik Sıralama. - berduş - 12/05/2021
ADO dan kast ettiğim; microsoft Activex Data Objects x.x
Kod:
Option Compare TextRE: Excel Userform Üzerinde Combobox Da Verileri Türkçe Alfabetik Sıralama. - Oğuz Türkyılmaz - 12/05/2021
Hocam bende yüklü olan referanslar bunlar burda hangisini seçmem gerekiyor 64 bit office365 için.
RE: Excel Userform Üzerinde Combobox Da Verileri Türkçe Alfabetik Sıralama. - berduş - 12/05/2021
@feraz hocam bazen çok ufak ayrıntılara takılıyorsunuz)
"" bu yada bu ' ne fark eder?