aşağıdaki kodla verileri ikinci sayfaya kopyalatıyorum ama kopyalanacak veriler son kopyalananla aynı ise bir uyarı vermesini kabul edilirse yeniden kopyalanmasını istiyorum yardımcı olursanız sevinirim.
Kod:
Sub aktar()
sat = WorksheetFunction.CountA(Sheets(2).[a2:a65536]) + 1
MsgBox "Sayfa2'ye kayıt yapılsın mı?", 32 + 4, "ONAY"
Application.ScreenUpdating = False
If Sheets(2).Cells(sat, 1).Value = Sheets(1).Range("a1").Value And Sheets(2).Cells(sat, 2).Value = Sheets(1).Range("b1").Value And Sheets(2).Cells(sat, 3).Value = Sheets(1).Range("c1").Value And Sheets(2).Cells(sat, 4).Value = Sheets(1).Range("d1").Value Then
GoTo 20
Else
Sheets(1).Range("a2:d2").Copy
Sheets(2).Cells(sat + 1, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Kayıt yapıldı."
End If
20 End Sub