(02/03/2021, 19:07)Oğuz Türkyılmaz yazdı: Feraz Hocam Sıralatmada sorun yok sıralıyor sadece eklenen kayıt eklendiği anda listboxda görünsün istiyorum. Formu kapatıp açmaya gerek kalmasın.

Demek istediğim sayfada sıralatmaya gerek olmadan listboxtta desc ile olan kod zaten sıralatır.

Ozaman liste kutusunu doldurma kodunu bağımsız bir fonksiyon olarak yazıp hem form yükleme hem de kayıt ekleme silme vs vs komutlarından bu fonksiyonu caagirmaniz daha uygun olur

(02/03/2021, 19:14)berduş yazdı: Ozaman liste kutusunu doldurma kodunu bağımsız bir fonksiyon olarak yazıp hem form yükleme hem de kayıt ekleme silme vs vs komutlarından bu fonksiyonu caagirmaniz daha uygun olur

Öylede olur userform_initalieze()(yanlış yazmadıysam kafadan) böyle eklemekte olur abey tabii en mantıklı bir sub içine almak ve ordan çağırmak.

Tamamdır yardımlarınız için teşekkürler.

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

Berduş Hocam Dosya Şirketteki Server Üzerinde Yarın Gittiğimde Hemen Uygularım. Teşekkür ederim.