Lıstbox YTL. Formatı!

[ocamsul]

[ÇÖZÜLDÜ] Lıstbox YTL. Formatı!

Arkadaşlar öncelikle hepinizin Kueban Bayramını tebeik ediyorum.

Private Sub UserForm_Initialize()
Sheets("LISTE").Select
ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = "50;80;90;100;50"
For SUT = 15 To Cells(65536, "N").End(3).Row
ListBox1.AddItem
ListBox1.List(S, 0) = Cells(SUT, "B")
ListBox1.List(S, 1) = Cells(SUT, "G")
ListBox1.List(S, 2) = Cells(SUT, "I")
ListBox1.List(S, 3) = Cells(SUT, "M")
ListBox1.List(S, 4) = Cells(SUT, "N")
S = S + 1
Next
End Sub

Bu kod ile listeyi oluşturuyorum ancak ;

ListBox1.List(S, 4) = Cells(SUT, "N")

bu kod ile gelen sütundaki rakamların formatının virgül ile ayrılmış YTL. biçiminde olması gerekli örnek verirmisiniz arkadaşlar.

 

[Orion1]

ListBox1.List(S, 4) = FormatCurrency(Cells(SUT, "N").Value, 2)

 

[ocamsul]

SN: Evren Gizlen; üstadım teşekkür ederim. budur

 

[Orion1]

SN: Evren Gizlen; üstadım teşekkür ederim. budur

Rica ederim.
İyi çalışmalar.