(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