(18/01/2020, 00:48)berduş yazdı: aşağıdaki kod bende çalıştı dilerim işinize yarar
Açılır kutu accessten farklıymış
ComboBox1.Column = ADO_RS.GetRows kodu ile alıyormuş
Dim Sql As String
Dim ADO_CN As Object
Dim ADO_RS As Object
Set ADO_CN = CreateObject("Adodb.Connection")
Set ADO_RS = CreateObject("adodb.recordset")
SQL = "SELECT F1 as HY1, F2 as Hy2 "
SQL = Sql & vbCrLf
SQL = Sql & "FROM [Sayfa1$f11:g15" & "] ORDER BY F1 ;"
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
'
' Eğer Hiç Kayıt Yoksa
If ADO_RS.RecordCount = 0 Then
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing
MsgBox "Kayıt Bulunamadı.", vbCritical, "Veri Yok"
Exit Sub
End If
ADO_RS.movelast
ADO_RS.MoveFirst
ComboBox1.Column = ADO_RS.GetRows
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing
SQL = Sql & "FROM [Sayfa1$f11:g" & sonsatırno & "]" ORDER BY F1 " böylede sonsatır no değişken eklerseniz böyle olur.
