Satırda tekrar kontrolu

[haso_excel]

Merhaba arkadaşlar,

Siteden de araştırdım ama aynı olanların sayısını ne kodların üzerinde oynayarak, nede formul olarak yapamadım yardımcı olur musunuz?

 

[Ali]

Ekte birşeyler yaptım. İşinizi görürse kullanırsınız.

 

[haso_excel]

Teşekkürler Ali bey,
Elinize sağlık ben kedime göre düzenlerim artık.

 

[Ali]

Yardımcı sütun olmadan ise

=TOPLA.ÇARPIM((1/EĞERSAY(A2:E2;A2:E2)=1)*1/EĞERSAY(A2:E2;A2:E2))

şeklinde deneyiniz.

.

 

[haso_excel]

Teşekkür ederim. Sizin paylaştığınız mükerrer kayıt örnekleri dosyanız içinde teşekkür ederim. Sorunumu çözmek için oradan faydalanmak istedim ama böyle bir örnek çalışma yok sanırsam. Yinde mükemmel bir çalışma tekrar teşekkür ederim.

 

[haso_excel]

Üstadım kod hali nasıl olur ?

 

[Ali]

Sub hesapla()
son = Cells(65536, 5).End(xlUp).Row
For satir = 2 To son
deger = Evaluate("=SUMPRODUCT((1/COUNTIF(A" & satir & ":E" & satir & ",A" & satir & ":E" & satir & "&"""")=1)*1/COUNTIF(A" & satir & ":E" & satir & ",A" & satir & ":E" & satir & "&""""))")
Cells(satir, 6) = deger
Next
End Sub

şeklinde deneyiniz.

 

[haso_excel]

Teşekkürler,