Kod Yenilendi -Birden Çok Excel Dosyasından Veri Alma ve Birleştirme

İş hayatında çoğu zaman farklı kişilerden farklı formatlarda excel dosyaları alırız ve bunları manuel olarak birleştirmek zorunda kalırız. Dosya sayısı arttıkça bu çok daha zor bir işlem olmaya başlar. İşte bu videoda bu işlemi otomatik olarak sistemli bir şekilde yapmayı ve var olan dosyalardan sadece işimize yarayan verileri çekmeyi mümkün hale getiren makro kodunu anlatmak istedim Bu şekilde hem işimizi kısaltmış oluyoruz hem de düzgün bir dataset elde etmiş oluyoruz. Ayrıca herkesin formatına karışmayarak elimizde datayı kendi kendimize oluşturuyoruz.
Bu kodun internetteki diğer kodlardan farkı şu. Elinizdeki dosyalarda veri hangi satır ya da hangi sutundan başlarsa başlasın, kodumuz dinamik şekilde bunu algılıyor ve ona göre birleştirme yapıyor. Ayrıca bulamadığı başlıkları da “Bulunamadi” şeklinde belirtiyor. Bu şekilde kodumuz aslında bize bu birleştirdiğiniz dosyalarda bu başlığın hiç olmadığını göstermiş oluyor.
Umarım işinize yarayan bir dosya olur.
Yeni dosya linki aşağıdadır. Lütfen silmeyin arkadaşlar. Herkes faydalansın
Dosya Ploat Beyin. Kendisine de teşekkür ederim. Dosyayı bizim için saklamış.
drive.google.c...

[@huseyinburaktasci1638]

Aklımdan geçen bir fikri çoktan bir proje halinde ortaya çıkarmışsınız Mehmet hocam. Emeklerinize sağlık. Sizleri ilgi ile takip ediyorum. Saygılarımla.

[@UzmanExcel]

Çok teşekkür ederim Huseyin Bey. Çok naziksiniz

[@user-ex3jt8ll4p]

Allah razı olsun Mehmet hocam

[@UzmanExcel]

Sizden de

[@huseyinbakir2017]

hocam dosyayı çalıştırdım. hakikaten efsane bir program olmuş. udemy kursunuzu sabırsızlıkla bekliyorum.

[@UzmanExcel]

Teşekkür ederim Hüseyin Bey. İşinize yaradığına sevindim

[@ilhamimetin1080]

hocam bundan 5 gün önce sizden bir ricada bulunmuş ve sizden "Bununla ilgili daha net bir video çekeceğim inşallah" cevabı gelmişti. size " inşallah en kısa sürede çekersiniz" derken içimden "inşallah 2-3 ay içinde çeker" diye geçirdim ancak siz videoyu ve kodları 2-3 gün içinde paylaşmışsınız. İlginizden dolayı çok teşekkür ederim. Kodların üstüne yorum satırı olarak "'Dugun oncesi herkese hediyem olsun :)" demişsiniz. Hediyeniz için çok teşekkür ediyor kuracağınız yuvada bir ömür boyu mutluluk ve huzur diliyorum. :)

[@UzmanExcel]

Ilhami Bey yorumunuzu eşimle beraber okuduk şu an. Çok mutlu olduk güzel dilekleriniz için. Umarım dosya sizlerin işine yarar da bizi hatırlarsiniz.

[@yasemincetasari2520]

Merhaba kodlar elinizde mevcutmu

[@ilhamimetin1080]

@@yasemincetasari2520 evet mevcut

[@yasemincetasari2520]

@@ilhamimetin1080 ilhami bey rica etsem paylasirmisiniz

[@UzmanExcel]

Sizde benimle paylaşır mısınız?

[@vedatylmaz1097]

Hocam Teşekkur ettim.. Aradığım Şey tam olarak da buydu eline sağlık..

[@UzmanExcel]

Rica ederim. Kolay gelsin

[@bulentsen8537]

Çok başarılı ve çoğu kullanıcı için güzel bir çözüm sun muşsunuz Harikasınız hocam

[@UzmanExcel]

Teşekkür ederim Bülent Bey. Çok naziksiniz

[@SaimAktas]

Dosya için teşekkürler elinize emeğinize sağlık. Düğününüzde hayırlı olsun bu sırada ....

[@UzmanExcel]

Çok teşekkür ederim Saim Bey. Çok naziksiniz. Güle güle kullanın dosyayı

[@ahmetunal5003]

Elinize sağlık çok işimize yaradı

