birden fazla sayıda excel dosyasını tek dosya altında toplama

[nrcn981]

Merhaba,

acil yardımınıza ihtiyacım var

c:\Jan08\içerisinde 01,02,03,04.. gibi isimleri birbirini takip eden çok sayıda excel dosyam var bunların hepsini yeni bir excel dosyası içerisinde alt sayfalar olarak görmek ve tüm sayfaları seçerek bir sayfada kağıt uyarlaması veya benzeri değişiklikler yaparak tüm sayfalarda uygulamam gerekiyor ayrıca ayrıca verilerin tek dosyada toparlanması açısından çok işime yarayacak.
umarım çözümü vardır

şimdiden teşekkürler
nrcn

 

[Korhan Ayhan]

Selamlar,

Dosyalarınızın birer örneğini eklermisiniz. Birleştirilmesini istediğiniz örnek dosya formatınıda eklerseniz çözüme kolaylıkla ulaşabiliriz.

 

[tahsinanarat]

Farklı xls dosyalarını birleştirme

C:\DOSYALAR klasörüne birleştirmek istediğiniz xls dosyalarının bir kopyasını koyunuz. Ekteki dosyayı çalıştırın. Kolay gelsin

 

[S.Yiğit]

C:\DOSYALAR klasörüne birleştirmek istediğiniz xls dosyalarının bir kopyasını koyunuz. Ekteki dosyayı çalıştırın. Kolay gelsin

Sy tahsinanarat çok güzel bir çalışma, Teşekkürler..

Birşey sormak istiyorum. Benim excellerimin içinde birden fazla sayfa var. Haftanın 7 günü olan excel sayfalarım var bunlarda ilk sayfayı baz alıyor hepsini aldırması için ne yapabiliriz..

 

[tahsinanarat]

Modüldeki kodun aşağıdaki satırda bulunan sheets(1) yazılı yeri Worksheets olarak değiştirin. Not. birleştireceğiniz dosya içerisindeki sayfa isimlerinin farklı olması gerekli, aynı isimle varsa birini alır. ayrıca her çalışma kitabının birinci sayfa ismi çalışma kitabı ismini verecektir.
AKTARILACAK_DOSYA.sheets(1).Copy After:=ANA_DOSYA.Sheets(ANA_DOSYA.Sheets.Count)

AKTARILACAK_DOSYA.Worksheets.Copy After:=ANA_DOSYA.Sheets(ANA_DOSYA.Sheets.Count)

 

[dadashiko]

Sy tahsinanarat
AKTARILACAK_DOSYA.sheets(1).Copy After:=ANA_DOSYA.Sheets(ANA_DOSYA.Sheets.Count)

AKTARILACAK_DOSYA.Worksheets.Copy After:=ANA_DOSYA.Sheets(ANA_DOSYA.Sheets.Count)
BU KODLARI NEREYE YAZACAZ

 

[dadashiko]

Sy tahsinanarat bey
AKTARILACAK_DOSYA.sheets(1).Copy After:=ANA_DOSYA.Sheets(ANA_DOSYA.Sheets.Count)

AKTARILACAK_DOSYA.Worksheets.Copy After:=ANA_DOSYA.Sheets(ANA_DOSYA.Sheets.Count)
bunları nasıl nereye koyacaz

 

[tahsinanarat]

