Listview'de birim değerlerinin gösterilmesi

[M.ACAR]

Private Sub UserForm_Initialize()
Dim i As Long, s1 As Worksheet
ListView1.View = lvwReport
Set s1 = Sheets("EKSTRE")
ListView1.ColumnHeaders.Add , , s1.Cells(2, "A").Value, 123
ListView1.ColumnHeaders.Add , , s1.Cells(2, "B").Value, 70
ListView1.ColumnHeaders.Add , , s1.Cells(2, "E").Value, 110
ListView1.ColumnHeaders.Add , , s1.Cells(2, "G").Value, 65
ListView1.ColumnHeaders.Add , , s1.Cells(2, "H").Value, 65
ListView1.ColumnHeaders.Add , , s1.Cells(2, "I").Value, 65
For i = 3 To s1.Cells(65536, "A").End(xlUp).Row
ListView1.ListItems.Add , , s1.Cells(i, "A").Value
ListView1.ListItems(i - 2).SubItems(1) = s1.Cells(i, "B").Value
ListView1.ListItems(i - 2).SubItems(2) = s1.Cells(i, "E").Value
ListView1.ListItems(i - 2).SubItems(3) = s1.Cells(i, "G").Value
ListView1.ListItems(i - 2).SubItems(4) = s1.Cells(i, "H").Value
ListView1.ListItems(i - 2).SubItems(5) = s1.Cells(i, "I").Value
Next i
End Sub


Formülü ile sayfa'daki verileri listview'e alıyorum,G-H-I sütunlarındaki verileri para birimi TL içermekte listview'de birimin TL olarak gösterilmesi için formüle nasıl bir eklenti yapılmalıdır,Şimdiden teşekkür ederim.

 

[Orion1]

Dim i As Long, s1 As Worksheet
ListView1.View = lvwReport
Set s1 = Sheets("EKSTRE")
ListView1.ColumnHeaders.Add , , s1.Cells(2, "A").Value, 123
ListView1.ColumnHeaders.Add , , s1.Cells(2, "B").Value, 70
ListView1.ColumnHeaders.Add , , s1.Cells(2, "E").Value, 110
ListView1.ColumnHeaders.Add , , s1.Cells(2, "G").Value, 65
ListView1.ColumnHeaders.Add , , "Birim", 30
ListView1.ColumnHeaders.Add , , s1.Cells(2, "H").Value, 65
ListView1.ColumnHeaders.Add , , "Birim", 30
ListView1.ColumnHeaders.Add , , s1.Cells(2, "I").Value, 65
ListView1.ColumnHeaders.Add , , "Birim", 30
For i = 3 To s1.Cells(65536, "A").End(xlUp).Row
ListView1.ListItems.Add , , s1.Cells(i, "A").Value
ListView1.ListItems(i - 2).SubItems(1) = s1.Cells(i, "B").Value
ListView1.ListItems(i - 2).SubItems(2) = s1.Cells(i, "E").Value
ListView1.ListItems(i - 2).SubItems(3) = s1.Cells(i, "G").Value
ListView1.ListItems(i - 2).SubItems(4) = "TL"
ListView1.ListItems(i - 2).SubItems(5) = s1.Cells(i, "H").Value
ListView1.ListItems(i - 2).SubItems(6) = "TL"
ListView1.ListItems(i - 2).SubItems(7) = s1.Cells(i, "I").Value
ListView1.ListItems(i - 2).SubItems(8) = "TL"

Next i

 

[M.ACAR]

Sayın:Evren GİZLEN cevabınız için çok teşekkür ederim,fakat birim değerini aynı sütunda gösterme olanağı yokmudur? İmkansızsa yada sıkıntılıysa bu hali ile de kullanabilirim,teşekkürler,emeğiniz için sağolun.

 

[Orion1]

Sayın:Evren GİZLEN cevabınız için çok teşekkür ederim,fakat birim değerini aynı sütunda gösterme olanağı yokmudur? İmkansızsa yada sıkıntılıysa bu hali ile de kullanabilirim,teşekkürler,emeğiniz için sağolun.

Vardır ama bu şkli ile kullanmanız daha doğrudur.Hiç olmazsa listvievde ilgili sütunlardaki veriler sayısal deper olarak ileride işlenebilir.Yanına tl yazarsak string olurlar.

 

[M.ACAR]

Çok teşekkür ederim,Evren bey

 

[Orion1]

Çok teşekkür ederim,Evren bey

Rica ederim.
İyi çalışmalar.