ortak olanları bulma

[karakayalı]

a-b-c-d-e-f-g sutunlarda bulunan ortak olanları bulup K sutununa yazdırmak istiyorum...

A B C ....... K
5 5 5 5
8 6 9 1
1 1 1 GİBİ...kolay gelsin...

 

[Korhan Ayhan]

Selamlar,

Konuyla ilgili örnek dosya eklermisiniz.

 

[karakayalı]

dosya ektedir

 

[janveljan]

İyi akşamlar. Basit bir çözüm yazdım, formüllerin boyutlarını ayarlamak gerekecektir, kolay gelsin.

 

[karakayalı]

syn janveljan bunu makro ile yapabilirmiyiz....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub ORTAK_OLANLAR()
    Dim SAYI As Range, SATIR As Long, SÜTUN As Byte, SAYAÇ As Long
 
    Columns(11).ClearContents
    SATIR = 1
 
    For Each SAYI In Range("A1:D" & Range("A65536").End(3).Row)
        If WorksheetFunction.CountIf(Columns(11), SAYI) = 0 Then
        SAYAÇ = 0
 
        For SÜTUN = 1 To 4
            If WorksheetFunction.CountIf(Columns(SÜTUN), SAYI) > 0 Then SAYAÇ = SAYAÇ + 1
        Next
 
        If SAYAÇ = 4 Then
        Cells(SATIR, "K") = SAYI
        SATIR = SATIR + 1
        End If
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[karakayalı]

syn Korhan Ayhan, emeğiniz için teşekkürler...