kirtere göre aynı olanların sayısını ikinci isimden sonrakilerin sayısını boş getime

KMLZDMR

Altın Üye
Katılım
9 Nisan 2015
Mesajlar
494
Excel Vers. ve Dili
2003 TÜRKÇE EXCEL
Altın Üyelik Bitiş Tarihi
10-04-2025
Merhaba,
Ekli dosyada detayını anlatmaya çalıştığım husus için formül ihtiyacıma yardımcı olur musunuz?
Konu:Kritere göre aynı isimde olanların sayısını ikinci isimden sonrakilerin sayısını boş getirebilmek.

bir sütunda aynı isimden kişi / kişiler birden fazla olabilmektedir. Bir sütunda
aynı kişinin kaç adet olduğunu herbir satırda bulunan aynı kişi için formülle buldum. Ancak arzu edilen başka sütunda olmak üzere aynı kişinin sadece ilk isminin bulunduğu satırda kritere (EVET olanlar) uygun olanlara kaç kez varsa yazacak ondan sonraki satırda bulunanlara ise "boş değer" ("") getirecek.
Yani, Kriteri "Evet" olan ve mükerrer kişileri ikinci isimden başlayarak "boş" olarak getirecek formül ihtiyacım var.

Teşekkür ederim.
 

Ekli dosyalar

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Merhaba.

Aşağıdaki formülü kullanabilirsiniz.
.
Kod:
=[COLOR="red"]EĞER[/COLOR]([COLOR="red"]TOPLA.ÇARPIM[/COLOR](($D$12:D12=D12)*($R$12:R12="EVET"))=1;[COLOR="Red"]TOPLA.ÇARPIM[/COLOR](($D$12:$D$111=D12)*($R$12:$R$111="EVET"));"")
 

KMLZDMR

Altın Üye
Katılım
9 Nisan 2015
Mesajlar
494
Excel Vers. ve Dili
2003 TÜRKÇE EXCEL
Altın Üyelik Bitiş Tarihi
10-04-2025
Sayın Ömer Baran üstadım . Çok teşekkür ederim. Aklınıza sağlık.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Kolay gelsin.
 

KMLZDMR

Altın Üye
Katılım
9 Nisan 2015
Mesajlar
494
Excel Vers. ve Dili
2003 TÜRKÇE EXCEL
Altın Üyelik Bitiş Tarihi
10-04-2025
Sayın Ömer Baran Üstadım.
Ekli dosya için iki ihtiyaç doğdu.
Birinci ihtiyaç: 2. pencerenizdeki formülde aynı kişinin sayısını bulmuştuk.
İhtiyaç olan ise aşağıdaki kriterlere göre, "C" sütundaki Ortak Numaralarını "R" sütununda "EVET" kriteri ve M sütunundaki Ortaklık sayısı 1' den fazla olan kişiler olmak üzere "O" sütununa ortak numaralarını getirmeye ihtiyaç var. Birinci penceredeki Ekli tablodaki D sütunundaki Hayrullah Gülden isimli ortak için O12 hücresine formül sonucu: "Ortak No: 1-16-17-19-20-21-22-23-34-35" olarak 10 adet olan ortaklık numaraları gelmesini sağlamalı. Bu ortaklık numaraları 1,2,3 haneli olabilir. 9,17,121 gibi...

İkinci ihtiyaç:O12 hücresinde bulunan formül sonucundaki "Ortak No: 1-16-17-19-20-21-22-23-34-35" değeri P sütununda O12 hücresindeki değerdeki sayı değerlerin adedini bulabilmek Sonuç 10 olacak tabiki.

Mümkünse O12 ve P12 hücrelerine ihtiyaç duyulan formülleri yapabilir misiniz?
Saygılarımla.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Merhaba.

