Çözüldü ListView Hakkında

[evrensngr]

Sub UserForm_Initialize()
With ListView1
    .View = lvwReport
     .ColumnHeaders.Add , , "TARİH ", 63
     .ColumnHeaders.Add , , "KOD", 43, 2
     .ColumnHeaders.Add , , "CARİ HESAP ÜNVANI ", 225, 2
     .ColumnHeaders.Add , , "STOK KODU ", 75, 2
     .ColumnHeaders.Add , , "STOK AÇIKLAMASI ", 200, 2
     .ColumnHeaders.Add , , "NET BİRİM FİYAT ", 75, 2
     .ColumnHeaders.Add , , "KAR % ", 43, 2
     .ColumnHeaders.Add , , "ÖNCEKİ ALIŞ TARİHİ ", 88, 2
     .ColumnHeaders.Add , , "ÖNCEKİ ALIŞ ", 75, 2
     .ColumnHeaders.Add , , "FARK ", 125, 2
   .FullRowSelect = True
   .Gridlines = True
End With
Dim Liste As ListItem
        ListView1.ListItems.Clear
           For i = 2 To [a65536].End(3).Row
                Set Liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
                    Liste.SubItems(1) = Cells(i, 2).Value
                    Liste.SubItems(2) = Cells(i, 3).Value
                    Liste.SubItems(3) = Cells(i, 4).Value
                    Liste.SubItems(4) = Cells(i, 5).Value
                    Liste.SubItems(5) = Cells(i, 6).Value
                    Liste.SubItems(6) = Cells(i, 7).Value
                    Liste.SubItems(7) = Cells(i, 8).Value
                    Liste.SubItems(8) = Cells(i, 9).Value
                    Liste.SubItems(9) = Cells(i, 10).Value
                   
            Next i
    Set Liste = Nothing
End Sub

Merhabalar Bu kodları kullanarak listview veri alıyorum ama bir sorunum var subıtem 8 i yuzde oranı örneğin %10 göstersin istiyorum ve sub item 10nu ondalık sayı Örneğin 12,05 gibi yapmak istiyorum yardımcı olabilcek varmıdır

 

[Haluk]

Denemedim ama, aşağıdaki gibi bir şey olabilir ...

Liste.SubItems(8) = Format(Cells(i, 8).Value / 100, "0.00 %")

.

 

[evrensngr]

Denemedim ama, aşağıdaki gibi bir şey olabilir ...

Liste.SubItems(8) = Format(Cells(i, 8).Value / 100, "0.00 %")

.

Aynı kaldı malesef Haluk Bey bende buna benzer denemiştim sonuç vermemişti

 

[Haluk]

Örnek bir dosya ekleyin, onun üzerinde bakalım ...

.

 

[evrensngr]

Örnek bir dosya ekleyin, onun üzerinde bakalım ...

.

Direk çalıştığım dosyayı ekledim Haluk Bey

 

[Haluk]

"%" ile göstermek istediğiniz sütun hangisi, tam anlamadım ama bu şekilde oluyor.... (Ben Sayfa3 üzerinde denedim)

Liste.SubItems(6) = Format(Cells(i, 7).Value, "0.00 %")

.

 

[evrensngr]

Tam olarak istediğim buydu haluk bey teşekkürler Bunu bide ondalık sayı Yani 12,05 gibi yapabilirmiyiz kusratı sadece 2 hane olarak göstercek

 

[evrensngr]

"%" ile göstermek istediğiniz sütun hangisi, tam anlamadım ama bu şekilde oluyor.... (Ben Sayfa3 üzerinde denedim)

Liste.SubItems(6) = Format(Cells(i, 7).Value, "0.00 %")

.

Liste.SubItems(9) = format(Cells(i, 10).Value,"0.00") su komutlada istediğim diğer sorunu çözdüm haluk bey yardımlarınız için çok teşekkürler

 

[evrensngr]

@Haluk Peki Size bir soru daha sorsam listview 1in verileri sadece Sayfa 1den almasını nasıl sağlayabilirim sayfa 1 aktif olmasa bile

 

[Haluk]

Böyle bir şey olur herhalde ...

 Liste.SubItems(5) = Format(Cells(i, 6).Value, "0.00")

 

[evrensngr]

Böyle bir şey olur herhalde ...

 Liste.SubItems(5) = Format(Cells(i, 6).Value, "0.00")

Evet bunu uygulayınca sorunsuz çalışıyor peki listview 1in sadece sayfa1 de ki verileri listelemesini nasıl sağlarım

 

[Haluk]

Sub UserForm_Initialize()

    Dim sh1 As Worksheet

    Set sh1 = Sheets("Sayfa1")

    With ListView1

        .View = lvwReport

         .ColumnHeaders.Add , , "TARİH ", 63

         .ColumnHeaders.Add , , "KOD", 43, 2

         ......

         ....

         ..

         Liste.SubItems(1) = sh1.Cells(i, 2).Value

         Liste.SubItems(2) = sh1.Cells(i, 3).Value

         ......

         ....

         ..

 

[evrensngr]

Sub UserForm_Initialize()

    Dim sh1 As Worksheet

    Set sh1 = Sheets("Sayfa1")

    With ListView1

        .View = lvwReport

         .ColumnHeaders.Add , , "TARİH ", 63

         .ColumnHeaders.Add , , "KOD", 43, 2

         ......

         ....

         ..

         Liste.SubItems(1) = sh1.Cells(i, 2).Value

         Liste.SubItems(2) = sh1.Cells(i, 3).Value

         ......

         ....

         ..

Teşekkürler Haluk Bey emeğinize sağlık