İki sütunda bulunan verilerden ortak olanları üçüncü sütunda nasıl toplayabilirim?

[imdeja]

çoklu veri içeren sütunlardan ortak olanları elde etmek istiyorum. formül yada makro nasıl yapılabilir?
teşekkürler

 

[Ömer]

Merhaba,

Sorunuzu örnek dosya ile destekleyip açıklarmısınız.

 

[imdeja]

forumlarda gezerken bulduğum bir örnek var ancak ben bunu nasıl yapacağımı öğrenmek istiyorum. ekteki dosyada 3 sütunda çalışılmış. teşekkürler

 

[Ömer]

forumlarda gezerken bulduğum bir örnek var ancak ben bunu nasıl yapacağımı öğrenmek istiyorum. ekteki dosyada 3 sütunda çalışılmış. teşekkürler

Bu şekilde deneyin.

Sub Ortaklari_Listele()
 
    Dim Wf      As WorksheetFunction, _
        son     As Long, _
        i       As Long, _
        sat     As Long, _
        sut     As Byte, _
        Asutun  As Byte, _
        Bsutun  As Byte, _
        Csutun  As Byte, _
        A       As Byte, _
        B       As Byte, _
        sonuc   As Byte, _
        say1    As Byte, _
        say2    As Byte
 
    Set Wf = WorksheetFunction
    son = Range("A:C").Find("*", , , , xlByRows, xlPrevious).Row
    sut = Range("A:C").Find("*", , , , xlByRows, xlPrevious).Column
    
    Range("E:E").ClearContents
    
    If Wf.CountA(Range("A:A")) > 0 Then Asutun = 1
    If Wf.CountA(Range("B:B")) > 0 Then Bsutun = 1
    If Wf.CountA(Range("C:C")) > 0 Then Csutun = 1
    
    sonuc = Asutun + Bsutun + Csutun - 1
    
    If sut = 1 Then A = 2: B = 3
    If sut = 2 Then A = 1: B = 3
    If sut = 3 Then A = 1: B = 2
 
    sat = 1
    For i = 1 To son
        If Wf.CountIf(Columns(A), Cells(i, sut)) > 0 Then say1 = 1
        If Wf.CountIf(Columns(B), Cells(i, sut)) > 0 Then say2 = 1
        If say1 + say2 = sonuc Then
            Cells(sat, "E") = Cells(i, sut)
            sat = sat + 1
            say1 = 0: say2 = 0
        End If
    Next i
    
End Sub

.

 

[imdeja]

teşekkürler. ok.