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
02/03/2021, 19:11

feraz

(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.
02/03/2021, 19:14

berduş

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:17

feraz

(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.
02/03/2021, 21:20

Oğuz Türkyılmaz

Tamamdır yardımlarınız için teşekkürler.
02/03/2021, 21:40

berduş

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
02/03/2021, 21:54

Oğuz Türkyılmaz

Berduş Hocam Dosya Şirketteki Server Üzerinde Yarın Gittiğimde Hemen Uygularım. Teşekkür ederim.
1 2 3 4 5 6 7 8 9 10 11 12 13