Mükerrer say

[KAYA212]

Merhaba,
Öncelikle forumda arama yaptığımı çok farklı örneklerin olduğu fakat basit olabilir fakat bu şekilde örneğin olmadığını gördüğüm bir problemim var.
Ekteki listede b sütunundaki kodlar listesinde mükerrer olanları N Sütununa yazdırıp O sütununa kaç defa olduğunu yazdırmak istiyorum
konu hakkında yerdımlarınızı rica ediyorum.

sayğılarımla

 

[dEmir1]

Merhaba,
Öncelikle forumda arama yaptığımı çok farklı örneklerin olduğu fakat basit olabilir fakat bu şekilde örneğin olmadığını gördüğüm bir problemim var.
Ekteki listede b sütunundaki kodlar listesinde mükerrer olanları N Sütununa yazdırıp O sütununa kaç defa olduğunu yazdırmak istiyorum
konu hakkında yerdımlarınızı rica ediyorum.

sayğılarımla

Merhaba Eki inceler misiniz.

 

[KAYA212]

merhaba,
sayın demir cevabınız için teşekkür ederim.Sorumu eksik yazdım galiba sadece 1'den fazla olanları saymasını istiyorum.

 

[Vedat Özer]

Merhaba,

Aşagıdaki kodu deneyebilirmisiniz,

Option Explicit
 
Sub SiralaSay()
Dim S1 As Worksheet
Dim i As Long, son As Long, son1 As Long, sat As Long
 
Set S1 = Sheets("TÜMÜ                           ")
 
Application.ScreenUpdating = False
 
son = S1.[B65536].End(3).Row
S1.Range("N2:N65536").ClearContents

 
sat = 1
For i = 2 To son

    If WorksheetFunction.CountIf(S1.Range("B3:B" & i), S1.Cells(i, "B")) >1 Then
        sat = sat + 1
        S1.Cells(sat, "N") = S1.Cells(i, "B")
    End If
Next i
 
son1 = S1.[N65536].End(3).Row
 
For i = 2 To son1
    
    S1.Cells(i, "O") = WorksheetFunction.CountIf(S1.Range("B2:B" & son), S1.Cells(i, "N"))
    
    
Next i
 

End Sub

 

[KAYA212]

Vedat bey merhaba,
teşeşekür ederim.İstediğim gibi olmuş.
sayğılarımla

 

[dEmir1]

Vedat bey elinize sağlık, formül ile nasıl yapılır peki? ben bir kaç bir şey denedim fakat olmadı

 

[Erdem Akdemir]

Formülle

N3 hücresine, dizi formüldür.

=EĞERHATA(İNDİS($B$3:$B$15;KÜÇÜK(EĞER(EĞERSAY(DOLAYLI("B3:B"&SATIR($3:$15));$B$3:$B$15)=2;SATIR($1:$10));SATIR(A1)));"")

 

[Erdem Akdemir]

Sıra numarasına göre getirmek için

CTRL+SHIFT+ENTER ile kapatmayı unutmayın.

=EĞERHATA(İNDİS($B$3:$B$15;KÜÇÜK(EĞER(EĞERSAY(DOLAYLI("B"&SATIR($3:$15)&":B15");$B$3:$B$15)=2;SATIR($1:$10));SATIR(A1)));"")

 

[dEmir1]

Teşekkür ederim Kuvari
Bi öğrenemedim şu Mükerrer saymayı hep bir yerde takılıyorum.
( Satır Say, Sıklık, Küçük vs formülleri hep karıştırıyorum