süzülen verileri listview göster

[prodigy]

daha önce başka bir başlık altında sordum ama karışık anlattım olsa gerek herhangi bir yanıt alamadım. bu konuda sayın leventm güzel bir örnek çalışmasını buldum. ancak burada sadece listview üzerinde süzme yapıyor. benim istediğim ise süzme işleminden sonra süzülen verilerin alt toplamlarınıda almak istiyorum. bu konuda yardımlarınızı bekliyorum.
saygılar

 

[Mahmut Kök]

daha önce başka bir başlık altında sordum ama karışık anlattım olsa gerek herhangi bir yanıt alamadım. bu konuda sayın leventm güzel bir örnek çalışmasını buldum. ancak burada sadece listview üzerinde süzme yapıyor. benim istediğim ise süzme işleminden sonra süzülen verilerin alt toplamlarınıda almak istiyorum. bu konuda yardımlarınızı bekliyorum.
saygılar

Örnek eklerseniz veya bahsettiğiniz uygulamanın yolunu verirseniz yardımcı olmaya çalışalım.

 

[prodigy]

yapmak istediğim projeyi ekledim. burda süzme kısmına bakarsanız seviniri. süzülen verileri listview gösterecek. ve alt toplamlarını alacak.

 

[Mahmut Kök]

Örneğinizi pek inceleyemedim. Formunuz benim bilgisayarımın ekranına sığmadığından çok zor oluyor

Aşağıdaki adreste, alt toplam almakla ilgili bir uygulama mevcut.

http://www.excel.web.tr/showthread.php?t=39177

 

[prodigy]

bu konuda herhangi bir fikri olan yokmu?

 

[Ferhat Pazarçevirdi]

Merhabalar

Dosyanızda, Ödn.(Konut) yazan Listview sütun başlığı için Alt Toplam işlemini yapabileceğiniz kod örneği aşağıda verilmiştir. Projenize adapte ediniz.

Sub Alttoplam()
Dim AltTop_OdnKonut As Long
Dim i As Integer
With UserForm1.ListView1
   For i = 1 To .ListItems.Count - 1
       If IsNumeric(.ListItems(i).SubItems(7)) Then
          AltTop_OdnKonut = AltTop_OdnKonut + .ListItems(i).SubItems(7) * 1
       End If
   Next i
End With
End Sub

 

[Orion1]

Tc kimlik nosuna göre yaptım diğerlerinide ona bakarak siz yapabilirsiniz.

Private Sub CommandButton10_Click()
Dim i As Long
If CheckBox4.Value = True Then
    Sheets("giriş").Activate
    ListView1.ListItems.Clear
    ListView1.View = lvwReport 'istediğiniz uygulma için Listview görünümü= rapor olmalıdır.
    With ListView1
        For i = 1 To Cells(65536, "A").End(xlUp).Row
            If Cells(i, "E").Value = Val(TextBox1.Value) Then
                x = x + 1
                 .ListItems.Add , , Cells(i, 1)
                With .ListItems(x).ListSubItems
                    .Add , , Cells(i, 2)
                    .Add , , Cells(i, 3)
                    .Add , , Cells(i, 4)
                    .Add , , Cells(i, 5)
                    .Add , , Cells(i, 6)
                    .Add , , Cells(i, 7)
                    .Add , , Cells(i, 8)
                    .Add , , Cells(i, 9)
                    .Add , , Cells(i, 10)
                    .Add , , Cells(i, 11)
                    .Add , , Cells(i, 12)
                    .Add , , Cells(i, 13)
                    .Add , , Cells(i, 14)
                    .Add , , Cells(i, 15)
                    .Add , , Cells(i, 16)
                    .Add , , Cells(i, 17)
                End With
            End If
        Next
    End With
End If
End Sub

 

[Ferhat Pazarçevirdi]

UYARI : Ne Sn.Orion2'nin ne de benim verdiğim kodları, bu çalışma kitabına uygulamayın. Küçücük bir liste içeren kitap, 36 MB olamaz.

Yeni bir kitap oluşturarak, bu kodları yeniden uygulayın. Proje ilerledikçe, başınız çok ağrıyabilir.