Çoklu koşula göre kayıt seçmek ve sayısını yazdırmak

[prodigy0]

Merhaba,
Ekteki gibi bir tablom var.Benim istediğim,belirlenmiş çoklu koşulların hepsini sağlayan kaç kayıt olduğunu ve bu kayıtların D kolonundaki tutarlarının toplamını,Sheet2 de A1 ve A2 hücrelerine yazdırsın.Koşul şu;
-A kolonunda OK olan değerler
-B kolonunda 780,500,100,150,260 olan değerler
-E kolonunda GGX ve GGC olmayan değerler
-F kolonunda 165 ile 190 arasında olan değerler.

Yardımlarınız için teşekkürler.

 

[uzmanamele]

merhaba

bunun gibi bir şey mi istiyorsunuz?

Sub KayitSec()
x = 1
For i = 2 To Range("a65536").End(3).Row
If Cells(i, 1) = "OK" Then
If Cells(i, 2) = 100 Or Cells(i, 2) = 150 Or Cells(i, 2) = 260 Or Cells(i, 2) = 500 Or Cells(i, 2) = 780 Then
If Cells(i, 5) <> "GGX" Or Cells(i, 5) <> "GGC" Then
If Cells(i, 6) >= 165 And Cells(i, 6) <= 190 Then
    Range(Cells(i, 1), Cells(i, 6)).Copy Sheets("Sheet2").Cells(x, 1)
x = x + 1
End If
End If
End If
End If
Next
End Sub

 

[prodigy0]

merhaba

bunun gibi bir şey mi istiyorsunuz?

Sub KayitSec()
x = 1
For i = 2 To Range("a65536").End(3).Row
If Cells(i, 1) = "OK" Then
If Cells(i, 2) = 100 Or Cells(i, 2) = 150 Or Cells(i, 2) = 260 Or Cells(i, 2) = 500 Or Cells(i, 2) = 780 Then
If Cells(i, 5) <> "GGX" Or Cells(i, 5) <> "GGC" Then
If Cells(i, 6) >= 165 And Cells(i, 6) <= 190 Then
    Range(Cells(i, 1), Cells(i, 6)).Copy Sheets("Sheet2").Cells(x, 1)
x = x + 1
End If
End If
End If
End If
Next
End Sub

Teşekkürler.Benim tam istediğim A1 hücresinde bu koşulları sağlayan kaç kayıt olduğunu yazması,A2 hücresinde de bu kayıtların D kolonunda yazan tutarlarının toplamını yazması.

Yardımlarınız için tekrar teşekkür ediyorum.

 

[quesh]

Filtre ve Alttoplam ile de halledebilirsiniz. Alternatif olsun.

 

[prodigy0]

Evet o şekilde de yapılabilir ama benim bunun gibi 10 tane daha çoklu koşulum var ve hepsinin sonucunun alt alta yazması gerekiyor.O sebeple sordum.Sanırım COUNT fonksiyonu ile sonuç satırlarının saydırılması gerekiyor ama nasıl yapıldığını tam bilmiyorum.
Teşekkürler

 

[quesh]

diğer koşullarınız ve verilerinizi görebilirsem koddan ziyada daha basi,t bir çözümle halledilebilir diye düşünüyorum. saygılar

 

[quesh]

ekteki dosyada 2.sayfayı inceleyiniz. topla.çarpım (sumproduct) formülü kullanılmıştır.

 

[quesh]

dosya burada

 

[prodigy0]

Evet şimdi gördüm teşekkürler.Sanırım bu şekilde daha kolay olacak benim için.
Problem çözülmüştür çok teşekkürler.