Aşağıdaki kodu sayfa1 in kod sayfasına kopyalayarak deneyin.
[vb:1:e7c86d8f45]Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target = 0 Then Exit Sub
If Intersect(Target, [d2:d65536]) Is Nothing Then Exit Sub
sat = Sheets("sayfa2").[a65536].End(3).Row + 1
For a = 1 To 4
Sheets("sayfa2").Cells(sat, a) = Cells(Target.Row, a)
Next
Rows(Target.Row).Delete
End Sub[/vb:1:e7c86d8f45]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.