Bir çok sayfadan tek sayfaya veri aktarımı???

[talip]

Kolay gelsin arkadaşlar,

Bir dosyada birbirinin aynı 50 satırlık 30'a yakın sayfanın tek sayfada alt alta sıralanmasını nasıl yapabilirim.???

İlgilenen arkadaşlara şimdiden teşekküederim.

 

[Levent Menteşoğlu]

Sayfaları "Sayfa1" isimli sayfada topladığınızı düşünürsek aşağıdaki kodu deneyin.

Sub listele()
For a = 1 To Sheets.Count
If Sheets(a).Name = "Sayfa1" Then GoTo 10
Sheets("sayfa1").Rows(c + 1 & ":" & c + 50) = Sheets(a).Rows("1:50").Value
c = c + 50
10 Next
End Sub

 

[talip]

sn. leventm

Verdiğiniz kod için çok teşekkürederim.