a10:a150 arasındaki mükerrerleri b10'dan itibaren listeleme

[halilerdem]

a10:a150 arasındaki mükerrerleri b10'dan itibaren listelemek istiyorum
bunu kodla nasıl yazarız

 

[Ömer BARAN]

Merhaba.

Örneğin; aşağıdaki şekilde olabilir.
-- C10 hücresine uygulayın ve liste boyunca kopyalayın (yardımcı sütun).

[FONT="Arial Narrow"]=EĞER(VE(EĞERSAY($A$10:A10;A10)=1;EĞERSAY($A$10:A150;A10)>1);MAK($C$9:C9)+1;"")[/FONT]

-- B10 hücresine uygulayın ve liste boyunca kopyalayın.

[FONT="Arial Narrow"]=EĞER(MAK($C$10:$C$150)<SATIR()-9;"";İNDİS($A$10:$A$150;KAÇINCI(SATIR()-9;$C$10:$C$150;0);0))[/FONT]

 

[halilerdem]

teşekkür ederim fakat kod lazım

 

[Ömer BARAN]

Konuyu VBA başlığı altına açmamışsınız.
.

[FONT="Arial Narrow"]Sub mükerrerler()
Range("B10:B150").ClearContents: sat = 10
For satır = 10 To 150
If WorksheetFunction.CountIf(Range("A10:A150"), Cells(satır, 1)) > 1 And _
    WorksheetFunction.CountIf(Range("B10" & ":B" & satır), Cells(satır, 1)) = 0 Then
    If [B159].End(3).Row > 9 Then sat = [B159].End(3).Row + 1
    Cells(sat, 2) = Cells(satır, 1): End If: Next
End Sub[/FONT]

 

[halilerdem]

teşekkürler