İki listeyi karşılaştırıp aynı olanları bulma

[erkanfun]

Örnek dosya EK'tedir.

 

[Orion1]

Dosyanız ektedir.
Formül ktf dir
Kullanılışı:
=kactanevar_59(A1:B7;I1:J6)

 [CODE]Function kactanevar_59(alan As Range, ara As Range)
Dim hcr As Range, tplm As Double
For Each hcr In alan
    If hcr.Value <> "" Then tplm = tplm + WorksheetFunction.CountIf(ara, hcr)
Next
kactanevar_59 = tplm
End Function

[/CODE]

 

[erkanfun]

Makrolardan pek anlamam. Fonksiyon olarak çözümü yok mu?

 

[Orion1]

Makrolardan pek anlamam. Fonksiyon olarak çözümü yok mu?

Formül zaten.
Ancak kullanıcı tanıımlı formül (KTF)
orada vermiş olduğum kodları dosyanızda VBE'de standart bir modüle kopyalayın.
Sonra formülü girin.