Sayfalardan istediğim veriyi tek bir sayfaya getirme

[soykan]

Yıllara göre satışları tuttuğumuz bir dosyamız var. Bunlar ayrı ayrı sayfalarda. Rapor Sayfamızda ilgili ismi yazdığımızda 2008, 2009, 2010 daki satışları alt alta getirsin istiyoruz. Makro ile nasıl yapabilirim. Dosya ekte.
Teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub raporla()
s = 2
Sayfa4.[a2:m1000] = ""
For i = Sheets.Count To 1 Step -1
For sat = 2 To Sheets(i).Cells(65536, "a").End(xlUp).Row
    If Sayfa4.[a1] = Sheets(i).Cells(sat, "a") Then
        Sheets(i).Cells(sat, "a").EntireRow.Copy Cells(s, "a")
        s = s + 1
    End If
Next
Next
End Sub

 

[ynmcan]

Syn. Soykan;
Ekteki dosyayı inceleyin.

Private Sub CommandButton1_Click()
Sheets("Rapor").Range("A2:N222") = ""
For s = 2 To Sheets.Count
For sat1 = 2 To Sheets(s).Cells(65536, "A").End(xlUp).Row
For i = 1 To 13
sat = Sheets("Rapor").Cells(65536, "N").End(xlUp).Row + 1
Sheets("Rapor").Cells(sat, 1) = Sheets(s).Name
Sheets("Rapor").Cells(sat, i + 1) = Sheets(s).Cells(sat1, i)
Next i
Next sat1
Next s
End Sub

 

[ynmcan]

Syn. Soykan;
Sorunuzu yanlış anlamışsım.
dosyayı yeniden düzenledim.
Ekteki dosyayı inceleyin.