Sırayla sayfadan sayfaya veri aktarımı

Katılım
16 Aralık 2007
Mesajlar
127
Excel Vers. ve Dili
excel 2000
Altın Üyelik Bitiş Tarihi
14-03-2023
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...
 

Ekli dosyalar

İ

İhsan Tank

Misafir
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
Kod:
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
 
Üst