- Katılım
- 23 Ocak 2021
- Mesajlar
- 14
- Excel Vers. ve Dili
- 2016 Türkçe
Merhaba,
Birden fazla excel sayfası içeren bir excel dosyam var. Tek bir sayfada tüm veriyi toplamak istiyorum. Tüm sayfalar aynı sütünları içeriyor ama verileri farklı sayıda. elimde kodum var ama yalnızca 2 sayfayı kısıtlı sayıda birleştirebiliyor. yardımcı olabilir misiniz?
Teşekkürler
Birden fazla excel sayfası içeren bir excel dosyam var. Tek bir sayfada tüm veriyi toplamak istiyorum. Tüm sayfalar aynı sütünları içeriyor ama verileri farklı sayıda. elimde kodum var ama yalnızca 2 sayfayı kısıtlı sayıda birleştirebiliyor. yardımcı olabilir misiniz?
Teşekkürler
Sub SayfalariBirlestir()
Dim i As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Ana"
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").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