Tekrar etme sayısı

[ozgurche]

Arkadaşlar merhabalar, ek de verdiğim dosyada A ve B sütunlarındaki sayıların ( her sütun için ayrı ayrı) hangilerinin kaç defa tekrar ettiğini bulabilecek bir makroya ihtiyacım var. Yardımlarınız için şimdiden teşekkür ederim.

 

[Mustafa MUTLU]

Aşağıdaki kodu denermisiniz.
A sütununu D sütununa
B Sütununu E Sütununa
Gelecek şekilde karşısına yazacak.

Sub Say()
Dim MSTF, MSTF1, MSTF2, MSTF3
Application.ScreenUpdating = False
For MSTF = 1 To Cells(65536, "A").End(xlUp).Row
For MSTF1 = 1 To Cells(65536, "A").End(xlUp).Row
If Cells(MSTF1, "A") = Cells(MSTF, "A") Then
Cells(MSTF, "D") = Cells(MSTF, "D") + 1
End If
Next
Next
For MSTF2 = 1 To Cells(65536, "B").End(xlUp).Row
For MSTF3 = 1 To Cells(65536, "B").End(xlUp).Row
If Cells(MSTF3, "B") = Cells(MSTF2, "B") Then
Cells(MSTF2, "E") = Cells(MSTF2, "E") + 1
End If
Next
Next
Application.ScreenUpdating = True
MsgBox " Sayma İşlemi Tamamlanmıştır.", vbInformation, "Mustafa_MUTLU"
End Sub

 

[Mustafa MUTLU]

Bekledim cevap gelmedi
İşini görmüş olmalı.
Çıkıyorum artık
İyi Geceler

 

[ozgurche]

Çok teşekkür ederim

 

[Mustafa MUTLU]

Çok teşekkür ederim

Rica Ederim.

Gecenin 3 ünde yardım bulmak zor
Ama Burada herkes yardıma hazır...