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

[1903emre34@gmail.com]

Merhaba,
"Numara" altında yer alan noları ,"B" sütündaki FATURA kelimesinden önceki sıra no- ları "D" ve "E" sütündaki karşılaştırıp, olmayanları diğer sayfa aktamak için makro yoluyla yapılmasını istiyorum, istenen sayfa2 de yapılmıştır.

http://www.dosya.tc/server14/0aqqf4/Kitap1.xlsx_excel_.zip.html

 

[turist]

Sayfa2 nin Sayfa Kodu bölümüne aşağıdaki kodu uygulayıp, sonucu izleyin.

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