sayfaları bir sayfada toplamak

[Oner Kurukuz]

Merhaba.

Daha önce burda böyle bir konu olduğunu hatırlıyorum. ancak bulamadım.
sanırım eski konular ve ekli dosyaları belli bir zaman sonra siliniyor.


bir excel dosyam var ve içinde ürün ağaçlarımı içeren sayfalar var.
yani her sayfada bir ürün ağacım var.

dolayısıyla 130 sayfa falan yapıyor. 50 şer 60 ar satırlık herbiri.

bu sayfaları tek bir sayfada toplayabileceğim bir makro kodu vardı.
ne hatırlayabiliyorum ne de burda bulabiliyorum.

bir yardım lütfen.

 

[Orion1]

Bir örnek dosya eklerseniz sorunuz hemencecik çözülecektir diye düşünüyorum.

 

[tahsinanarat]

Böyle bir konu not almıştım,

Ekteki örneği inceleyiniz, böyle bir şey miydi?

 

[Oner Kurukuz]

@tahsinararat

bu dosya büyük ihtimal işimi görecek.
Yarın şirkette bir denerim.
Eğer olmaz ise yazarım buraya ama olacağını düşünüyorum.

Teşekkürler.

 

[noname77]

iyi akşamlar

konuya benzer bir sorum olacaktı. mesela içinde 50 sheet lik bir excel dosyasının sadece 30 sheetinin bilgisi her sayfada örnek veriyorum a1:b10 hücre aralığındaki verileri tek bir sayfaya toplamak mümkün müdür?
saygılarımla

 

[Oner Kurukuz]

@tahsinanarat

dostum bo formul işimi gördü, yalnız sayfadaki tüm veriyi alması yerine sadece a-b-c-d-e sütunlarını alsa daha iyi olur.

Yani sütun sınırlamasını nasıl yapabilirim?

 

[tahsinanarat]

Son sutunu "Z" yerine "E" olarak değiştirilmelidir.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Sayfa4").Select
Range("A2:E65536").ClearContents
For i = 1 To Sheets.Count - 1
SonSatır = Sheets(i).[A65536].End(3).Row
Satır = [A65536].End(3).Row + 1
Sheets(i).Range("A2:E" & SonSatır).Copy Range("A" & Satır)
Next i
SonSatır = [A65536].End(3).Row
Range("A2:E" & SonSatır).Sort Key1:=[E2], order1:=xlAscending
End Sub

 

[tahsinanarat]

Başka bir altarnatif

Sub AKTAR()
Dim SON, I As Long
Sheets("Sayfa1").[A1:E5000].Clear
For I = 2 To Sheets.Count
Sheets(I).[A1].CurrentRegion.Copy
SON = Sheets("Sayfa1").Cells(65536, "A").End(3).Row
Sheets("Sayfa1").Cells(SON, "A").PasteSpecial
Range("a1").Select
Next
End Sub
Sayfa1 de toplar ('her ikisini de test ettim de, ilk verdiğim daha kullanışl&#305

 

[Oner Kurukuz]

Teşekkür ediyorum.
Ellerin dert görmesin üstad...