3.mesajımdaki dosyayı güncelledim. Modül içerisindeki kodda bulunan (sheets(1) kelimesi Worksheets kelimesi ile değiştirilmesini kastetmiştim

 

[nkuter]

Dosyalarımı birleştirip arama yaptıramıyorum

arkadaşlar merhaba,
ben de bu forumda henüz yeniyim. bir derdim var ama bir türlü çare bulamıyorum, yardımcı olabilirseniz sevinirm. hesaplarımı tuttuğum ocak, şubat, mart gibi excel dosyalarım var ve hepsinde de 1,2,3,4,5 diye ayrı ayrı günleri belirten sayfalar var (toplam 30 ya da 31 sayfa). bazen bir müşterime ait alımları bişrden fazla ayda aramam gerekiyor. ama her seferinde bir ayı açıp tüm sayfalarda ara deyip kapatıp diğer ayı açıyorum. bu işlemler eğer tam olarak hangi aylarda aradığımı bilemezsem çok uzun sürüyor. buna çözüm olarak bütün kitapları birleştireyim dedim ama olmadı, çünkü sayfa isimleri aynı (1,2,3, gibi) nasıl bir yöntem izlemeliyim. veya öyle bir dosya yapılabilir mi ki, dosyayı açıp da arattığımda şu dizindeki dosyalar arasında bana "ahmet" ismi yazan satırları önüme getir diyebilecek? çok mu şey istedim bilmiyorum. ama böyle dosyalar arasında tek tek arama yapmam müşterilerimi de sıkıntıya sokuyor beni de. sonra hesabını adam gibi tutmuyorsun diyorlar. ilgilenen arkadaşlara şimdiden teşekkürlerimi sunarım

 

[tahsinanarat]

Sayfa1 de toplamaya çalıştım

Dosyanızdaki sayfaları Sayfa1'e topladım, ancak kontrolünü siz yapın, AKTAR makrosu ile sayfalar Sayfa1 de toplanıyor, ancak her sayfanın başlık kısımları da geldiği için, L1 hücresine yazdığın kelime geçen satırları sil makrosu ile başlık satırlarını silmeye çalıştım.
Ben şahsen yaptığınız işlemi tek bir VERİ sayfadı adı altında tutmaya çalışırdım, tek sayfada olduğunda hertürle sorgulama ve istatistiği almak daha kolay olurdu. Kolay gelsin

 

[bsarta]

tüm konuyu okudum fakat macro konusunda çok çok yeni olduğum için yazılan kodlarda herhangi bir değişiklik yapamıyorum. Benimde elimde birden fazla excel çalışma kitabı ve her çalışma sayfasında 30-31 sayfa var. Öncelikle her excel çalışma kitabındaki sayfaları tek sayfa altında toplamak amacım. Böylelikle işlemleri daha kolay yapabilirim. Bu konu hakkında yardımcı olabilir misiniz? Şimdiden teşekkür ederim.

 

[barmyworm]

merhaba bu dosyalar silinmiş acaba su birleştirmek için yapaılan ana dosyayı nasıl alabilirm acaba?

 

[ilkeremir]

merhaba, uzun zamandır aradığım bir konu bir çok excel çalışma kitabını bir kitapta toplandığı uygulamayı tekrar yüklemeniz mümkün müdür?
teşekkürler...

 

[tahsinanarat]

Ana Dosya güncellendi

3.Mesajında sözü edilen Ana Dosya tekrar eklenmiştir.

 

[ilkeremir]

teşekkürler...

 

[nilleen]

Veriler aktarılmıştır demesine rağmen verilerim sheet olarak yüklenmedi. Sorun ne olabilir acaba? Yardımcı olursanız sevinirm.

 

[düşünceli]

3.Mesajında sözü edilen Ana Dosya tekrar eklenmiştir.
Eklenmiş Dosyalar

ANA_ DOSYA.xls (291.5 KB, 106 Görüntülenme)
__________________



Bu çalışmayı ekleyen arkadaşın emeğine sağlık. Bu çalışma ile çalışma kitapları ekleniyor. Ancak çalışma kitaplarındaki sayfaları bütünüyle eklemiyor. Yalnızca 1. sayfalar ekleniyor. Çalışma kitaplarını sayfalarıyla beraber ekleyebilecek şekilde düzenlenmesi mümkün olurmu acaba

 

[düşünceli]

3.Mesajında sözü edilen Ana Dosya tekrar eklenmiştir.

Arkadaşlar, Excel ailesinden aldığım bilgilerle bir RESİMLİ ADRES DEFTERİ programı oluşturdum. Arkadaşlarınızla, dostlarınızla paylaşacağınız kullanışlı güzel bir program.

Kısaca özetlemem gerekirse, İsim ve adresi tel no fax no, ili ve ilçesini kaydediyorsun varsa resmi de yüklüyorsun. Ve istediğin zaman ismiyle birlikte resmi görüntülüyorsun.

Yalnız, programı açarken bazı hatalar verebilir, yani çalışmayabilir. Onun için, VBA bölümünde, Tools menüsünün, Referance altında oluşan MISSING leri kaldırmanız, yok etmeniz lazım.
Güle güle kullanın.

Paranormal.

Paylaşımınızın bu bölümdeki konuyla ne alakası var çözemedim.

 

[düşünceli]

Birleştir kodu

Birden fazla sayfaya sahip çalışma kitaplarını tek çalışma kitabında toplamaya çalışıyorum. Burada verilen anasayfa isimli çalışma çok güzel çalışma kitaplarını sorunsuz ekliyor ancak çalışma kitaplarının sayfalarını eklemiyor. Ekleyebilecek şekilde bu kod düzenlenebilirmi. Ekteki dosyamda anasayfa isimli dosyada eklenmiş olarak eklemeye çalıştığım çalışmalarımda var. Bir el atın üstadlar.​

 

[Korhan Ayhan]

Merhaba,

Birleştirme işleminin nasıl olmasını istiyorsunuz. Bu tarz işlemlerde sayfa yapılarının aynı olması işlemleri kolaylaştırır. Sizin veri alınacak dosyalarınızdaki sayfaların yapıları farklı. Bu sebeple "ANA_DOSYA" isimli dosyada sonuçları nasıl görmek istediğinizi belirtmeniz cevap almanızı hızlandıracaktır.