Veri Saydırma Hk.

[metin_0606]

Değerli üstatlar çalışma sayfamdaki H sütununda bulunan SILAHLI ve SILAHSIZ personel durumunu saydırmak istiyorum. Ancak iki koşulu baz alarak sayacak. Bunlardan bir tanesi W sütunudaki çalışma durumu Etkin olanları baz alacak. Diğeri ise X sütunundaki Proje yeri A ISLETME olanları saymayacak bunun dışındaki kalan diğer proje yerlerini sayacak. Sonuç olarak örneğin
SILAHLI PERSONEL:1500
SILAHSIZ PERSONEL:2300 gibi

 

[konas06]

Özet tablo ile bir alternatif paylaşmak istedim.
İşinize yarar umarım.

 

[metin_0606]

Özet tablo ile bir alternatif paylaşmak istedim.
İşinize yarar umarım.

Sayın konas06 emeğiniz için çok teşekkür ederim çalışmamda bir çok sayfa olduğu için daha fazla sayfa açmak istemedim Makrolu bir çözüm olursa benim için daha iyi olacak

 

[Ferhat Pazarçevirdi]

Merhabalar,

Herhangi bir hücreye şu formülü yazın.

=TOPLA(('ANA SAYFA'!H2:H6000="SILAHLI")*('ANA SAYFA'!W2:W6000="Etkin")*('ANA SAYFA'!X2:X6000="A ISLETME"))

Son parantezi kapadıktan sonra ctrl+shft+enter tuş kombinasyonuna birlikte basın.

Bu formül, silahlıları saydırır. Bir diğer hücrede, "SILAHLI" yazan yere "SILAHSIZ" yazıp, aynı işlemleri tekrarlayın

İyi çalışmalar

 

[metin_0606]

Merhabalar,

Herhangi bir hücreye şu formülü yazın.

=TOPLA(('ANA SAYFA'!H2:H6000="SILAHLI")*('ANA SAYFA'!W2:W6000="Etkin")*('ANA SAYFA'!X2:X6000="A ISLETME"))

Son parantezi kapadıktan sonra ctrl+shft+enter tuş kombinasyonuna birlikte basın.

Bu formül, silahlıları saydırır. Bir diğer hücrede, "SILAHLI" yazan yere "SILAHSIZ" yazıp, aynı işlemleri tekrarlayın

İyi çalışmalar

Ferhat bey belirtmek istediğim konu yanlış anlaşıldı sanırım ben A İSLETME hariç diğer projeleri toplu olarak saysın istemiştim. Yani A İSLETME yi bu sayımın dışında tutacak diğerlerini SILAHLI ve SILAHSIZ olarak toplu sayacak çözüm makrolu olursa benim için daha iyi olacak

 

[metin_0606]

A İSLETME için kullandığım makro var istediğim işlemi görüyor ama diğer 13 projeyi ayrım gözetmeksizin SİLAHLI ve SİLAHSIZ olarak saydıramadım

Private Sub CommandButton1_Click()
'Call Emr1
'OptionButton1.BackColor = &HFF&
    Dim i, sayB, sayE
    For i = 2 To Cells(Rows.Count, 2).End(3).Row
        If Cells(i, 23) = "Etkin" And Cells(i, 8) = "SILAHLI" And Cells(i, 24) = "A ISLETME" Then
            sayB = sayB + 1
        End If
            Next
    MsgBox " TOPLAM: " & sayE + sayB & " " & "Personel var"

End Sub

 

[veyselemre]

If Cells(i, 23) = "Etkin" And Cells(i, 8) = "SILAHLI" And Cells(i, 24) <> "A ISLETME" Then

 

[metin_0606]

If Cells(i, 23) = "Etkin" And Cells(i, 8) = "SILAHLI" And Cells(i, 24) <> "A ISLETME" Then

Teşşekürler veysel hocam istediğim gibi oldu sağolun varolun

 

[Korhan Ayhan]

Bu da olabilir..

Sub Say()
    MsgBox WorksheetFunction.CountIfs(Sheets("ANA Sayfa").Range("H:H"), "SILAHLI", Sheets("ANA Sayfa").Range("W:W"), "Etkin", Sheets("ANA Sayfa").Range("X:X"), "<>A ISLETME")
End Sub

Telefondan yazdım. Yazım hatası olabilir.

 

[metin_0606]

Bu da olabilir..

Sub Say()
    MsgBox WorksheetFunction.CountIfs(Sheets("ANA Sayfa").Range("H:H"), "SILAHLI", Sheets("ANA Sayfa").Range("W:W"), "Etkin", Sheets("ANA Sayfa").Range("X:X"), "<>A ISLETME")
End Sub

Telefondan yazdım. Yazım hatası olabilir.

Teşekkürler Korhan hocam alternatif kod olarak arşivime aldım