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.