Listbox sayı formatı

[kemal turan]

Merhaba,
Aşağıdaki listbox kodunda bold olan yerin formatı 100,1223 şeklinde görünüyor
Bunu 100,1 olarak görünmesine ihtiyacım var.
Excel sahifemdeki hücre biçimi etkilemiyor.
Forumdan sayı format örnekleri ile revize etmeye çalıştım hata veriyor.
Teşekkür ederim.

Private Sub TextBox2_Change()
ReDim Dizi(1 To 7, 1 To 1)

On Error Resume Next
ListBox1.RowSource = Empty
ListBox1.Clear
On Error GoTo 0

If TextBox2 = "" Then
UserForm_Initialize
Else
Say = 0
Set Data = S2.Range("A2" & S2.Cells(Rows.Count, 3).End(3).Row)
For Each Veri In Data
If Veri.Column = 2 Then
If UCase(Replace(Replace(Veri, "i", "İ"), "ı", "I")) Like _
"*" & UCase(Replace(Replace(TextBox2, "i", "İ"), "ı", "I")) & "*" Then

Say = Say + 1
ReDim Preserve Dizi(1 To 7, 1 To Say)
Dizi(1, Say) = Veri.Offset(0, 6)
Dizi(2, Say) = Veri
Dizi(3, Say) = Veri.Offset(0, 15)
Dizi(4, Say) = Veri.Offset(0, 16)

End If
End If
Next

If Say > 0 Then ListBox1.Column = Dizi
End If
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[B]Dizi(4, Say) = [COLOR=Red]format([/COLOR]Veri.Offset(0, 16),[COLOR=Red]"0.0")[/COLOR][/B]

 

[kemal turan]

merhaba Levent hocam,
Hata verdi.
Dizi(4, Say) = Format(Veri.Offset(0, 16), "0.0")