Satırdaki verileri diğer sayfa'da sıralamak

[M.ACAR]

Ekli dosyada 01.12 isimli sayfadaki verileri RAPOR Sayfa'sına sıralamasını istiyorum,makro ile yapılabilirmi?

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

01.12 sayfasının C8 satırından sonra hücrelerde herhangi bir değişiklik yapıldığında tüm bilgiler otomatik olarak RAPOR sayfasına listelenecektir.

Sub Raporla()
Set s1 = Sheets("01.12")
Set s2 = Sheets("RAPOR")
Dim i, j, sira
s2.Range("a2:e5000").ClearContents
For i = 3 To s1.[IV3].End(1).Column
    urunkodu = s1.Cells(3, i).Value
    proje = s1.Cells(5, i).Value
    uruntanimi = s1.Cells(7, i).Value
    sira = 1
        For j = 8 To s1.Cells(65536, i).End(3).Row
            
            sat = s2.[a65536].End(3).Row + 1
            emalzeme = s1.Cells(j, i).Value
            sira = j - 7
            s2.Cells(sat, "a").Value = sira
            s2.Cells(sat, "b").Value = urunkodu
            s2.Cells(sat, "c").Value = proje
            s2.Cells(sat, "d").Value = uruntanimi
            s2.Cells(sat, "e").Value = emalzeme
            
        Next j
Next i
'MsgBox "Bitti"
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[M.ACAR]

Sayfalardaki verileri RAPOR sayfasına almak

Sayın:Recep İPEK ilk sorduğum sorunun cevabını aldım,çok teşekkür ederim;
Fakat ilk sorumu eksik sormuşum,dosya içinde açıklama yaptım,buna göre bir düzenleme yapabilirmisiniz,

 

[M.ACAR]

Güncelleme....

 

[M.ACAR]

İyi Akşamlar : Bu kodlarda nasıl değişiklik yapılırsa,sornum çözülür,yardım edermisiniz.?