Makro ile çözümün daha pratik olduğu fikrindeyim.
Önceki verdiğim cevaptaki formül de makroya dahil edildi.
Sayma sonucu P sütununda, ortak numaralarının birleştirilme işlemi O sütununda.
.
Kod:
[B]Sub SAY_BIRLESTIR()[/B]
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
Range("O12:P111").ClearContents
[COLOR="red"][P12:P111].Formula = "=IF(SUMPRODUCT(($D$12:D12=D12)*($R$12:R12=""EVET""))=1,SUMPRODUCT(($D$12:$D$111=D12)*($R$12:$R$111=""EVET"")),"""")"
[P12:P111].Value = [P12:P111].Value
[/COLOR]ActiveSheet.Range("B11:R111").AutoFilter Field:=17, Criteria1:="EVET"
For sat = 12 To 111
    If Cells(sat, "P") > 0 Then
        ActiveSheet.Range("B11:R111").AutoFilter Field:=3, Criteria1:=Cells(sat, 4)
        For Each hcr In ActiveSheet.Range("C12:C111").SpecialCells(xlCellTypeVisible)
            metin = metin & "-" & hcr.Value: Next
        [B][COLOR="blue"]Cells(sat, "O")[/COLOR][/B] = "Ortak no: " & Mid(metin, 2, Len(metin)): metin = ""
    End If
Next
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
MsgBox "İşlem tamamlandı", vbInformation, "..:: Ömer BARAN ::.."
[B]End Sub[/B]
 

KMLZDMR

Altın Üye
Katılım
9 Nisan 2015
Mesajlar
494
Excel Vers. ve Dili
2003 TÜRKÇE EXCEL
Altın Üyelik Bitiş Tarihi
10-04-2025
Sayın Ömer Baran Üstadım Çok teşekkür ederim. Uygulayacağım.
 

KMLZDMR

Altın Üye
Katılım
9 Nisan 2015
Mesajlar
494
Excel Vers. ve Dili
2003 TÜRKÇE EXCEL
Altın Üyelik Bitiş Tarihi
10-04-2025
Üstad süper olmuş. Teşekkür ederim.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Kolay gelsin.
.
 

KMLZDMR

Altın Üye
Katılım
9 Nisan 2015
Mesajlar
494
Excel Vers. ve Dili
2003 TÜRKÇE EXCEL
Altın Üyelik Bitiş Tarihi
10-04-2025
Ömer Baran üstadım
6 nolu penceredeki makro için ilgili dosyada sayfa adı ve dosya içerisinde sütun ekleme-çıkarma yapmam gerektiğinde ve sayfa ismi değiştiğinde makronun işlev yapmasını sağlamak mümkün mü? önceki dosyada O ve P sütunlarına sonuç getirmekteyken O sütundan önce bir sütun açtığım için O sütunu P oldu, P sütunu Q oldu....
Teşekkür ederim.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Merhaba.

-- Kod'un sayfa adından etkilenmemesi için kod, Modül'e değil ilgili sayfanın kod bölümüne alınabilir.
-- Sütun için ise; başlık satırı ve başlık metninden hareket edilerek düzenleme yapılabilir.

Belgenizin yeni halini ekleyin, uygun olduğumda bakarım.
.
 

KMLZDMR

Altın Üye
Katılım
9 Nisan 2015
Mesajlar
494
Excel Vers. ve Dili
2003 TÜRKÇE EXCEL
Altın Üyelik Bitiş Tarihi
10-04-2025
Merhaba,
Daha önce yukarıdaki pencerelerde olan konu için aşağıdaki formülde bir sıkıntı oluştu. Açıklama aşağıda ve ekli dosyada bulunmaktadır.
Formülü nasıl düzeltebiliriz.

M12 hücresindeki formül
=EĞER(TOPLA.ÇARPIM(($D$12:D12=D12)*($R$12:R12="EVET"))=1;TOPLA.ÇARPIM(($D$12:$D$197=D12)*($R$12:$R$197="EVET"));"")

M sütununda M32 değeri 10 doğru R32 hücresi EVET
Ancak, M33, M34, M35, M36 hücrelerinde de adet getirmiş durumda olaması gerekir. BU işlem sadece Hayri GÜL için olduğunu gözlemledim. Örneğin Kazım GÜL, Hafize GÜL,
Zekiye Yıl gibi örnekler dopru çalışmaktadır.

Acaba, D12 hücresinde yani listenin ilk sırasındaki Hayri GÜL
R12 deki kriteri "Hayır" dan "EVET" çevirdiğimde gözlenen şuki: bu seferde Hayri GÜL için M27, m28, m29, m30, m31 hücrelerinde de 11 sayısı gelmekte buna rağmen hayri gül e ait aşağıdaki diğer satırlarda gelmemektedir.

Acaba, mükerrer kişilerden Evet/hayır durumunda aynı kişi peş peşe satırlarda var olduğu halde M sütununa mükerrer değer gelmekte olduğunu gözlemledim. Kritik konu bu olabilir mi? Buna çözüm bulmak gerekir?
Zira,
a) R12 HAYIR iken M33, M34, M35, M36 da 10 sayısı gelmekte..Doğru olan ve beklenen Sadece M32 Hücresinde 10 sayısı gelmesi

b) R12 EVET iken M27, M28, M29, M30, m31 da 11 sayısı gelmekte..Doğru olan ve beklenen Sadece M12 Hücresinde 11 sayısı gelmesi

M sütundaki formülün geliştirilmesine ihtiyaç vardır.
 

Ekli dosyalar

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Merhaba Sayın ÖZDEMİR.
M12 hücresindeki formülü aşağıdakiyle değiştirip, bu hücreyi liste boyunca kopyalayarak deneyin.
Yanlış anlamıyorsam, istediğiniz sonuç bu şekilde elde edilebiliyor.
=EĞER(VE(R12="EVET";TOPLA.ÇARPIM(($D$12 : D12=D12)*($R$12:R12="EVET"))=1);TOPLA.ÇARPIM(($D$12:$D$197=D12)*($R$12:$R$197="EVET"));"")
 
Üst