Listboxtaki en büyük sayı

[SİBEL70]

Merhabalar,

Listbox'ın ilk sütunundaki en büyük sayıyının, kaydet butonuna basıldıkça bir fazlasını textbox'a yazdırmanın kodla bir yolu varmıdır acaba?

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim buyuk As Double, i As Long
For i = 0 To ListBox1.ListCount - 1
    If CDbl(ListBox1.List(i, 0)) > buyuk Then buyuk = CDbl(ListBox1.List(i, 0))
Next
TextBox1.Text = Format(buyuk, "#,##0.00")
    

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ListBox1.RowSource = "A1:A14"
End Sub

 

[SİBEL70]

Evren Bey,

Teşekkürler, aradığımbu idi.

Saygılar,

 

[Orion1]

Evren Bey,

Teşekkürler, aradığımbu idi.

Saygılar,

Rica ederim.
İyi çalışmalar.