Listview de sütunlu Gelişmiş süzgeç

[Erhan Üstünel]

Dosyanın aslı aşağıdaki linkte bu da veriye göre en son dolu sutüna kadar veri alıyor azami dolu sutün 50 burada dolu sutün 20 ise yirmi sutünlük verileri alacaktır.

http://www.excel.web.tr/f128/listview-de-50-sutun-suzme-t78427.html

teşekkürler hocam

 

[SELIMT]

Değerli forum üyeleri;
Böyle bir çalışma hazırlanıp, sunulmasından dolayı çok teşekkür ederim. Benimde uzun 28 sütunlu binlerce satırdan oluşan bir tablom vardı. Sizler sayesinde çalışmamı buna entegre etmiş bulunmaktayım. Benim konumda bunun ile ilgili olduğundan yeni başlık açma gereksinimi duymadım. Benim sizlerden yardım talebim, listview içerisine alınan verilerde süzme yapıldığı zaman belirlemiş olduğum textboxlara süzmeden sonraki eğersay ve etopla formüllerini nasıl uygularım.

Açıklama-)

A1:AB arası veriler listview de listeleniyor. Tanımlanmış olan textboxlar ile süzme yapınca Textbox111 içerisine R sütunun içerisinde Sonuçlandı yazanların toplam sayısının gösterilmesi,

Textbox124 içerisine ETOPLA formülünü uyguladığım Nakit olanların toplamını (parasal olarak) gösterilmesi. (Nakit yazısının bulunduğu sütun=W, Rakamların bulunduğu sütun=X’ dir)

Konular hakkında yardımlarınızı rica ediyorum.

Vereceğiniz yönergeler ile diğerlerini halletmeye çalışacağım. Herkese tekrar teşekkür eder, iyi çalışmalar dilerim.

 

[SELIMT]

Değerli forum üyeleri;

Konu güncel olup değerli yardımlarınızı bekliyor olacağım.

Saygılarımla;

 

[halit3]

Değerli forum üyeleri;
Böyle bir çalışma hazırlanıp, sunulmasından dolayı çok teşekkür ederim. Benimde uzun 28 sütunlu binlerce satırdan oluşan bir tablom vardı. Sizler sayesinde çalışmamı buna entegre etmiş bulunmaktayım. Benim konumda bunun ile ilgili olduğundan yeni başlık açma gereksinimi duymadım. Benim sizlerden yardım talebim, listview içerisine alınan verilerde süzme yapıldığı zaman belirlemiş olduğum textboxlara süzmeden sonraki eğersay ve etopla formüllerini nasıl uygularım.

Açıklama-)

A1:AB arası veriler listview de listeleniyor. Tanımlanmış olan textboxlar ile süzme yapınca Textbox111 içerisine R sütunun içerisinde Sonuçlandı yazanların toplam sayısının gösterilmesi,

Textbox124 içerisine ETOPLA formülünü uyguladığım Nakit olanların toplamını (parasal olarak) gösterilmesi. (Nakit yazısının bulunduğu sütun=W, Rakamların bulunduğu sütun=X’ dir)

Konular hakkında yardımlarınızı rica ediyorum.

Vereceğiniz yönergeler ile diğerlerini halletmeye çalışacağım. Herkese tekrar teşekkür eder, iyi çalışmalar dilerim.

Bu kodu (Private Sub ListeGuncelle3()) olayının en sonunda bulunan (End Sub) hemen üstüne (deneme_Click) kodunu koyup çalıştırın.

kod:

Sub deneme_Click()
 
son1 = 0
son2 = 0
son3 = 0
son4 = 0
son5 = 0
son6 = 0
son7 = 0
son8 = 0
son9 = 0
son10 = 0
son11 = 0
 
mat1 = 0
mat2 = 0
mat3 = 0
mat4 = 0
mat5 = 0
mat6 = 0
 
 
For r = 1 To ListView1.ListItems.Count
On Error Resume Next
 
For i = 1 To ListView1.ColumnHeaders.Count - 1
'On Error Resume Next
deg123 = ListView1.ListItems(r).ListSubItems(i).Text
deg124 = ListView1.ListItems(r).ListSubItems(i + 1).Text
deg125 = ListView1.ListItems(r).ListSubItems(i + 2).Text
 
If i = 18 Then
If deg123 = "SONUÇLANDI" Then
son1 = son1 + 1
End If
 
If deg123 = "SONUÇLANMADI" Then
son2 = son2 + 1
End If
 
If deg123 = "FİŞ DÜZELTME" Then
son3 = son3 + 1
End If
 
If deg123 = "CARİ TAHSİLAT" Then
son4 = son4 + 1
End If
End If
 
If i = 17 Then
son5 = son5 + CDbl(deg123 * 1)
End If
 
 
 
 
If i = 23 Then
If deg123 = "NAKİT" Then
son6 = son6 + 1
mat1 = mat1 + CDbl(deg124 * 1)
End If
 
If deg123 = "KREDİ KARTI" Then
son7 = son7 + 1
mat2 = mat2 + CDbl(deg124 * 1)
End If
 
If deg123 = "HAVALE" Then
son8 = son8 + 1
mat3 = mat3 + CDbl(deg124 * 1)
End If
 
If deg123 = "ÇEK" Then
son9 = son9 + 1
mat4 = mat4 + CDbl(deg124 * 1)
End If
 
If deg123 = "SENET" Then
son10 = son10 + 1
mat5 = mat5 + CDbl(deg124 * 1)
End If
 
End If
 
If i = 22 Then
If deg123 = "CARİ" Then
son11 = son11 + 1
mat6 = mat6 + CDbl(deg125 * 1)
End If
End If
 
 
 
Next i
Next r
 
TextBox111.Text = son1
TextBox112.Text = son2
TextBox113.Text = son3
TextBox114.Text = son4
TextBox115.Text = son1 + son2 + son3 + son4
TextBox116.Text = Format(son5, "#,###.00")
 
TextBox117.Text = son6
TextBox118.Text = son7
TextBox119.Text = son8
TextBox120.Text = son9
TextBox121.Text = son10
TextBox122.Text = son11
TextBox123.Text = son6 + son7 + son8 + son9 + son10 + son11
 
TextBox124.Text = Format(mat1, "#,##0.00")
TextBox125.Text = Format(mat2, "#,##0.00")
TextBox126.Text = Format(mat3, "#,##0.00")
TextBox127.Text = Format(mat4, "#,##0.00")
TextBox128.Text = Format(mat5, "#,##0.00")
TextBox129.Text = Format(mat6, "#,##0.00")
TextBox130.Text = Format(mat1 + mat2 + mat3 + mat4 + mat5 + mat6, "#,##0.00")
MsgBox "işlem tamam"
End Sub

 

[SELIMT]

Sn. Halit Bey;

İlgi ve alakanızdan dolayı çok teşekkür ediyorum. Allah razı olsun. Yeni Bakma fırsatım oldu.

Saygılarımla,

 

[baydeniro]

Çok teşekkürler sayın halit3.