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