Sayfalarda karşılaştırma yapılması hk.

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sayfa2 nin Sayfa Kodu bölümüne aşağıdaki kodu uygulayıp, sonucu izleyin.
Kod:
Private Sub Worksheet_Activate()
Set s1 = Sheets("Sayfa1")
Application.ScreenUpdating = False
Range("A2:B65500").ClearContents
son = s1.Range("A65500").End(xlUp).Row
y = 2
For i = 2 To son
Dim ap As Long
ap = Application.WorksheetFunction.CountIfs(Sheets("Sayfa1").Range("D:D"), Sheets("Sayfa1").Cells(i, "A").Value, Sheets("Sayfa1").Range("E:E"), Sheets("Sayfa1").Cells(i, "B").Value)
If ap = 0 Then
Cells(y, 1) = s1.Cells(i, 1)
Cells(y, 2) = s1.Cells(i, 2)
y = y + 1
End If
Next i
Application.ScreenUpdating = True
End Sub
 
Üst