Sırayla sayfadan sayfaya veri aktarımı

[ilhaan]

Arkadaşlar, ekli dosyada da açıklamasını yaptığım gibi sayfadan sayfaya sırasıyla veri aktarımı yapmak istiyorum. Silinen verininde diğer sayfadan o satırla beraber silinmesini istiyorum. Yardımlarınız için teşekkürler...

 

[İhsan Tank]

Arkadaşlar, ekli dosyada da açıklamasını yaptığım gibi sayfadan sayfaya sırasıyla veri aktarımı yapmak istiyorum. Silinen verininde diğer sayfadan o satırla beraber silinmesini istiyorum. Yardımlarınız için teşekkürler...

merhaba
boş bir module kopyalayın ve deneyin

Option Explicit
Sub çift_aktar()
Dim ts, kaplan, trabzonspor
Dim sayfa3
kaplan = MsgBox("Verileri Aktarıyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
Sheets("Sayfa3").Range("A2:F65536").ClearContents
sayfa3 = Sheets("Sayfa3").Range("A65536").End(xlUp).Row
trabzonspor = sayfa3 + 1
For ts = 4 To Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
Sheets("Sayfa3").Range("A" & trabzonspor).Value = _
Sheets("Sayfa1").Cells(ts, "A")
Sheets("Sayfa3").Range("B" & trabzonspor).Value = _
Sheets("Sayfa1").Cells(ts, "B")
Sheets("Sayfa3").Range("C" & trabzonspor).Value = _
Sheets("Sayfa1").Cells(ts, "C")
Sheets("Sayfa3").Range("D" & trabzonspor).Value = _
Sheets("Sayfa1").Cells(ts, "D")
Sheets("Sayfa3").Range("E" & trabzonspor).Value = _
Sheets("Sayfa1").Cells(ts, "E")
Sheets("Sayfa3").Range("F" & trabzonspor).Value = _
Sheets("Sayfa1").Cells(ts, "F")
trabzonspor = trabzonspor + 1
Next
For ts = 5 To Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row
Sheets("Sayfa3").Range("A" & trabzonspor).Value = _
Sheets("Sayfa2").Cells(ts, "A")
Sheets("Sayfa3").Range("B" & trabzonspor).Value = _
Sheets("Sayfa2").Cells(ts, "B")
Sheets("Sayfa3").Range("C" & trabzonspor).Value = _
Sheets("Sayfa2").Cells(ts, "C")
Sheets("Sayfa3").Range("D" & trabzonspor).Value = _
Sheets("Sayfa2").Cells(ts, "D")
Sheets("Sayfa3").Range("E" & trabzonspor).Value = _
Sheets("Sayfa2").Cells(ts, "E")
Sheets("Sayfa3").Range("F" & trabzonspor).Value = _
Sheets("Sayfa2").Cells(ts, "F")
trabzonspor = trabzonspor + 1
Next
MsgBox "Verileri Aktardım", vbInformation, "Bitiş"
End Sub