(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.

hocam modülün başına

Option Compare Text

eklenmeliydi unutmuşum

(12/05/2021, 16:10)berduş yazdı: hocam modülün başına

Option Compare Text

eklenmeliydi unutmuşum

Adoda 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ığı.

---

(12/05/2021, 16:06)Oğuz Türkyılmaz yazdı:

(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.

2 satır üstündeki seçilecek.

---

(12/05/2021, 15:46)berduş yazdı: WHERE ([F1]<>"""")

WHERE ([F1]<>' ' olarakta kısaltılıyor abey bu şekilde.

ADO dan kast ettiğim; microsoft Activex Data Objects x.x

---

bu ado olan için değildi zaten diğer fonksiyonlu olan içindi

Hocam bende yüklü olan referanslar bunlar burda hangisini seçmem gerekiyor 64 bit office365 için.

@feraz hocam bazen çok ufak ayrıntılara takılıyorsunuz)
"" bu yada bu ' ne fark eder?