listbox için kolay
Sql satırını aşağıdaki gibi düzenlemeniz yeterli
SQL = "SELECT [F1],[F2],[F3],[F4],[F5],[F6],Space$(17-Len([F7])) & [F7] & "" TL "" " & _
"FROM [Ana Sayfa$] " & _
"order by [F1] desc;"
sade sona desc eklenmiştir
Başlık için Listbox2 kullanılması güzel fikir olmuş abey.
Space$ nedir berduş abey?
space boşluk ekleme fonksiyonu @
feraz bey
Berduş hocam bu dosyanın son şekli bayağı değişmişti. Sn.Feraz hocam bağlanıp kodlarda bir takım değişiklikler yapmış bende Arkadaşın şirketinde servera yüklemiştim. Hafta içi değişiklikleri uygular bir sorun olursa dönerim çok teşekkür ederim.
(28/02/2021, 19:33)berduş yazdı: [ -> ]space boşluk ekleme fonksiyonu @feraz bey
Sağol abey.
Boşluk olduğunu anlamıştım lakin $ bu işaretten dolayı kafam karışmıştı
Listbox rowsource kullanılmayacaksa alttaki gibi dizi ilede olabilir.Sondan başa doğru verileri alır tabii Tutar kolonu sağa yaslama olayını yapmadım.
Private Sub UserForm_Initialize()
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;100;70;240;100;100"
End With
txt_MasrafTarihi = Format(Date, "dd/mm/yyyy")
Application.ScreenUpdating = False
Dim rng, i As Long, say As Long
rng = Range("Tablo1").Value
ReDim arr(1 To UBound(rng), 1 To 7)
For i = UBound(rng) To 1 Step -1
say = say + 1
arr(say, 1) = rng(i, 1)
arr(say, 2) = rng(i, 2)
arr(say, 3) = rng(i, 3)
arr(say, 4) = rng(i, 4)
arr(say, 5) = rng(i, 5)
arr(say, 6) = rng(i, 6)
arr(say, 7) = Format(rng(i, 7), "#,##0.00")
Next
Me.ListBox1.List = arr
Erase rng: Erase arr
Application.ScreenUpdating = True
End Sub
Emin değilim ama herhangi bir değişkenin sonuna $ işareti eklenince verinin metin formatında olması sağlanıyor.
(28/02/2021, 19:42)Oğuz Türkyılmaz yazdı: [ -> ]Berduş hocam bu dosyanın son şekli bayağı değişmişti. Sn.Feraz hocam bağlanıp kodlarda bir takım değişiklikler yapmış bende Arkadaşın şirketinde servera yüklemiştim. Hafta içi değişiklikleri uygular bir sorun olursa dönerim çok teşekkür ederim.
uzaktan bağlantıyla çözümlenmiş sorularda çözümü burda da paylaşmanız uygun olurdu, en azından bizler de boş yere uğraşmamış olurduk.