Listview sorun

[TİKOS]

Arkadaşlar,
İlk defa listview kullanacağım , kodları alıntı yaptım
ama çalıştıramadım. Ekteki dosyada ozet:A5;Q alanını listwiew ile görmek
istiyorum ama olmadı.
El atabilirseniz sevinirim.
tşk

 

[Orion1]

Dosyanız ektedir.

Sub liste()
c = WorksheetFunction.CountA(ActiveSheet.Range("A:A")) + 4
ListView1.ListItems.Clear
If c < 5 Then Exit Sub
With ListView1
For Y = 5 To c
    sat = sat + 1
            .ListItems.Add , , Cells(Y, 10)
            .ListItems(sat).SubItems(1) = Cells(Y, 1)
            .ListItems(sat).SubItems(2) = Cells(Y, 2)
            .ListItems(sat).SubItems(3) = Cells(Y, 3)
            .ListItems(sat).SubItems(4) = Cells(Y, 4)
            .ListItems(sat).SubItems(5) = Cells(Y, 5)
            .ListItems(sat).SubItems(6) = Format(Cells(Y, 6), "#,##0.00")
            .ListItems(sat).SubItems(7) = Format(Cells(Y, 7), "#,##0.00")
            .ListItems(sat).SubItems(8) = Format(Cells(Y, 8), "#,##0.00")
            .ListItems(sat).SubItems(9) = Format(Cells(Y, 9), "#,##0.00")
            .ListItems(sat).SubItems(10) = Format(Cells(Y, 10), "#,##0.00")
            .ListItems(sat).SubItems(11) = Format(Cells(Y, 11), "#,##0.00")
            .ListItems(sat).SubItems(12) = Format(Cells(Y, 12), "#,##0.00")
            .ListItems(sat).SubItems(13) = Format(Cells(Y, 13), "#,##0.00")
            .ListItems(sat).SubItems(14) = Format(Cells(Y, 14), "#,##0.00")
            .ListItems(sat).SubItems(15) = Format(Cells(Y, 15), "#,##0.00")

Next
End With
End Sub

 

[TİKOS]

Evren hocam teşekkürler
Listviewde görünen sayıların formatı ("#,##0.00") nasıl yapabilirim.

 

[Orion1]

Evren hocam teşekkürler
Listviewde görünen sayıların formatı ("#,##0.00") nasıl yapabilirim.

Hangi kolonda ise o kolunu veriyi alırken o şekilde biçimlendiriniz.
Örnek: D sütunu sayı ise biçimlendirerek alır listviewe.
Listview1.listitem(x).listsubitem(3)=format(cells(i,4).value,"#,##0.00")

 

[TİKOS]

Evren hocam, size gönderdiğim örnekteki userforum2 sizin yaptığınız düzeltmeleri yaptıktan sonra , yaptığım projemin içine kopyalayıp çalıştırmak istiyorum ama çalıştığında düzgün çalışmıyor. Başlıklar ve hiçbir veri çıkmıyor yanlızca sıra numarası yanyana 1234567...465 kadar devam ediyor. Bir türlü çözemedim. Yardımcı olurmusunuz dosya eklemedim ama.
*formatta olmadı, yapamadım.

 

[Orion1]

Evren hocam, size gönderdiğim örnekteki userforum2 sizin yaptığınız düzeltmeleri yaptıktan sonra , yaptığım projemin içine kopyalayıp çalıştırmak istiyorum ama çalıştığında düzgün çalışmıyor. Başlıklar ve hiçbir veri çıkmıyor yanlızca sıra numarası yanyana 1234567...465 kadar devam ediyor. Bir türlü çözemedim. Yardımcı olurmusunuz dosya eklemedim ama.
*formatta olmadı, yapamadım.

Siz yanlış listview kullanıyorsunuz.Önceki dosyanızda başka listview vardı.
Microsoft office ile başlayan listviewi kullanmanız lazımdı.Benim yolladığım userformu kendi dosyanıza improt edin.Tabii ki baştan export etmeyi unutmayın.

 

[TİKOS]

hocam teşekkürler hallettim,
ama formatı yapamadım yukaridaki örnekte uygulayabilirmisiniz. 2 nolu mesajda
tşk

 

[Orion1]

hocam teşekkürler hallettim,
ama formatı yapamadım yukaridaki örnekte uygulayabilirmisiniz. 2 nolu mesajda
tşk

2 numaralı mesajdan dosyayı inceleyebilirsiniz.