Sayfa1 ve Sayfa2'yi karsilastir

[lapot]

Merhaba arkadaslar
Excelde Sayfa1 A sutunundaki sayailari , Sayfa2 de ki E sutunundaki sayilarla karsilastirip , farkli olan sayinin butun sirasini Sayfa3'e nasil kopyalayabilirim?
Asagidaki kodu calistiramadim.

saygilar

Sub RunMe()
Dim lRow, x As Long

Sheet1.Select
lRow = Range("A1").End(xlDown).Row

For Each cell In Range("A2:A" & lRow)
x = 2
Do
If cell.Value = Sheet2.Cells(x, "E").Value Then
Exit For
End If
x = x + 1
Loop Until IsEmpty(Sheet2.Cells(x, "E"))
cell.EntireRow.Copy Sheet3.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Next

End Sub

 

[vardar07]

Mümkünse örnek dosyanızı ekler misiniz. Dosya yapınıza göre çözüm bulalım.

 

[lapot]

Her keze oncelikle bas sagligi ve huzur diliyorum

ornek dosya ekte

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Sheet1'deki numara Sheet2'de yoksa Sheet'3'e aktarır:

Sub difference()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
Set s3 = Sheets("Sheet3")

son1 = s1.Cells(Rows.Count, "A").End(3).Row
son2 = s2.Cells(Rows.Count, "E").End(3).Row

s1.[A1:D1].Copy s3.[A1]

For i = 2 To son1
    If WorksheetFunction.CountIf(s2.Range("E2:E" & son2), s1.Cells(i, "A")) = 0 Then
        yeni = s3.Cells(Rows.Count, "A").End(3).Row + 1
        s1.Range("A" & i & ":D" & i).Copy s3.Cells(yeni, "A")
    End If
Next

End Sub

 

[lapot]

Cok tesekkurler, harika calisti.

saygilarimi sunuyorum