[@UzmanExcel]

Gule gule kullanin

[@ahmetunal5003]

Excel çalışma kitabında 2 sayfa var aynı formatta 40 excell den veri çekiyorum ama hangi sayfa aktif kapatırsam o sayfaya sorgulama yapıyor diğer sayfaya bakmıyor bu yüzden Excellerdeki diğer sayfaları girip aktif etmek gerekiyor bunun bir çözümü varmıdır kodda acaba

[@UzmanExcel]

@ahmetunal5003 kodu tam hatırlamıyorum ama sayfalari da geziyordu galiba. Yoksa bir dongu de sayfalar icin oluşturmak lazim

[@ahmetunal5003]

Set wsa = Activeworkbook.Sheets(1) değiştirdim ama yine ilk sayfa da yapıp bıraktı bunu iki sayfa yapabilir miyim en azından

[@UzmanExcel]

@ahmetunal5003 dongu eklemeniz lazim

[@huseyinbakir2017]

Emeğine sağlık hocam. Dosyayı paylaştığın için de teşekkür ederiz.

[@UzmanExcel]

Teşekkür ederim Hüseyin Bey. Güle güle kullanin

[@120vetco]

@@UzmanExcel Emeğinize sağlık. Kod kaldırıldı mı?

[@UzmanExcel]

Evet. Linkteki dosyayı birisi silmiş

[@yusufayyildiz8993]

İlginiz ve emekleriniz için çok teşekkür ederim 😊

[@UzmanExcel]

Çok teşekkür ederim. Çok naziksiniz

[@yusufozgurel1309]

Hocam verdiğinz bilgiler için çok teşekkür ederim. Benim elimdeki dosyalar .csv uzantılı bu dosyaların birleştirilmesi için yardımcı olur musunuz ?

[@UzmanExcel]

Power query ya da Excelin data import araci isinizi cozecektir

[@adnanyurdakul298]

Teşekkürler. Ellerinize sağlık

[@UzmanExcel]

Ben teşekkür ederim Adnan Bey

[@oneryorulmaz5984]

👌

[@UzmanExcel]

Çok teşekkür ederim Öner Bey. Çok naziksiniz

[@user-qz7js9yz6c]

Hocam bir de xml faturadan excele veri alma konusunda bilgi verebilir misiniz

[@UzmanExcel]

İnsallah vakit olursa yapayim

[@user-qz7js9yz6c]

Hocam add-ins ler konusunda bir ders yapsanız

[@UzmanExcel]

İnsallah vakit olursa yapayim

[@mevlutkoca3512]

Hocam ben A sütunundaki başlığa göre değil de b2:b arasındaki kodlara göre sayfalarda arama yapıp stok satış gibi değerleri kodlarının yanına getirmek istiyorum. Biraz kurcaladım ancak işin içinden çıkamadım. Yardımcı olursanız çok sevinirim

[@UzmanExcel]

Yoğunluk çok ama vakit bulunca bakayım insallah

[@mevlutkoca3512]

Tamamdır. Çok teşekkür ederim hocam 🙏

[@oguzhanakbas9365]

Merhaba, kodu çalıştırdığımda path not found hatası alıyorum. Kod masaüstünü bulamıyor. Nasıl düzeltebilirim? Teşekkürler.

[@UzmanExcel]

Muhtemelen bilgisayarinizda image masaüstü var. Bu tarz durumlarda en doğru masaüstü bulmak aşağıdaki kod ile olur. CreateObject("WScript.Shell").SpecialFolders("Desktop") Bir de chdir için masaüstünu arıyorsanız direkt kaldırabilirsiniz

[@elifyldrm142]

Hocam emeğinize sağlık. hazırladığınız makro ve dosyaları indiremiyorum. yardımcı olabilirmisiniz?

[@UzmanExcel]

Teşekkür ederim Elif Hanim. Aciklamadaki linkten indirebilirsiniz

[@hbibhuseynov1078]

Tesekkur ederim hocam

[@UzmanExcel]

Çok teşekkür ederim. Çok naziksiniz

[@sinanceviz5027]

Hocam iyi günler. Bir konuda yardımcı olursanız sevinirim. Çalışma kitabımda 100 yakın sayfa var. Her sayfanın A İle F arası ilk 2 satırını Ana Sayfa sayfasına makro ile nasıl kopyalayabilirim. Elimde makro var ama her sayfayı dolaştırcak kodu bilmiyorum.

[@UzmanExcel]

