Koşula göre dolu hücre sayısını yazdırma

[steppe]

Merhaba Arkadaşlar,
Örnekte detaylı açıkladığım koşula göre dolu hücre sayısını hücreye yazdırma.
Yardımlarınız için şimdiden teşekkür ederim.

 

[1903emre34@gmail.com]

Merhaba,

K2 hücresine, aşağıdaki formülü dener misiniz?

=EĞERSAY($H$2:$H$18;J2)

 

[steppe]

1903emre34@gmail.com,
İlginiz için teşekkür ederim.Yalnız makro düşünmüştüm.Ankara/Altındağ verisi gelirse Ankara/Çankaya verisi sıfırlanıyor.
İyi çalışmalar.

 

[Asri]

Merhaba Arkadaşlar,
Örnekte detaylı açıkladığım koşula göre dolu hücre sayısını hücreye yazdırma.
Yardımlarınız için şimdiden teşekkür ederim.

D de İstanbul yazıp H de Ankara/Çankaya yazma ihtimali var mı ki?

Neden sadece H de Ankara/Çankaya yada Ankara/Altındağ saydırmıyoruz?

 

[steppe]

asri Kardeş,
İlginiz için teşekkür ederim.Haklısınız,çifte kontrol olsun diye söylemiştim.Ankara/Çankaya yada Ankara/Altındağ diye de saydıra biliriz.
iyi çalışmalar.

 

[Asri]

Alternatif;

Sub say()
    sonsatir = Cells(Rows.Count, "J").End(3).Row
    For i = 2 To sonsatir
      If Cells(i, "K") = 0 Then Cells(i, "K") = WorksheetFunction.CountIf([H:H], Cells(i, "J"))
    Next i
End Sub

 

[steppe]

Asri Kardeş,
Yardımlarınız için çok teşekkür ederim.Yalnız bir sorun var.
Ankara/Altındağ saydı K3'e 15 yazdı. Ankara/Gölbaşı saydı K5'e 12 yazdığında K3'teki 15'i sıfır yapıyor. K3!te 15 olarak kalsın, sıfırlanmasın.
iyi çalışmalar.

 

[Asri]

Asri Kardeş,
Yardımlarınız için çok teşekkür ederim.Yalnız bir sorun var.
Ankara/Altındağ saydı K3'e 15 yazdı. Ankara/Gölbaşı saydı K5'e 12 yazdığında K3'teki 15'i sıfır yapıyor. K3!te 15 olarak kalsın, sıfırlanmasın.
iyi çalışmalar.

Mesajıma dosya eklendi.
Dediğiniz şey kodun işleyişine uygun bir durum değil.

Hatalı olduğunu söylediğiniz dosyayı paylaşır mısınız?

 

[steppe]

Merhaba,
Örnek:

Ankara/Altındağ saydı k3'e 15 yazdı.Bu verileri sayfa2 aktardık ve silindi. Sayfa1'e Ankara/Gölbaşı 12 veri geldi. K5 12 yazsın bu arada K3'teki 15 silinmesin.
İyi akşamlar.

 

[Asri]

Merhaba,
Örnek:

Ankara/Altındağ saydı k3'e 15 yazdı.Bu verileri sayfa2 aktardık ve silindi. Sayfa1'e Ankara/Gölbaşı 12 veri geldi. K5 12 yazsın bu arada K3'teki 15 silinmesin.
İyi akşamlar.

Çok sağlıklı bir çalışma şekli değil.
Eğer değer sıfır ise yeni değeri ekler, sıfır değil ise eklemez.
Bu durumda daha önce sayısı bulunmuş ise bir daha bulmak istediğinizde doğru sayıyı vermeyecektir.

Kod güncellendi.

 

[steppe]

Merhaba,
Aşağıdaki fonksiyonu makroya nasıl dönüştürebiliriz?

=ÇOKEĞERSAY(D:D;"Muhasebe Memuru")

 

[Korhan Ayhan]

Deneyiniz.

Sub Test()
    MsgBox Evaluate("=COUNTIFS(D:D,""Muhasebe Memuru"")")
End Sub

 

[steppe]

Deneyiniz.

Sub Test()
    MsgBox Evaluate("=COUNTIFS(D:D,""Muhasebe Memuru"")")
End Sub

Korhan Hocam,
Yardımınız için çok teşekkür ederim.Sonucu H5 hücresine yazdırabilir miyiz?
İyi çalışmalar.

 

[Korhan Ayhan]

Merhaba,

Balığı vermiştim. Ama siz servisini de istiyorsunuz!

Sub Test()
    Range("H5").Value = Evaluate("=COUNTIFS(D:D,""Muhasebe Memuru"")")
End Sub