Birden çok sayfayı tek bir sayfada listeleme

[DemirBilek57]

Arkadaşlar 50 tane sayfanın sadece a153:r227'ye kadar olan hüclerini tek bir sayfada listeleyebilirmiyim.sayfa adları 1.2.3.4..... diye gidiyor. Benim istediğim 1.'inci sayfadaki a153:r227 aralığını anasayfa1!a1:r74 2.'inci sayfadaki a153:r157 aralığını anasayfa1!a74:r148 gibi ama =1!a153 şeklinde değil. çünkü bu çok uzun zamanını alıyor. Yardımlarınız için şimdiden teşekkürler.

 

[Skorpiyon]

Sayın ahmetozyener2001,

Örnek bir dosya ekleyerek, ne istediğinizi üzerinde bir örnekle gösterebilir misiniz ?

 

[Ayhan Ercan]

Aşağıdaki kodları denermisiniz....

Sub test()
x = 1
For i = 2 To Sheets.Count
Sheets(i).[a153:r227].Copy Sheets("ANASAYFA").Range("a" & x)
x = x + 75
Next
End Sub

 

[muygun]

Slm.
Makro ile çözüm daha hızlı olacaktır.
Örnek olması için işlevlerle çözüm örneğini inceleyin.
İyi çalışmalar.

 

[DemirBilek57]

Arkadaşlar ilgilendiğiniz için hepinize çok teşekkür ederim.
Sanırım verdiğiniz kod işimi görecek

 

[muratkivilcim]

Arkadaşlar bu dosyayı tekrar yüklermisiniz sistemden gitmiş. Lütfen...