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

Katılım
2 Mayıs 2011
Mesajlar
4
Excel Vers. ve Dili
2010 türkçe
merhaba ben verecegim a v b stunlardakı sayıların yanlızca mukerrer olanlarını c stununda görmek istiyorum mumkunmu bu ?
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,792
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

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

Kod:
=A2=B2
DOĞRU yazanlar mükerrer kayıtlardır.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,792
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.

Kod:
=EĞERSAY(B:B;A2)
 
Katılım
2 Mayıs 2011
Mesajlar
4
Excel Vers. ve Dili
2010 türkçe
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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.

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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,792
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

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

Ekli dosyalar

Üst