Yardım Çalışma kitaplarındaki verileri tek bir çalışma kitabına toplama

goofy

Yeni Üye
Katılım
2 May 2019
Mesajlar
7
Puanları
1
Yaş
50
Konum
Tekirdağ
Ad Soyad
Hamdi KURAL
Elimdeki dosyada farklı çalışma kitaplarının aynı satırlarında bulunan verilerini tek bir çalışma kitabına alt alta getirmek istiyorum. Dosyaya sürekli yeni çalışma kibabı ilave ediliyor (isimleri sheet1, sheet2 vb. gibi değil, yeniden adlandırılmış durumda). Bunu makroyla nasıl yapabiliriz. Teşekkürler.
 

goofy

Yeni Üye
Katılım
2 May 2019
Mesajlar
7
Puanları
1
Yaş
50
Konum
Tekirdağ
Ad Soyad
Hamdi KURAL
Merhaba, excel dosyası içinde değişik adlardaki yüzlerce çalışma kitabı (sheets) içindeki aynı satırda bulunan bilgileri tek bir çalışma kitabına otomatik olarak almak istiyorum.
Örnek dosyada özet çalışma kitabına diğer çalışma kitaplarında 2'nci satırda bulunan bilgilerin tek tek kopyalamadan gelmesini istiyorum. Dosyaya eklenen her bir yeni çalışma sayfasının 2'nci satırındaki bilgilerin otomatik olarak özet çalışma sayfasına gelmesini gerekmekte. Özet çalışma kitabına en uzak olan çalışma kitabının 2'nci satırındaki bilgiler özet çalışma kitabının 2'nci satırına gelecek, bir solundaki çalışma kitabının 2'nci satırındaki bilgiler özet çalışma kitabının 3'ncü satırına gelecek vb... devam edecek.
Bu konuda makro veya başka bir şekilde kullanılabilecek bir yol var mı? (yalnız çözüm makrodaysa bu konuda bilgim az olduğundan detaylı anlatırsanız sevinirim).
İlgi ve alakanız için şimdiden teşekkürler.
 

Ekli dosyalar

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,097
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Diğer sayfalarda şu an sadece 2. satırda veri var, o veriler 3-4-5-6- vs. alt alta ilerleyecek mi peki?
Yoksa her seferinde, her sayfanın 2. satırındaki verileri özet sayfasına almak mı istiyorsunuz?
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,097
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Diğer sayfaların A2:F2 aralığındaki verilerini Özet sayfasında alt alta listelemek için bu kodları kullanabilirsiniz.
PHP:
Sub Osma()
    Dim syf%
    For syf = 2 To Sheets.Count
       Range("A65536").End(3)(2, 1).Resize(, 6) = Sheets(syf).Range("A2:F2").Value
    Next syf
    syf = Empty
End Sub
 

goofy

Yeni Üye
Katılım
2 May 2019
Mesajlar
7
Puanları
1
Yaş
50
Konum
Tekirdağ
Ad Soyad
Hamdi KURAL
Diğer sayfalarda şu an sadece 2. satırda veri var, o veriler 3-4-5-6- vs. alt alta ilerleyecek mi peki?
Yoksa her seferinde, her sayfanın 2. satırındaki verileri özet sayfasına almak mı istiyorsunuz?
Merhaba, eklenecek her bir yeni sayfanın hep 2.satırındaki veriler özet çalışma kitabına aktarılacak. aşağıda bir kod yazmışsınız deneyip döneceğim.
Şimdiden ilginize teşekkürler.
 

goofy

Yeni Üye
Katılım
2 May 2019
Mesajlar
7
Puanları
1
Yaş
50
Konum
Tekirdağ
Ad Soyad
Hamdi KURAL
Denedin çok güzel çalışıyor, elinize sağlık. Ancak, yeni bir sheet ekleyip makroyu çalıştırdığımda tüm sheetlerdeki bilgiler tekrar en alta kopyalanıyor. Makroyu ilk çalıştırmada sorun yok (örnek dosyadaki gibi) ama yeni sheetler eklediğimde özet sheette daha önce kopyalanmış olan satırların altına tekrardan tüm diğer sheetlerin verileri bir daha geliyor.
Münkünse makroyu çalıştırdığım her seferinde özet dışındaki diğer (yeni eklenen sheetlerde dahil) sheetlerin 2.satırındaki veriler gelsin ama dublikasyon olmasın.
Teşekkürler emeğinize tekrar.
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,097
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Bu kodu kullanın..
PHP:
Sub Osma()
    Dim syf%
    Range("A2:F65536").ClearContents
    For syf = 2 To Sheets.Count
       Range("A65536").End(3)(2, 1).Resize(, 6) = Sheets(syf).Range("A2:F2").Value
    Next syf
    syf = Empty
End Sub
 

goofy

Yeni Üye
Katılım
2 May 2019
Mesajlar
7
Puanları
1
Yaş
50
Konum
Tekirdağ
Ad Soyad
Hamdi KURAL
Bu kodu kullanın..
PHP:
Sub Osma()
    Dim syf%
    Range("A2:F65536").ClearContents
    For syf = 2 To Sheets.Count
       Range("A65536").End(3)(2, 1).Resize(, 6) = Sheets(syf).Range("A2:F2").Value
    Next syf
    syf = Empty
End Sub
 

goofy

Yeni Üye
Katılım
2 May 2019
Mesajlar
7
Puanları
1
Yaş
50
Konum
Tekirdağ
Ad Soyad
Hamdi KURAL
Tekrar Merhaba,
Formül bu şekliyle tamda istediğim gibi çalışıyor, teşekkür ederim.
Range'i 3.satırda A2:F65536 yerine A2:K65536 ve 5.satırda A2:F2 yerine A2:K2 olarak düzeltiyorum ama yine F2'den sonraki verileri getirmiyor (F2:K2 arasındaki veriler).
Bu konuda da yardımcı olabilir misiniz lütfen.
 

goofy

Yeni Üye
Katılım
2 May 2019
Mesajlar
7
Puanları
1
Yaş
50
Konum
Tekirdağ
Ad Soyad
Hamdi KURAL
Birde diğer sheetlerden "özet" sheetine verileri getiriyor ama veriler içinde var olan tarihlerin formatını bozuyor (14.05.2019 yerine 43870 vb.). Hücre biçimlendirden de denebim ama düzelmiyor maalesef:(((
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,097
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Koddaki bu kısımda bulunan Resize(, 6) 6 sayısını bu kod için 6. sütun olarak düşünebilirsiniz.
K sütunu kaçıncı sütun ise o numarayı yazın buraya, o zaman gelir.
 
Üst Alt