Çözüldü Hücredeki Değerlerden Ortak Olanları Çıkarma

[Gata]

Herkese Hayırlı Ramazanlar bu örnek 365 versiyonuna göre yapılmış olup Evde 365 ofiste 2016 kullanıyorum Eski versiyonlara göre yapabilirmisiniz .İyi günler dilerim .

 

[DoğanD]

Merhaba,

Bir Kullanıcı Tanımlı Fonksiyon ile çözüme ulaşabilirsiniz. Aşağıdaki kodları boş bir modüle ekledikten sonra Excel içerisinde '=AynilariBul(Liste1,Liste2,",")' şeklinde kullanabilirsiniz.

Function AynilariBul(Liste1 As Range, Liste2 As Range, Ayrac As String)
Dim sira, dd, i As Integer
Dim sonuc, ara As Variant
sira = 1
sonuc = ""
For i = 1 To Len(Liste1) - Len(WorksheetFunction.Substitute(Liste1, ",", ""))
dd = WorksheetFunction.Search(Ayrac, Liste1, sira)
ara = Mid(Liste1, sira, dd - sira)
If InStr(Liste2, ara) > 0 Then
sonuc = sonuc & ara & ", "
End If
sira = WorksheetFunction.Search(Ayrac, Liste1, sira) + 2
Next i
AynilariBul = Left(sonuc, Len(sonuc) - 2)
End Function

 

[muygun]

Merhaba;
Alternatif:
Eki deneyin.
İyi çalışmalar.

 

[Gata]

Merhaba,

Bir Kullanıcı Tanımlı Fonksiyon ile çözüme ulaşabilirsiniz. Aşağıdaki kodları boş bir modüle ekledikten sonra Excel içerisinde '=AynilariBul(Liste1,Liste2,",")' şeklinde kullanabilirsiniz.

Function AynilariBul(Liste1 As Range, Liste2 As Range, Ayrac As String)
Dim sira, dd, i As Integer
Dim sonuc, ara As Variant
sira = 1
sonuc = ""
For i = 1 To Len(Liste1) - Len(WorksheetFunction.Substitute(Liste1, ",", ""))
dd = WorksheetFunction.Search(Ayrac, Liste1, sira)
ara = Mid(Liste1, sira, dd - sira)
If InStr(Liste2, ara) > 0 Then
sonuc = sonuc & ara & ", "
End If
sira = WorksheetFunction.Search(Ayrac, Liste1, sira) + 2
Next i
AynilariBul = Left(sonuc, Len(sonuc) - 2)
End Function

Çok teşekkür ederim hocam Allah razı olsun sizden formül ile yapabilirmisiniz

 

[Gata]

Merhaba;
Alternatif:
Eki deneyin.
İyi çalışmalar.

Teşekkür ederim hocam Allah sizden razı olsun selamlar Formül ile olsa daha iyi olur