Soru mükerrer

[sirkülasyon]

B2 : B aralığında yazılı isimlerden mükerrer olan hücrelerin yanına yani C2 : C aralığına
B sütunda ki adı yazacak ve ".................. kişiye ait Birinci Mükerrer"
B sütunda ki adı yazacak ve aynı kişiye ait ikinci mükerrer olana ".................. kişiye ait İkinci Mükerrer"
B sütunda ki adı yazacak ve aynı kişiye ait Üçüncü mükerrere ".................. kişiye ait Üçüncü Mükerrer"
gibi yazacak formül ya da makroya ihtiyacım var.
Teşekkür ederim.

 

[Mahir64]

Merhaba,

Çözüm olur mu bilmiyorum ama fikir verebilir.

=EĞER(EĞERSAY($B$2:B2;B2)>1;B2&" "&EĞERSAY($B$2:B2;B2)-1&"'nci mükerker";"")

 

[sirkülasyon]

Mahir hocam hiç uyarı vermedi.

 

[Mahir64]

Formülü
C2 hücresine yazın ve aşağı çekerek çoğaltın.
B2, B3 ve B4 hücresine "a" harfi yazın deneyin.

Uyarı verecektir.

 

[sirkülasyon]

Eyvallah
En alta uyarıyı verdi. Teşekkür ederim

 

[yanginci34]

denermisiniz.

 

[sirkülasyon]

Sayın yangıncı
harici link paylaşabilmen halinde dosyadan istifade edebilirim.
Rica etsem link paylaşabilir misiniz?

 

[Mahir64]

Eyvallah
En alta uyarıyı verdi. Teşekkür ederim

İyi çalışmalar.

 

[yanginci34]

Buyrun

İndir mükerrer say

Dosyayı indir mükerrer say

dosya.co

 

[yanginci34]

Sayfanın kod bölümüne aşağıdaki kodu ekleyip denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
son = Cells(Rows.Count, 2).End(3).Row
For i = 2 To son
If WorksheetFunction.CountIf(Range("b2:b" & i), Cells(i, 2)) > 1 Then
Range("c" & i).Value = Range("b" & i).Value & " kişiye ait " & WorksheetFunction.CountIf(Range("b2:b" & i), Cells(i, 2)) - 1 & ". mükerrer"
Else: Range("c" & i) = ""
End If
Next
End Sub

 

[sirkülasyon]

Yardımın için teşekkür ederim. sağ ol

 

[yanginci34]

Yardımın için teşekkür ederim. sağ ol

Rica ederim.