Excel ile Word Dosyası Doldurma
HTML-код
- Опубликовано: 4 июл 2021
- #excel #vba #makro #visualbasic #exceldersleri #ileriexcel
Ayrıcalıklardan yararlanmak için bu kanala katılın:
/ @mmustafabolat
Excel'de VBA kodları yazarak bir Word dosyasındaki belli noktaları otomatik şekilde doldurmak çok kolay...
Şuan mutluluktan havaya uçuyorum. Allah sizden razı olsun hocam.
Çok iyi, iş yerimde kullanıyorum hocam elinize sağlık, çok faydalı oldu
Mustafa Bey gerçekten elinize sağlık Udemy'deki eğitimlerinizi de almıştım. Buradan bütün ilgilenen arkadaşlara tavsiye ediyorum.
Emeğinize sağlık ilk kez öğrenen içinde tekrar hatırlamak isteyen içinde harika bir anlatım olmuş teşekkürler
Tam aradığım video. Allah razı olsun Deneyeceğim inşallah yapabilirim. Çok teşekkürler.
Hocam harikasınız, elinize sağlık çok yararlı bir video olmuş
Elinize sağlık hocam, muthiş.
,süper Çok işe yarayabilecek bir konu teşekkürler hocam.
Mustafa bey Emeğinize sağlık
Emeğinize Sağlık hocam, benim için mükemmel bir ders oldu. Saygılarımla
Faydalanmanızı sevindim
Emeğinize sağlık hocam. Buradan da tanımlı alıcıları olan maile aktarırsak harika olur bizim için.
Algoritmanıza sağlık hocam... :))
Hocam çok teşekkür ederim hocam elinize emeğinize sağlık sağolun varolun
süper ya.. Ağzına sağlık hocam...
Emeğinize sağlık Hocam fazla sayılı personel görevlendirmelerinde kullanacağım uygulama olacak çok teşekkür ederim .
Rica ederim
Aynı sistemle mutabakat formu da yapılabilir. Elinize sağlık 👏👏
Mustafa Hocam Elinize sağlık. Koda ekstra olarak klasör içerisinde oluşan docx dosyalarını PC'de kayıtlı yazıcıyı seçerek toplu otomatik yazdır komutu ekleme şansınız olursa süper olur.
Elinize sağlık hocam. Birkaç sorum olacak.
1.Wordde yer işaretlerinde herhangi bir sayı sınırlaması var mı?mesela siz 5 tane veri yaptınız biz 10-15 veri yapabilir miyiz.?
2.Verileri aldığımız Excel sayfasından 4-5 farklı word şablonuna aynı verileri gönderebilir miyiz?
3.Bu şekilde excelden veri aktardığımız word sayfasında yer işaretleri dışındaki metinde sonradan değişiklik yapabilir miyiz?
Mustafa Hocam iyi ki varsın.... Emeğine sağlık...
Siz de öyle
Hocam büyüksün ya! Eline sağlık
Estağfurullah
Çok yararlı bir video olmuş teşekkürler..bir de bu videodaki gibi algoritma yazarak wordden Excel e nasil veri gonderebiliriz ? Elimde 4000 tane word dosyası var onları excel e pratik olarak aktarmak istiyorum da😊Yardımcı olursanız çok sevinirim, iyi gunler
hocam çok iyi eline sağlık fakat bunun tümünü aynı anda değilde seçili olanı yani sadece istediğimizi kaydetme imkanımız olabilirmi
Hocam merhaba, bu sistemi 10-15 evrak üzerinden yapabilir miyiz? elde birden fazla forumlar var ve bu forumları excele gireceğim verilerin hepsini formlara işletebilir miyiz?
Word dosyasi surekli ole hatasi veriyor sablon.docx i acmaya calisiyor word izin vrrmiyorcsalt okunur filan diye uyari geliyor
Hocam merhabalar, Udemy den de öğrencinizim. Sırf burada soracağım konu için büyük bir zevkle sizden Makrolamayı öğreniyorum.
Sorum şu; benim sabit bir şablon Word dosyam yok, masaüstünde bir dosya içerisinde içleri tablo dolu 30-40 adet farklı Word dosyamdan Excel içinde seçtiğim sonuca göre (düşeyara formulünde gelen A sonucuna göre), oraya bir buton koyacağım "Raporu Oluştur" uygun olan A isimli Word dosyasını açtırıp, içlerinde Yer işareti diye belirlediğim yerlere veri göndermek istiyorum. Bunu nasıl yaptırabilirim Kod yazarken? şimdiden teşekkürler..
Tam istediğim eline sağlık
çok iyi emeğinize sağlık
Hocam elinize sağlık aşırı faydalı bir içerik olmuş, excellden worde grafik aktarımı için nasıl bir kod yapısı kullanmamız gerekir yardımcı olurmusunuz?
elinize emeğnize sağlık... hocam birde word ten excele veri göndermeyle ilgili bir örnek yapabilin misiniz. saygılarımla...
Harika
👏
Mustafa Bey merhabalar. elimde bazı personellerin 2 farklı yerden gelen personel izin rapor listesi var. fakat iki listedede veriler tutmuyor. yani mesela birinde işe başlama rapor/izin bitiş tarihi diğerinde bir sonraki gün olarak çıkıyor. öncelikle bunları eşitlemem sonra ayrı bi listeye süzerek hepsini tek bir sayfada kolay bi şekilde görmem ve en sonunda aylık bilfiil hizmet süresini ortaya çıkarmam gerekiyor. bu konuyla ilgili yardımcı olmak anlamında bi video hazırlayabilirmisiniz. teşekkürler
SAYIN MUSTAFA BEY, cok arastirmama ragemen sunaki soruma cevap bulamadigim icin sizi bu konuda rahtsiz etemek zorunda kaldim. Almanca version ile yazilmis bir excel dosyasini Türkce version kullanan birinie yollladigimda, dosyayi alan kisi Tükce verion ( Menüler) olarak bu dosyayi acabilirmi, acabilirse neler yapmasi gerekir. Simdiden yardimlariniz icin cok tesekkür ederim. Selam ve saaygilarimla. Namik....
hocan emeğinize sağlık benim sorum satır olarak konu sicil yazdık peki sütun olarak olsaydı kod değiştirmek gerekiyor mu
Hocam elinize sağlık çok işime yaradı. Fakat Bold yaptıktan sonra yer işareti eklediğimde kalın şekilde gelmemekte. Sorun nedir acaba ?
Allah senden razi olsun 1400 kisiye ihrar gonderecektik tutarlari yazmak kopyalamak o kadar zor olacaktiki cok kolay oldu ama arka sekmede acti hepsini biraz kasti bilgisayari arka sekmede acmasa sonra istedigimizi acsak olmaz mi acaba saygilar iyiki varsiniz....
Süpper. Üstadım bunun benzerini bir de powerpoint için yapar mısın rica etsem?
hocam A sutunu veri B sutunu değişkenler olduğu zaman hücre isimlerini nasıl yazıyoruz? (yani A1 tarih B1 müdürlük olsa ). Teşekkürler
slm güzel anlatım benzer bir olayı outlook için de yapabilir miyiz??
merhaba hocam, Komutları girdim ama bendeki program compile error: For without Next hatası alıyorum. Yardımcı olabilir misiniz?
Teşekkür ederim. Daha önce anlattığınız "dinamik userform" ile birlikte kullanarak harika bir program oldu. Allaha emanet olun.
Kodu yazdığımız excel dosyasındaki bir imajı veya dışarıdaki bir imaj dosyasını word dosyasına kodla eklemek mümkün mü?
@@sedataksakal414 mümkün. Anlatırım onu da
Yer işaretini ortalamak mümkün mü? Bazen başlık atmam gerekiyor ama her başlık farklı uzunlukta dolayısı ile kayıyor?
Hocam eski bir konu ancak doc.SaveAs2 dediğimiz kod satırında dosyanın kaydeceği yeri düzgünce belirlememe rağmen excel programı bana word dosyanı farklı kaydet ile manuel kaydettirme yaptırıyor bu sorun neyden olabilir
Merhaba elinize sağlık süper olmuş. Benimde elimde 100 kişilik bir excel listesi var bunu komple worde aktarmak ıstıyorum mumkun mü? Bun yaptıgınız ile tek bir satırı aktardım word. İstediğim tüm hepsi gitsin worde alt alta
Bu videodaki örnek tabloda 6 satır mevcut. Peki kodu yazdıktan sonra, tabloya yeni satırlar girersek, her seferinde For i=2 To 6 kodunu da mı değiştireceğiz? Yeni satırlar eklendiğinde bunun daha kolay bir yolu yok mudur?
Allah senden razı olsun 58
hocam elinize sağlık word arka planda açık kalıyor yalnız yani görünürd bişi yok ama pc kpatırken falan word çalışıyor yinede kapatmak istiyor musunuz diye soruyor word programını sonlandır kodu nasıl ekleyebiliriz buna zaten farklı kaydettiği için sorun çıkmaz yardımlarını rica ederim
Merhaba ben kodu denediğimde karşıma gelen hata "ActiveX component can't create object or return reference to this object (Error 429)" buydu bu konu hakkında ne yapmalıyım.
emeğinize sağlık hocam yine süper bir video içeriği olmuş. Video açıklamalarında bulunan eğitimlerin kupon kodlarını yenilemeniz mümkün müdür? sanırım süreleri dolmuş en yüksek fiyatları gösteriyor
bymmb.com/online-egitimlerim
@@MMUSTAFABOLAT teşekür ederim :)
Hocam buton simgesini nasıl değiştirebiliriz, yada mümkün müdür?
Merhabalar Hocam...Bu kodu öğrendiğim iyi oldu.Elinize sağlık..Ancak benim kod çalıştığında "Microsoft Excel başka bir uygulamanın OLE eylemini tamamlamasını bekliyor mesajı veriyor..Sanıyorum açılan bir ole bağlantısının tekrar kapatılması gerekiyor...ne yapmalıyım..
Merhaba Hocam,
Öncelikle emeğinize, elinize sağlık.
Bir sorum olacaktı. Dosya yolunu interaktif olarak ayarlayabiliyor muyuz peki? "dosyayolu = ThisWorkbook.Path" komutu ile aktif dosya yolunu bulabiliyorum ama aynı klasörde bulunan word şablonunu açamıyorum.
sablon = "dosyayolu\sablon.docx"
sablon = "dosyayolu" & "sablon.docx"
sablon = "dosyayolu\" & "sablon.docx"
seçeneklerini denedim ama çözemedim...
ThisWorbook.Path & "\" & "sablon.docx" şeklinde yazabilirsiniz.
Emeğinize sağlık. Fotograf veya tablo göndermek mümkün mü?
Hocam, teşekkür ederim, ancak bu çalışmayı, birden fazla satır ve sütünü olan tablodaki satır ce sütunları yazdıramıyorum.
Hocam emeğinize sağlık,
Word yerine uyap döküman editör üne aktarım sağlayabiliyor muyuz. Çok araştırdım fakat işe yarar bilgi bulamadım konu hakkında bilgilerinizi paylaşabilirmisiniz.
Saygılarımla selametle...
UYAP harici bir program olduğu için script yazmak gerekiyor
Her satır için değil de, bunu her satırın karşısındaki bilgeleri bir tablo halinde tek dosyada yazdırabilir miyiz.
Hocam herşeyi sizin anlattığınız gibi yaptım ancak hata alıyorum nerde hata yaptığımıda bulamadım bir türlü nasıl yardımcı olabilirsiniz bana bu konuda
Bir klasör deki çok sayıdaki tüm word dosyalarına aynı metni veya yazıyı nasıl yazarım. TSK ederim
merhaba hocam döngü kullanmadan nasıl aktarılabilir
Merhaba hocam, bu işi mektuplar ve zarflar fonksiyonu ile de yaptırabiliyor muyuz?
Postalar ile yapılır
Değerli hocam aynısını yapıyorum salt okunur diyor. Lütfen yardımcı olur musunuz ?
Merhaba, kodu yazarken worde istediğimiz yazı tipi ve boyutunu ayarlayabiliyor muyuz?
Örneğin ben worde arial 18 bold olarak gelmesini istiyorum
Word dosyanızı başta o şekilde düzenlerseniz, aynı fontu korur
hocam merhaba, Runtime Error ‘6015’ : application defined or object defined error hatası çıkıyor, aşağıdaki dizilim için, wordü de ekledim referansa, bir yanlışlık var mı var acaba?*
Private Sub CommandButton1_Click()
Dim doc As Word.Document
Set wordapp = CreateObject("word.application")
sablon = "C:\Users\Lenovo\OneDrive\Masaüstü\bg\xxx\yazı\sablon.DOC”
For i = 2 To 99
Set doc = wordapp.Documents.Open(sablon)
doc.Bookmarks("Keforn").Range.InsertAfter Cells(i, 3)
doc.Bookmarks("Vkn").Range.InsertAfter Cells(i, 4)
doc.Bookmarks("Unvan").Range.InsertAfter Cells(i, 5)
doc.Bookmarks("KullTrh").Range.InsertAfter Cells(i, 6)
doc.Bookmarks("KullMik").Range.InsertAfter Cells(i, 7)
doc.Bookmarks("Talepno").Range.InsertAfter Cells(i, 8)
doc.Bookmarks("Refrns").Range.InsertAfter Cells(i, 9)
doc.Bookmarks("KapTrh").Range.InsertAfter Cells(i, 10)
doc.Bookmarks("Kaphsno").Range.InsertAfter Cells(i, 11)
doc.SaveAs2 " C:\Users\Lenovo\OneDrive\Masaüstü\bg\xxx\yazı\" & Cells(i, 1).Text
Next i
Hocam worde resim nasıl gönderebiliriz.
hocam mail attım bize. harfiyen yazdım kodu ancak dosyayı bir türlü oluşturamadım.
Merhabalar ilk defa izledim sonuna kadar ama anlamadım . Her şey çok yabancı nerden başlamam lazım ?
hocam Dim doc As Word.Document satırında hata alıyorum neden ?
hocam kodlamayı olarak atsanız olmazmı
Hocam merhaba, tarihin nerede olduğunu nasıl bildi?
Merhabalar peki bu saveas2 yaptığımızda word olarak değil de pdf olarak nasıl kayıt edebiliriz
Aynen bunu bende düşündüm. Sormadan önce kendim çözmeye calisscaktim
@@cnytsnm bi komut dosyası gibi uygulama buldum RUclips den bi arkadaş yapmış klasör içindeki tüm wordleri pdf yapıyor deneyebilirsin işimi çözmüştü o zaman benim
nasıl yaptınız yardımcı olabilir misiniz
@@hakangencoglu9939
Merhabalar Hocam şimdi Göstermiş olduğunuz yöntemle bende kendimce bir çalışma yaptım ama Word dosyam hep açık kalıyormuş gibi gözüküyor ve Slayt okunur olarak görmeme izin veriyor sebebi ne olabilir ve + olarak aynı Word dosyasını pdf dosyası olarak çevire bilirmiyim? Şimdiden teşekkür ederim işimi kolaylaştırdı gerçekten :)
Çözüm bulabildiniz mi buna acaba? Arka planda açık kalıyor gibi gözüküyor şablon dosyası
Bende de aynı şekilde
Mustafa hocam emeğinize sağlık
Verdiğiniz bilgilere göre, kendi çalışmama uyguladım, her konu için ayrı buton atadım sıkıntı yok çalışıyor.
Ancak oluşturduğum butonları tek butonda birleştirmeyi yapamadım.
Sub CommandButton9_Click()
Call CommandButton1_Click
Call CommandButton2_Click
Call CommandButton3_Click
Call CommandButton4_Click
Call CommandButton5_Click
Call CommandButton6_Click
End Sub
Butonları yukarıdaki gibi birleştirdim ama sadece tek buton çalıştırıyor, şimdiden teşekkür eder, yardımınzı rica ederim.
Hocam merhaba güzel çalışma, ama benim daha buyuk sorunum var ve bu videodaki mantıkla çözülürmü bilmiyorum, şimdi ben rapor yazarken excel verilerimi worde resim bağlantısı olarak yapıştırıyorum değişiklik olursa resime sağ tıklayıp bağlantı güncelle diyorum ama bu word o kadar aptal ki, flash bellekte çalıştığım için flash surucu ismi bazen bilgisayardan bilgisayara değişebiliyor işte o zaman bağlantıyı bulamıyor, dosya sekmesinden bağlantılar kısmındanda çözemiyorum çünkü kaynagı değiştir dediğimde bu aptal mal program gösterdiğim dosyayı görüyor ama tam olarak çalışma sayfasını gösteremıyorum sadece dosyayı gösteriyorum ve çalışma sayfasını rasgele seçiyor, elle müdehale edemiyorum elle müdehale edebilsem sadece sürücü ismini değiştirecem bitti gitti bu wordu yapanlar hakkaten moron yani aynı şey autocad de boyle değil ondada dosyanın içine resim koysan surucu ismınden bağımsız aynı klasördeyse klasoru flashtan masaustune atsan bıle otomatik buluyor yanı sürücü ismini yoksayıyor aynı klasorde dosyayı arıyor bu gerizekalı word bulamıyor bulamadığı gibi bağlantı yolunu gösterince komple resetlediği için çalışma sayfasını gösteremiyorsun, allahın gerizekalıları öyle yapmış, şimdi diyorum ki sizin bu taktikle excelde bi çalışma sayfasını wordde işaretli yere resim dosyası olarak nasıl gönderebiliriz. yani elle yaptığım çalışma sayfasını kopyala resim olarak yapıştır yada bağlantı word olarak yapıştır nasıl yaparız. yapıldığını biliyorum bi arkadaş otomatik rapor oluşturan excel yapmıştı ama o arkadaşla bağlantım kptu.
Hocam ellerinize sağlık cok guzel bir uygulama olmus. Yalniz bir sorum olacak. Dosyalar olusturduktan sonra silemiyoruz. Dosyalar acik diye uyari veriyor. Acaba kod icinde dosyayi kapatmak mi gerekiyor. Ilgilniraeniz sevinirim
Oluşturulan word dosyalarını birer kere açıp kapatınca silinebiliyor, başka bir yöntem bulamadım.
ben direk açamıyorum dosya kullanılıyor diyor
Belgenin sonuna .docx uzantısını eklemedi. Dosyaya çift tıkladığımda hangisi ile açayım diye bana soruyor.
Diğer sorun, oluşturduğu dosyaları bir kere açıp kapatmadan; isim değiştirme, silme gibi işlemlere izin vermiyor. Bunu nasıl çözebiliriz?
Kendim çaldım kendim oynadım; belgenin sonuna doc uzantısı eklemiyorsa, videoda sicil denen yere siz ekleyin. Mesela dosya adını "1234" olarak alıyorsa, siz bir sütun daha ekleyin oraya ".docx" yazın, sonra birleştir formülü ile sicil adı ve docx i birleştirin ve dosyanın adını buradan alın. (=birleştir(a1;b1) gibi)
Gelelim ikinici soruma; açık word dosyası kalma sorunu.
Kodlar çalışınca ikinci kez çalışmada word dosyaları salt okunur açıyor çünkü kodlar wordu açıyor ama kapatmıyor. Alttaki görev çubuğunda yada görev yöneticisinde bu açık dosyalar görünmediği için el ile kaptatılamıyor. Bunun için şöyle bir kod buldum:
On Error Resume Next
Set wrd = GetObject(, "Word.Application")
If Err.Number 0 Then
MsgBox "Açık word dosyası bulunmamaktadır.", vbInformation
Else:
wrd.Documents.Close
wrd.Application.Quit
End If
Bu kodu hocanın paylaştığı kodlarda "next i" ve "end sub" arasına yapıştırın. Açık dosyaları kendisi kapatır ve kodun tekrar çalışması durumunda dosyalar salt okunur olarak açılmaz.
@@xklxzt Çok teşekkürler.. benim de aynı sorunum vardı. Word arka planda kapanmıyordu. Verdiğin kod sorunu çözdü. Emeğine sağlık👏👏👏👏👏
Bu kodlama nedense bana hiç yabancı gelmedi hocam:))
Sevdiğim bir abime bu kodu yazdım. Oradan yola çıkarak, herkes nasiplensin dedim 😂
O kadar çok şaşırıyorum ki...
Abone olun, şaşırtmaya devam edelim. Hatta WhatsApptan çevrenize iletin kanalı, onlar da şaşırsın 🙂
Babacım boşuna bu kadar kod ile uğraşmışsın, yaptığın işlem hem uzun hem de yeni veri ekleme durumunda kodları da güncellemen gerekecek. "posta gönderileri" sekmesi var word'de, çok daha pratik ve işlevli.
Onu gosteren bir yutub videosu varsa lutfen link atarmisiniz
hocam yaptım sonunda çalıştı fakat denemelik 8 satırlık 8 dosya oluşturdum 7 tanesi word kaydedildi fakat 1 tanesi ".tic" uzantılı olarak kaydedildi sebebi nedir.aşağıdaki gibidir. birde oluşturduğum dosya silinmiyor. hata veriyor.
Private Sub CommandButton1_Click()
Dim doc As Word.Document
Set wordapp = CreateObject("word.application")
sablon = "C:\Users\fatih\LİSTESİ\sablon.docx"
For i = 2 To 8
Set doc = wordapp.Documents.Open(sablon)
doc.Bookmarks("tarih").Range.InsertAfter Cells(i, 1)
doc.Bookmarks("tutar").Range.InsertAfter Cells(i, 2)
doc.Bookmarks("unvan").Range.InsertAfter Cells(i, 3)
doc.Bookmarks("banka").Range.InsertAfter Cells(i, 4)
doc.Bookmarks("iban").Range.InsertAfter Cells(i, 5)
doc.Bookmarks("vergino").Range.InsertAfter Cells(i, 6)
doc.Bookmarks("tutar2").Range.InsertAfter Cells(i, 2)
doc.SaveAs2 "C:\Users\fatih\LİSTESİ\" & Cells(i, 3).Text
Next i
End Sub
Hocam elinize sağlık. İyi bayramlar. Ben aşağıdaki kodlamayı yazdım.
Private Sub CommandButton1_Click()
Dim doc As Word.Document
Set wordapp = CreateObject("word.application")
sablon = "C:\OZAN\Desktop\Documents\Arabuluculuk\ARABULUCU BELİRLEME TUTANAĞI DENEME.docx"
For i = 2 To 4
Set doc = wordapp.Documents.Open(sablon)
doc.Bookmarks("Adsoyad").Range.InsertAfter.Cells(i,1)
doc.Bookmarks("Kimlik").Range.InsertAfter.Cells(i,2)
doc.Bookmarks("Adres").Range.InsertAfter.Cells(i,8)
doc.Bookmarks("Adsoyad2").Range.InsertAfter.Cells(i,1)
doc.SaveAs2 "C:\OZAN\Desktop\Documents\Arabuluculuk\ARABULUCU BELİRLEME TUTANAĞI" & Cells(i, 2).Text
Next i
End Sub
doc.Bookmarks("Adsoyad").Range.InsertAfter.Cells(i,1) syntax hatası veriyor ve = işareti istiyor.
Hatam acaba neredeç
İyi günler
Noktalama hatası yapmışım. Şimdi düzgün çalışıyor. Çok teşekkürler.
Private Sub CommandButton1_Click()
Dim doc As word.documenent
Set wordapp = CreateObject("word.application")
sablon = "C:\Users\bmutl\OneDrive\Masaüstü\dosya\sablon.docx"
For i = 2 To 3
Set doc = wordapp.documents.Open(sablon)
doc.Bookmarks("listeno").Range.InsertAfter Cells(i, 2)
doc.Bookmarks("listeno").Range.InsertAfter Cells(i, 3)
doc.saveas2 "C:\Users\bmutl\OneDrive\Masaüstü\dosya\" & Cells(i, 2).Text
Next i
End Sub
Hocam burada neresi yanlış acaba, yardımcı olur musunuz?
En tepede. Document olması gerekiyor
Vallahi hocam hepsini yaptım ama yine de hata veriyor sanırım bir bilgi eksik bilene sorup doğrusunu buradan paylaşırım , ondan sonra size teşekkür ederim.
@@MMUSTAFABOLAT hocam merhaba bana yardim edermisin Azerbaycandan yaziyorum kardes cok acil lazim ama yapamiyorum lutfen mumkunse yardim edermisin