merhaba ben verecegim a v b stunlardakı sayıların yanlızca mukerrer olanlarını c stununda görmek istiyorum mumkunmu bu ?
Ekli dosyalar
-
8.6 KB Görüntüleme: 14
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=A2=B2
=EĞERSAY(B:B;A2)
Merhaba,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
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