mükerrer sayıları nasıl listelerim ?

[seri2121]

merhaba ben verecegim a v b stunlardakı sayıların yanlızca mukerrer olanlarını c stununda görmek istiyorum mumkunmu bu ?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki formül sanırım işinizi görür.

=A2=B2

DOĞRU yazanlar mükerrer kayıtlardır.

 

[seri2121]

peki bun sayılar farklı satırlarda olsalar

 

[Korhan Ayhan]

Merhaba,

Bu durumda saydırma işlemi yaparak kontrol edebilirsiniz. Aşağıdaki formül A sütunundaki verileri B sütununda sayar. Sıfırdan farklı olan sonuçlar mükerrer olan kayıtlardır.

=EĞERSAY(B:B;A2)

 

[seri2121]

teşekkurler yardımlarınız için ama istediğim bu değil a1 ve b1 stunlarındaki sayıların a1 veya b1 satırlarının hangisinde olursa olsun karşılaştırımp o iki sutunda bulunan aynı sayıları c stununda gostermesi

 

[Ömer]

teşekkurler yardımlarınız için ama istediğim bu değil a1 ve b1 stunlarındaki sayıların a1 veya b1 satırlarının hangisinde olursa olsun karşılaştırımp o iki sutunda bulunan aynı sayıları c stununda gostermesi

Merhaba,

Module kopyalayıp çalıştırın.

Sub MukerrerListele()
 
    Dim i As Long, c As Range, Wf As WorksheetFunction
    Dim sutun1 As Byte, sutun2 As Byte, sat As Long
 
    Set Wf = WorksheetFunction
 
    Application.ScreenUpdating = False
 
    If Wf.CountA([A:A]) < Wf.CountA([B:B]) Then
        sutun1 = 1: sutun2 = 2
    Else
        sutun1 = 2: sutun2 = 1
    End If
 
    Range("C2:C" & Rows.Count).ClearContents
 
    sat = 2
    With Columns(sutun2)
        For i = 2 To Cells(Rows.Count, sutun1).End(xlUp).Row
            Set c = .Find(Cells(i, sutun1), , xlValues, xlWhole)
            If Not c Is Nothing Then
                Cells(sat, "C") = Cells(c.Row, sutun1)
                sat = sat + 1
            End If
        Next i
    End With
 
    Application.ScreenUpdating = True
End Sub

Veri aralığı fazla olursa formüllü çalışmada hız problemi yaşarsınız diye formülle yapmadım. Eğer isterseniz formülle de yaparım.

 

[Korhan Ayhan]

Merhaba,

Ekli dosyada formülle çözümü bulabilirsiniz.