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

Gata

Altın Üye
Katılım
11 Ağustos 2018
Mesajlar
271
Excel Vers. ve Dili
Excelde 2016 Türkçe
Altın Üyelik Bitiş Tarihi
21-09-2027
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 .
 

Ekli dosyalar

DoğanD

Altın Üye
Katılım
22 Eylül 2023
Mesajlar
427
Excel Vers. ve Dili
Office 365 TR
Altın Üyelik Bitiş Tarihi
05-10-2028
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.

Kod:
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
 

Gata

Altın Üye
Katılım
11 Ağustos 2018
Mesajlar
271
Excel Vers. ve Dili
Excelde 2016 Türkçe
Altın Üyelik Bitiş Tarihi
21-09-2027
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.

Kod:
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

Altın Üye
Katılım
11 Ağustos 2018
Mesajlar
271
Excel Vers. ve Dili
Excelde 2016 Türkçe
Altın Üyelik Bitiş Tarihi
21-09-2027
Merhaba;
Alternatif:
Eki deneyin.
İyi çalışmalar.
Teşekkür ederim hocam Allah sizden razı olsun selamlar Formül ile olsa daha iyi olur
 
Üst