ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[ysfakturk]

Merhaba arkadaşlar,

Bir excel dosyasında 8 farklı sheetim mevcut. VBA makrosu ile tüm sheetleri tek bir sheet altında alt alta gelecek şekilde toplamak istiyorum .
Forumda araştırarak aşğıdaki kodu denedim range aralıklarını değiştirerek denedim fakat işime yaramadı. ,
Farklı bir kod için yardımcı olabilir misiniz?

Kod: Tümünü seç

Sub SayfalariBirlestir()
Dim i As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Results"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.copy Destination:=Sheets(1).Range("A2")
For i = 2 To Sheets.Count
Sheets(i).Activate
Range("A1:A1000").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
Sheets("Ana").Select
End Sub

[yusuf43]

Örnek çalışma gönderiyorum kendine göre uyarla kolay gelsin.

[yusuf43]

Kusura bakma dosyayı unutmuşum şimdi ekledim.

[dogankarun]

Merhaba arkadaşlar,

Bir excel dosyasında 8 farklı sheetim mevcut. VBA makrosu ile tüm sheetleri tek bir sheet altında alt alta gelecek şekilde toplamak istiyorum .
Forumda araştırarak aşğıdaki kodu denedim range aralıklarını değiştirerek denedim fakat işime yaramadı. ,
Farklı bir kod için yardımcı olabilir misiniz?

Kod: Tümünü seç

Sub SayfalariBirlestir()
Dim i As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Results"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.copy Destination:=Sheets(1).Range("A2")
For i = 2 To Sheets.Count
Sheets(i).Activate
Range("A1:A1000").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
Sheets("Ana").Select
End Sub

Merhaba, nette bir sitede size yardımcı olabilecek bir kod buldum.

https://www.excel.web.tr/threads/sayfalardaki-verileri-alt-alta-birlestirme.162452/

[ysfakturk]

Kusura bakma dosyayı unutmuşum şimdi ekledim.

teşekkürler formulle sadece ilk 2 sheeti kopyaladı fakat geri kalan 7 sheeti kopyalanmadı. Sadece anasayfa yazısını değiştim . Range aralığınımı genişletmek gerekiyoru acaba diğer sheetleride kopyalaması için paylaşın için teşekkürler.

[yusuf43]

Örnek çalışmanı gönderirsen daha iyi olur.

[ysfakturk]

Merhaba arkadaşlar,

Bir excel dosyasında 8 farklı sheetim mevcut. VBA makrosu ile tüm sheetleri tek bir sheet altında alt alta gelecek şekilde toplamak istiyorum .
Forumda araştırarak aşğıdaki kodu denedim range aralıklarını değiştirerek denedim fakat işime yaramadı. ,
Farklı bir kod için yardımcı olabilir misiniz?

Kod: Tümünü seç

Sub SayfalariBirlestir()
Dim i As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Results"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.copy Destination:=Sheets(1).Range("A2")
For i = 2 To Sheets.Count
Sheets(i).Activate
Range("A1:A1000").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
Sheets("Ana").Select
End Sub

Merhaba, nette bir sitede size yardımcı olabilecek bir kod buldum.

https://www.excel.web.tr/threads/sayfalardaki-verileri-alt-alta-birlestirme.162452/

Merhabalar yardım için teşekkürler sitedeki kodla range aralğını genişleterek sorunu çözdüm .
Herkesin yardımı için teşekkürler.