Çalışma Kitabı Sayfalarından Veri Çekme

[manahos]

Merhaba;
Yapmak istediğim 4 Sayfalık bir Excel Çalışma Kitabı içerisindeki bilgileri Rapor Yazan sayfaya çekmek. Rapor Sayfasına o sayfada yazan kalemleri alt alta Liste yapması lazım.
Saygılar.
https://drive.google.com/open?id=0Bya50imCgrhNVkl1dWQ0bS1YRG8

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. RAPOR sayfası haricindeki sayfalarda B2 hücresinde "GİDERLER" yazan sayfaların verilerini RAPOR sayfasına taşır:

Sub aktar()

Set s1 = Sheets("RAPOR")

For i = 1 To Sheets.Count

If Sheets(i).Name <> s1.Name And Sheets(i).[B1] = "GİDERLER" Then
son = Sheets(i).Cells(Rows.Count, "B").End(3).Row
yeni = s1.Cells(Rows.Count, "B").End(3).Row + 1

Sheets(i).Range("A2:C" & son).Copy s1.Cells(yeni, "A")

End If
Next
End Sub

 

[manahos]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. RAPOR sayfası haricindeki sayfalarda B2 hücresinde "GİDERLER" yazan sayfaların verilerini RAPOR sayfasına taşır:

Sub aktar()

Set s1 = Sheets("RAPOR")

For i = 1 To Sheets.Count

If Sheets(i).Name <> s1.Name And Sheets(i).[B1] = "GİDERLER" Then
son = Sheets(i).Cells(Rows.Count, "B").End(3).Row
yeni = s1.Cells(Rows.Count, "B").End(3).Row + 1

Sheets(i).Range("A2:C" & son).Copy s1.Cells(yeni, "A")

End If
Next
End Sub

İlginiz İcin teşekkür ederim. Peki formülle yapma imkanım varmıdır. Makrolar bazen sıkıntı çıkarabiliyor