forma alttaki yordamı ekleyip

Sub LstBxDoldur()

With Me.ListBox2

        .ColumnCount = 7

        .RowSource = Range("Baslik").Address  '"Tablo1" 'Worksheets(1).Name & "!A1:G1"

        .ColumnWidths = "30;70;100;70;240;130;70"

End With

With Me.ListBox1

        .ColumnCount = 7

        .ColumnWidths = "30;70;90;70;240;100;110"

End With

    txt_MasrafTarihi = Format(Date, "dd/mm/yyyy")

'hy______________________________________Recordset Deneme

Dim Sql As String



Dim ADO_RS As ADODB.Recordset

Dim ADO_CN As ADODB.Connection

    'Space$(20 - Len([F7] & ''))

SQL = "SELECT [F1],[F2],[F3],[F4],[F5],[F6],Space$(20 - Len(format([F7],'#,##0.00 TL') & '')) & format([F7],'#,##0.00 TL')" & _

      "FROM [Ana Sayfa$];"

'Space$(11-Len([F7])) & [F7] & "TL"

'#,##0.00

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

End Sub

UserForm_Initialize kodunu da aşağıdaki gibi düzenleyip dener misiniz?

Private Sub UserForm_Initialize()



Application.ScreenUpdating = False  'excelde

LstBxDoldur

Application.ScreenUpdating = True   'excelde



End Sub

ekleme/silme/güncelleme olaylarından sonra LstBxDoldur yordamını çağırın