mükerrer kayıt

[karakayalı]

A sutununda yer alan mükerrer kayıtların rakamla B sutununa yazdırmak istiyorum... kolay gelsin...

 

[Recep İpek]

Sorunuzu biraz daha açabilirmisiniz?

B kolonuna adetini mi yazdırmak istiyorsunuz?

 

[karakayalı]

Evet...a Sutununda Yer Alan Tekrareden DeĞerlerİ KaÇ Adet OlduĞunu B Sutununa Yazdimak İstİyorum..
10-2
20-3
30-1
10-2
20-3
20-3
5 -1 Gİbİ
Kolay Gelsİn

 

[Recep İpek]

B kolonuna

=COUNTIF($A$2:$A$100;A2)

formülünü yazabilirsiniz.

COUNTIF=EĞERSAY

 

[karakayalı]

Elİnİze SaĞlik..teŞekkÜrler...

 

[karakayalı]

Bu İŞİmİ GÖrdÜ Ancak Bunu Makro İle Yapmaniz MÜmkÜn MÜ? Kolay Gelsİn....

 

[Recep İpek]

Küçük bir örnek dosya ekleyebilirmisiniz?

 

[karakayalı]

dosya ekte

 

[Selçuk1]

sn. karakayalı;

aşağıdaki kodu dener misiniz?

Sub mukerrer()
For a = 1 To [a65536].End(3).Row
say = WorksheetFunction.CountIf(Columns(1), Cells(a, "A"))
Cells(a, "B") = say
Next
End Sub

iyi çalışmalar.

 

[karakayalı]

tşk. elinize sağlık