(21/02/2021, 00:44)Oğuz Türkyılmaz yazdı: Mesaj kutunuz kapalı mesaj atamıyorum

sizin için açacağım abey kapatmıştım

Listbox da gösterilen bilgilerden sadece tutar hanesini ilgili sütunda sağa dayalı yapamadım bende çareyi tüm bilgileri sağa dayamakta buldum. Sn.Berduş ve Feraz Hocalarım çok teşekkürler. Konuyu taşıyabilirsiniz.

31. Mesajdaki dosya kullanıldı
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

Berduş Hocam Çok teşekkür ederim.

Sonuç tam olarak istediğiniz gibi olmuş mu? Olmayan şapkadan tavşan çıkarabildik mi)

Hocam tabiki de olmuş ama kodlarınızı anlamak benim için zor.
Sadece verileri hem Excel sayfasında hemde list box da son girilen en üstte yani ID büyükten küçüğe dizilecek şekilde göstermeye çalışıyorum Feraz hocamın koduna bakarak yapmaya çalıştım ama henüz beceremedim başka hatalar aldım onunla uğraşıyorum bir yandan tekrar teşekkürler.