listeden bilgi arama

[cetvel]

sevgili arkdaşlar,
bir liste sayfasına kayıt edilin kişileri ödeme biligilerini bilgi sayfasındaki listbox ta çağırıldığında ödemelri türlerine göre listelemesini istiyorum bana bu konuda yardımcı olacak arkadaşlara :dua: ederim.

 

[danersin]

Listbox'ınıza aşağıdaki kodları atayıp bir deneyin.

Sub Makro2()
Range("b9:n20").ClearContents
For k = 9 To 20
For n = 2 To Sheets("LİSTE").Cells(65536, 1).End(xlUp).Row
If Sheets("LİSTE").Cells(n, 3) = Cells(3, 2) And Sheets("LİSTE").Cells(n, 5) = Cells(k, 1) Then
Cells(k, 2) = Cells(k, 2) + Sheets("LİSTE").Cells(n, 6)
End If
Next n
Next k
End Sub

 

[Levent Menteşoğlu]

Bende formüllerle bir çözüm oluşturmuştum onu ekliyorum.

 

[cetvel]

teşekkürler arkadaşlar beni büyük bir dertten kurtardınız size :dua:

ve sizi :bravo: