Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında.

1 2 3 4 5 6 7 8 9 10 11 12 13
21/02/2021, 00:46

feraz

(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
22/02/2021, 10:15

Oğuz Türkyılmaz

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.


27/02/2021, 00:34

berduş

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
28/02/2021, 17:55

Oğuz Türkyılmaz

Berduş Hocam Çok teşekkür ederim.
28/02/2021, 19:00

berduş

Sonuç tam olarak istediğiniz gibi olmuş mu? Olmayan şapkadan tavşan çıkarabildik mi)
28/02/2021, 19:06

Oğuz Türkyılmaz

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.
1 2 3 4 5 6 7 8 9 10 11 12 13