[Yardım]  Aynı çalışma kitabındaki 8 farklı sheeti birleştirme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Aynı çalışma kitabındaki 8 farklı sheeti birleştirme

İleti#1)  ysfakturk » 13 Haz 2022 12:15

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
Kullanıcı avatarı
ysfakturk
 
Kayıt: 13 Haz 2022 11:53
Meslek: Kimyager
Yaş: 32
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Aynı çalışma kitabındaki 8 farklı sheeti birleştirme

İleti#2)  yusuf43 » 13 Haz 2022 13:30

Örnek çalışma gönderiyorum kendine göre uyarla kolay gelsin.
Kullanıcı avatarı
yusuf43
Site Dostu
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 46
İleti: 748
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Aynı çalışma kitabındaki 8 farklı sheeti birleştirme

İleti#3)  yusuf43 » 13 Haz 2022 13:32

Kusura bakma dosyayı unutmuşum şimdi ekledim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yusuf43
Site Dostu
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 46
İleti: 748
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Aynı çalışma kitabındaki 8 farklı sheeti birleştirme

İleti#4)  dogankarun » 13 Haz 2022 13:44

ysfakturk yazdı: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/
Kullanıcı avatarı
dogankarun
Yeni Başlamış
 
Kayıt: 01 Arl 2017 10:58
Meslek: Tıbbi Sekreter
Yaş: 37
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KONYA / Karatay

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Aynı çalışma kitabındaki 8 farklı sheeti birle

İleti#5)  ysfakturk » 13 Haz 2022 15:33

yusuf43 yazdı: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.
Kullanıcı avatarı
ysfakturk
 
Kayıt: 13 Haz 2022 11:53
Meslek: Kimyager
Yaş: 32
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Aynı çalışma kitabındaki 8 farklı sheeti birleştirme

İleti#6)  yusuf43 » 13 Haz 2022 15:36

Örnek çalışmanı gönderirsen daha iyi olur.
Kullanıcı avatarı
yusuf43
Site Dostu
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 46
İleti: 748
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Aynı çalışma kitabındaki 8 farklı sheeti birle

İleti#7)  ysfakturk » 13 Haz 2022 16:11

dogankarun yazdı:
ysfakturk yazdı: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.
Kullanıcı avatarı
ysfakturk
 
Kayıt: 13 Haz 2022 11:53
Meslek: Kimyager
Yaş: 32
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google Adsense [Bot] ve 5 misafir

Bumerang - Yazarkafe