Farklı sayfadaki mükerrer kayıt sorgulama

[zehfeysal]

Arkadaşlar öncelikle iyi günler dilerim.
Ekli dosya içerisinde de bahsettiğim dosyam için yardımcı olabilirmisimiz sizlere zahmet olmazsa.

Yapmak istediğim Sorgulama sayfasında bulunan C sutunundaki araç kod numarasına göre Filo sayfasındaki A sutununda bulunan Araç kod sayfasında aynı veri birden fazla ise M sutunundaki ilgili satır karşısına kaç defa bulunduğunu getirmesini istiyorum.
iyi çalışmalar dilerim.

 

[Ziynettin]

Sub kayıt_kontrol()
Dim s1 As Worksheet, s2 As Worksheet

Set s1 = Sheets("OTOMSY FİLO")
Set s2 = Sheets("FİLO SORGL.")

Set dc = CreateObject("scripting.dictionary")

a = s1.Range("A2:A" & s1.Cells(Rows.Count, 1).End(3).Row).Value

For i = 1 To UBound(a)
    dc(a(i, 1)) = dc(a(i, 1)) + 1
Next i

a = s2.Range("C3:C" & s2.Cells(Rows.Count, 3).End(3).Row).Value

For i = 1 To UBound(a)
    v = a(i, 1)
    If dc.exists(v) Then
        a(i, 1) = dc(v)
    Else
        a(i, 1) = ""
    End If
Next i

s2.[M3].Resize(UBound(a)) = a

MsgBox "İşlem Bitti.", vbInformation
End Sub

 

[zehfeysal]

Ziynettin bey katkılarınızdan dolayı teşekkür ederim .Fakat formül ile yapmak istiyorum,eğer formül ile destek olabilirseniz sevinirim.

 

[zehfeysal]

Sayın arkadaşlar yukarıdaki dosyama formüllü olarak katkıda bulunmak imkanınız varmı acaba
iyi çalışmalar.

 

[Ziynettin]

=EĞERSAY('OTOMSY FİLO'!A:A;C3)

 

[zehfeysal]

Sayın Üstad ziynettin bey katkılarınızdan dolayı çok teşekkür ederim.