yapılan eklemeler:
1 - ADO x.x Library eklendi
2 - 2. bir listbox eklendi
3 - Ana sayfanın A1:G1 satırı Baslik olarak isimlendirilmiştir
UserForm_Initialize kodu aşağıdaki gibi düzenlendi
dilerim işinize yarar
With Me.ListBox2
.ColumnCount = 7
.RowSource = Range("Baslik").Address
.ColumnWidths = "30;70;100;70;240;130;70"
End With
With Me.ListBox1
.ColumnCount = 7
.ColumnWidths = "30;70;100;70;240;100;100"
End With
txt_MasrafTarihi = Format(Date, "dd/mm/yyyy")
'hy______________________________________Recordset Deneme
Application.ScreenUpdating = False 'excelde
Dim Sql As String
Dim ADO_RS As ADODB.Recordset
Dim ADO_CN As ADODB.Connection
SQL = "SELECT [F1],[F2],[F3],[F4],[F5],[F6],Space$(17-Len([F7])) & [F7] & "" TL "" " & _
"FROM [Ana Sayfa$] " & _
"order by [F1] ;"
'Space$(11-Len([F7])) & [F7] & "TL" boşluk eklemek için
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
'
' Eğer Hiç Kayıt Yoksa
If ADO_RS.RecordCount = 0 Then GoTo son
ADO_RS.MoveLast
ADO_RS.MoveFirst
ADO_RS.MoveNext
ListBox1.Column = ADO_RS.GetRows
son:
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing
Application.ScreenUpdating = True 'excelde
'__________________________________________________Recordset Deneme Bitti