AccessTr.neT
Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. (/konu-excel-userform-da-listbox-nesnesi-alanlarinin-bicimlendirmesi-hakkinda.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13

RE: Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. - feraz - 21/02/2021

(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 Img-grin

Re: Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. - Oğuz Türkyılmaz - 22/02/2021

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.

[Resim: do.php?img=10732]

RE: Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. - berduş - 27/02/2021

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


RE: Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. - Oğuz Türkyılmaz - 28/02/2021

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

RE: Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. - berduş - 28/02/2021

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

RE: Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında. - Oğuz Türkyılmaz - 28/02/2021

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.