Telefondan yazıyorum ama calisir diye düşünüyorum. Dim sht as worksheet Dim ws as worksheet Set ws = Thisworkbook.sheets("Sayfa Ismi") For each sht in thisworkbook.sheets Sht.usedrange.resize(2,6).copy ws.Range("A"& ws.cells(rows.count,1).end(xlup).offset(1,0).row Next sht

[@SuPorFeeD]

İyi günler hocam, Excelde ismi yazan verinin arayınca sadece bir alt satırının gelmesini istiyorum. If fHeader = True Then With wsa .Range(.Cells(cll.Offset(1, 0).Row, cIndex), .Cells(Ira, cIndex) ) .Copy ws.Cells(fRow, c) END With Satırınlarını değiştirmem gerekiyor sanırım. Yardımcı olur musunuz

[@UzmanExcel]

Tam olarak anlamadım. Bana mail atabilir misiniz [e-mail] adresinden bana ulaşabilirsiniz

[@SuPorFeeD]

@@UzmanExcel Mail attım. Hızlı dönüş için teşekkürler.

[@alikuz1259]

hocam merhaba, sadece "genel toplam" yazılı hücrenin karşısındaki rakamı getirmek istediğimiz zaman nerede değişiklik yapmamız gerekiyor ?

[@UzmanExcel]

Kafamda pek tahayyül edemedim. Deneye yanıla bulabilirsiniz Ali Bey

[@alikuz1259]

@@UzmanExcel konuya hiç hakim olmadığım için nasıl bir değişiklik yapmam gerektiğini bilmiyorum. Yapmak istediğim şeyi örnekle anlatmam gerekirse; d1 hücresinde "genel toplam" yazıyor ve e1 hücresinde "1000" yazıyor. Sizin yaptığınız şekilde makroyu çalıştırdığımda genel toplam yazan tüm hücrelerin karşısındaki hücredeki rakamı çekmesini istiyorum. Umarım anlatabilmişimdir.

[@samuraypolat]

Merhaba, Program dediğin dinamik ve esnek olmalı. Dolayısıyla sizin bu program ile göstermiş olduğunuz programcı yaklaşımını alkışlıyorum. Soruma gelince, Açıklamalarda bulunan linkten ilgili dosyanızı indirdim. Denemek istediğimde dosya açıkken de kapalı iken de aynı aşağıda yazdığım hatayı verdi. Denemek için basit, 10 satırlık tek bir dosya kullandım. 3 sütun aktarmasını istedim. Sıra No, Adı, Soyadı Sadece hedef dosyanın ilk sütununu aktarıyor Ana Dosyaya. An Error Occured -->> Error No: 13 -->> Error Description: Type mismatch

[@UzmanExcel]

Merhabalar. İltifatlariniz için teşekkür ederim. Hangi satırda hatayı verdi acaba? On error goto kısmını kaldırırsaniz hata kısmını görebilirsiniz

[@samuraypolat]

@@UzmanExcel merhaba, If lra - (cll.Offset(1,0)) < d Then Satırında hata verdi. Type mismatch

[@UzmanExcel]

Hatali satirda if kelimesinin öncesine if cIndex>0 Then yazısını eklerseniz çalışacaktır büyük ihtimalle. Telefondan yazıyorum. Siz bi test eder misiniz?

[@samuraypolat]

Ekledim, Run time error 1004 Hiçbir hücre bulunamadı hatası verdi. hata verdiği satır. If .Cells(1, lc) "Dosya Ismi" Then .Cells(1, lc).Offset(0, 1) = _ "Dosya Ismi": lc = FindRowColumn(ws, "c") .UsedRange.Resize(, 1).Offset(, lc - 1).SpecialCells(xlCellTypeBlanks) = _ wbkToCopy.FullName: lr = FindRowColumn(ws, "r")

[@UzmanExcel]

İsterseniz dosyaları bana bi yollayayin. Bakayım bi. [e-mail] adresinden ulaşabilirsiniz bana

[@mustafaelmas4402]

Merhaba Kod hala duruyor mu acaba yoksa ben mi bulamıyorum. Driveda bulamadım yardımcı olursanız sevinirim.

[@UzmanExcel]

Dosya duruyor Mustafa Bey

[@ozreco5805]

Verdiğiniz bilgi gerçekten çok önemli lutfen Kodu bulabirmiyiz veya örnek kitap dosyası neden eklemiyorsunuz acaba yardımınızı bekliyoruz.

[@UzmanExcel]

Ekledim. Kontrol etmeden neden yazıyorsunuz??? Kanalda yeni videosu da var.

[@yunusemreackgoz]

Hocam çok güzel bir anlatım olmuş elinize ağzınıza sağlık ancak benim bir sorum olacaktı eğer hücre içerisinde bir metin değilde resim mevcutsa bunun için ne yapabilirim acaba

[@UzmanExcel]

Tamamen farklı bir kod gerekecektir onun için

[@yunusemreackgoz]

@@UzmanExcel nasıl bir yol izlemem gerektiğini kavrayabilirsem belki bende deneyerek çözebilirim onu gerçekten ellerinize sağlık

[@yunusemreackgoz]

Hocam her şey gayet çok güzel elinize sağlık ancak bir sorunu aşamadım flimler sütunundan iki sütün var ve ikisini de yazdırmasını istiyorum bunu nasıl aşabilirim acaba

[@eksoundpro]

Makro için teşekkürler. Yalnız kodlama , açık olan sayfadan itibaren tarıyor. Örneğin aradığım veriler ilk sayfada olsun ama exceli kapatırken bir sonraki sayfa ekranda iken kaydet dersem bir öncekini aramıyor maleseff. Acaba sadece belirli sayfaları ara şeklinde bir komut verebiliyor muyuz? Teşekkürler.

[@UzmanExcel]

Aktif dosyadan olacak sekilde tasarladim ama Set wsa =Activeworkbook.Sheets(1) derseniz ilk sayfadan itibaren bütün sayfalari tarayacaktir.

[@UzmanExcel]

Yasemin Hanım. Bunu da sizden bekliyoruz

[@yasaroguzocaktan9005]

Favori video :)

