Sayfa1 deki verileri Sayfa2 ye kaydetme

[manisalı88]

Merhaba arkadaşlar. Sayfa1 de yazdığım verileri Sayfa2 ye kaydetmesini istiyorum. No ve adı soyadı bilgileri yazacağım. Yazdıgım her kişinin üst kısımdaki verileri ortak olacak(okul sınıf ders vs). Bana yardımcı olabilir misiniz

 

[EmrExcel16]

Merhaba

Bir modül ekleyip aşağıdaki kodu ekleyip kaydet butonuna bu makroyu atayın

Sub aktar()

Dim i As Integer, son As Integer

son = Sheets("Sayfa2").Cells(Rows.Count, "A").End(xlUp).Row + 1

For i = 6 To Cells(Rows.Count, "A").End(xlUp).Row
    
    Sheets("Sayfa2").Cells(son, "A").Value = Cells(i, "A").Value
    Sheets("Sayfa2").Cells(son, "B").Value = Cells(i, "B").Value
    Sheets("Sayfa2").Cells(son, "C").Value = Cells(3, 1).Value
    Sheets("Sayfa2").Cells(son, "D").Value = Cells(3, 2).Value
    Sheets("Sayfa2").Cells(son, "E").Value = Cells(3, 3).Value
    Sheets("Sayfa2").Cells(son, "F").Value = Cells(3, 4).Value
    son = son + 1
    
Next
Range("A6:B1000").ClearContents
End Sub

 

[manisalı88]

Tesekkur ederim cok sagolun

 

[EmrExcel16]

Rica ederim iyi çalışmalar.