ListView Veri Sıralama

[Bakigemlik]

Merhaba,

Ekte kendime göre bir Userform'da bütçe exceli yapmaya çalışıyorum, ilk kodlar için destek olursanız sonrası için kendim uyarlamaya çalışacağım,

Ek excelde Userform1'de "Bütçe Toplam" butonuna bastığımda listviewde "Aylık Harcama" sekmesinin gelmesini, gelen listede de hangi satıra tıklarsam o satırın bilgilerini Detay Rapor" kısmına gelmesini istiyorum, aynı mantıkta "Toplam Gelen Para" butonuna tıkladığımda "Gelir Kalemleri" sayfasındaki verinin Listview'da gelmesini ve listviewda hücreye tıkladığımda userformda "Detay Rapor" alanında gelmesini, "Planlı Alacaklar" butonuna tıkladığımda "Planlı Alacaklar" sayfasının gelmesini ve hücreye tıkladığımda "Detay Raporu" ayrıntıların gelmesini istiyorum,

Konu hakkında desteğinizi rica ederim,

Saygılarımla,

 

[Bakigemlik]

destek olacak ya da yol gösterecek üstatlar yardım ricadır,

Teşekkürler

 

[Bakigemlik]

Listwiev Liste Hatası

Merhaba,

Aşağıdaki kodla listeleme yapmak istiyorum ama kırmızı alan hata veriyor nedendir,

Private Sub CommandButton2_Click()
Dim X As Integer
    [COLOR="Red"]Dim Liste As ListItem[/COLOR]
        ListView1.ListItems.Clear
        With Sheets("GELİR KALEMLERİ")
           For i = 2 To .[A65536].End(3).Row
              Set Liste = ListView1.ListItems.Add(, , .Cells(i, 1).Value)
                    Liste.SubItems(1) = Format(.Cells(i, 2).Value, "#,##.00")
                    Liste.SubItems(2) = Format(.Cells(i, 3).Value, "% ##.00")
                    Liste.SubItems(3) = .Cells(i, 4).Value
                    Liste.SubItems(4) = .Cells(i, 5).Value
                    Liste.SubItems(5) = .Cells(i, 6).Value
                  
                    
            Next i
        End With
    Set Liste = Nothing
End Sub

Teşekkürler,

 

[vardar07]

Kontrol ediniz.

 

[Bakigemlik]

Sayın Vardar öncelikle emeğinize sağlık çok ama çok teşekkür ederim,
Sizden küçük bir ricam daha olacak, görünen tüm rakamların formatını ("#,##0.00 ") olması için nasıl bir değişiklik yapmam gerekiyor,

Saygılarımla

 

[arcilingir]

Sayın BakiGemlik

Listview de ki sorun kolon başlıklarını eklemediğiniz için sanırım.

örnek
With ListView1
.ColumnHeaders.Clear
.View = lvwReport
.ColumnHeaders.Add , , "Sıra", 40
.ColumnHeaders.Add , , "Ücret", 70
.ColumnHeaders.Add , , "Artış", 50
.ColumnHeaders.Add , , "Ad", 150
.ColumnHeaders.Add , , "Soyad", 150
.ColumnHeaders.Add , , "Baba Adı", 150
.FullRowSelect = True
.Gridlines = False
End With

 

[vardar07]

#4 Nolu mesajdaki dosya güncellenmiştir.

 

[Bakigemlik]

Çok teşekkürler sayın Vardar emeğinize sağlık