[@UzmanExcel]

Teşekkürler Yaşar Bey

[@yasaroguzocaktan9005]

35bin satıra kadar çalışır ama daha fazlası için dediğiniz gibi farklı bir yöntem uygulamak gerekir. Genellikle integer degil de long olarak tanıtmak daha sağlıklı oluyor.

[@UzmanExcel]

@@yasaroguzocaktan9005 35 bin satir üstüne array ya da find fonksiyonunu kullanabiliriz. Tek hücre aramasi için normal loop ta yeterli gibi sanki. Bu arada integer sadece messagebox cevabı için kullanmistim. Onda sıkıntı olmaz integer. Bu arada veri aktarımı için normal loop yerine copy paste kullanilabilir 50.000 satir üstü veri aktarım işleminde loop yerine

[@UzmanExcel]

Katkılarınız için teşekkürler Yaşar Bey. Öneriniz üzerine kod güncelledim.

[@yasemincetasari2520]

Merhaba dosya elinizde mevcutmu

[@mustafaaltntas5941]

Merhaba, kod ya da kod dosyası açıklamada yok. Kaldırıldı mı?

[@UzmanExcel]

Evet Mustafa Bey. Dosya silinmiş. Bende de yedeği yoktu. Mecburen linki kaldırdım

[@edacetinkaya7267]

Ya bu kod bana inanılmaz lazım şu an. Elinde olan biri paylaşsın lütfen

[@sgavgoren]

Hocam "m2 =" satırında hata veriyor

[@UzmanExcel]

Ne hatasi Safak Bey

[@sgavgoren]

"Variable not defined" diyor

[@UzmanExcel]

@@sgavgoren compile hatasi. Bi daha deneyin linkten tekrardan. Düzelecektir

[@sgavgoren]

Hocam şimdi oldu çok teşekkürler :) Hızlı yanıt için ayrıca teşekkürler harikasınız

[@UzmanExcel]

@@sgavgoren Rica ederim. Bende başka bi proje için kod yaziyodum. Denk geldi :) Kod umarım işinize yarar

[@burakkaya5683]

Hocam merhaba bana özleden ders verirmisniz acil yardıma ihtiyaçım ve büyük dosyalarda çalışıyorum

[@burakkaya5683]

Ve sizden destek almam lazım

[@UzmanExcel]

Bunun için özel derse gerek yok bence. Takıldığınız yerde yardımcı olurum ama

[@burakkaya5683]

Hocam diğer sosyal medya hesaplarınızdan da yazdım

[@burakkaya5683]

60 milyon veri var ve bunları içerisinden gerekenleri almam lazım sorgu gibi düşünün

[@burakkaya5683]

Sosyal medya hesaplarınızdan yazdım hocam oradan konuşabilirmiyiz

[@ergetedek191]

gözlerimde körlük mü var yoksa ben mi göremiyorum dosyayı ya

[@UzmanExcel]

Dosya olmasi lazım normalde Erge Bey