Kişi Sayısını Bul Aktar

[omeryılmaz]

Merhaba Arkadaşlar

Ekte sunmuş olduğum örnekte veriler "H" sütunundaki işletme koduna göre istatististik formuna kayıt sayısına göre sayısal olarak aktarılmaktadır.

Sorum:
"AF" sütununda İşletme kodana göre kişileri toplayıp "BY" Sütünunda karşılığına yazdırmak

K1 = 14 kişi
K2 = 21 kişi


Şimdiden yardımlarınız için şükranlarımı sunuyorum. Saygılar

 

[omeryılmaz]

İşletme koduna göre işlem yapılan kişi sayısı

 

[Korhan Ayhan]

Selamlar,

Kodunuzun içinde "sorunlu bölge" olarak belirtiğiniz bölümü aşağıdaki şekilde değiştirip denermisiniz.

If .Cells(BUL.Row, "AF") > 0 Then
   .Cells(x, "BY") = Val(.Cells(x, "BY")) + 1
End If

 

[omeryılmaz]

Selamlar,

Kodunuzun içinde "sorunlu bölge" olarak belirtiğiniz bölümü aşağıdaki şekilde değiştirip denermisiniz.

If .Cells(BUL.Row, "AF") > 0 Then
   .Cells(x, "BY") = Val(.Cells(x, "BY")) + 1
End If

Hocam İlginiz için teşekkürler

Denedim Sonuç doğru çıkmıyor. Kod İşlem sayısı saymakta,

İşlem yapılan kişi sayısını bulmam gerek

K1=14 Kişi
K2=21 Kişi

Toplamda İşlem yapılan kişi sayısı 99 Kişi olmalı ancak olmuyor.
Saygılar

 

[omeryılmaz]

Problemi Formülle halletmeye çalıştım ancak makro çalıştıkça kişi sayısını artırarak devam etmekte olduğundan
Bu formülün makrosu nasıl olabilir..
=ETOPLA(H2:H6500;BA2:BA10;AF2:AF6500)

 

[omeryılmaz]

Çözüm olarak

Sheets("RAPOR").Range("DD2").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "K1", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD3").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "K2", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD4").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "K3", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD5").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "K4", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD6").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "K5", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD7").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "K6", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD8").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "L1", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD9").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "L2", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD10").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "L3", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD11").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "M", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD12").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "N", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD13").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "O", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD14").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "P", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD15").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "R", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD16").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "S", Sheets("RAPOR").Range("AF2:AF3829"))
Sheets("RAPOR").Range("DD17").Value = WorksheetFunction.SumIf(Sheets("RAPOR").Range("H2:H3289"), "T", Sheets("RAPOR").Range("AF2:AF3829"))


Kodunu oluşturdum...Formumuzda ihtiyacı olanlar kullanır.. İyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Ben size cevap verdiğim zaman mesajınızda "K1=2 Kişi" yazıyordu. Bende mesajınızdaki ifadenize göre kodunuzu revize ettim.

Kod işlem sayısını sayıyor demişsiniz. Evet çünkü mesajınızdaki üstteki ifadenizden bu sonucu çıkarmıştım.

Mesajlarınızı güncelleyecekseniz bizlere bilgi vermelisiniz. Bizlerde cevaplarımızı bu yönde güncellemeliyiz.

Lütfen bundan sonraki başlıklarınızda bu konuya özen gösteriniz.