Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 11-12-2014, 09:39   #1
sametozyavuz
 
Giriş: 05/03/2008
Şehir: istanbul
Mesaj: 270
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan Word Dosyalarını Makro İle Toplu Yazdırma

Bir ana klasörün içerisinde birden çok alt klasörler var. Bu klasörlerin içerisinde *.docx ve *.doc uzantılı birçok word dosyası var. ben bunların hepsini tek makro ile yazdırabilir miyim?
sametozyavuz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-12-2014, 12:18   #2
sametozyavuz
 
Giriş: 05/03/2008
Şehir: istanbul
Mesaj: 270
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Değerli arkadaşlar konu hala güncel.
500 sayfalık bir çalışma hem uzun sürmesin hemde hata olmasın istiyorum.
olmaz diyenler de olmaz yazsın.
sametozyavuz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-12-2014, 14:14   #3
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,708
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Sorununuzu çözer mi bilmem ancak, ana klasörde doc ve docx uzantılı belgeleri arattıktan sonra hepsi aynı ekranda listelenir, yani farklı klasördekiler de aynı ekranda listelenir. Bu çıkanları kopyalayıp başka bir klasöre yapıştırarak tüm dosyaların aynı yerde olmasını sağlayabilirsiniz. Daha sonra da çözümünüzü tek klasördeki dosyalar için arayabilirsiniz. Örneğin az önce aynı klasördeki iki belgeyi aynı anda seçip sağ tıklayarak yazdır dediğimde ikisini de yazdırdı.
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-12-2014, 14:20   #4
sametozyavuz
 
Giriş: 05/03/2008
Şehir: istanbul
Mesaj: 270
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Alıntı:
YUSUF44 tarafından gönderildi Mesajı Görüntüle
Sorununuzu çözer mi bilmem ancak, ana klasörde doc ve docx uzantılı belgeleri arattıktan sonra hepsi aynı ekranda listelenir, yani farklı klasördekiler de aynı ekranda listelenir. Bu çıkanları kopyalayıp başka bir klasöre yapıştırarak tüm dosyaların aynı yerde olmasını sağlayabilirsiniz. Daha sonra da çözümünüzü tek klasördeki dosyalar için arayabilirsiniz. Örneğin az önce aynı klasördeki iki belgeyi aynı anda seçip sağ tıklayarak yazdır dediğimde ikisini de yazdırdı.
aslında dediğiniz çok güzel bir yöntem.
bende buna uygun bir kodda var.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Oval1_Tıklat()
Set WD = CreateObject("word.Application")
WD.Visible = True
yol = ThisWorkbook.Path
Dosya = Dir(yol & "\*doc*")
Do While Dosya <> ""
WD.Application.Documents.Open yol & "\" & Dosya
Application.Wait (Now + TimeValue("0:00:01"))
WD.ActiveDocument.PrintOut
Dosya = Dir
Loop
Application.Wait (Now + TimeValue("0:00:01"))
WD.Application.Quit
MsgBox "İşlem tamamlanmıştır."
End Sub
fakat sorun bu durumda belgelerin sıralaması değişecek ve sayfalar karışık çıkacak.bu kod tüm belgeleri ada göre sırası ile açıyor ve sayfalar karışmıyor.

yarına kadar daha iyisini bulamazsam, son çare olarak kodun olduğu excel kitabını her klasöre kopyalayıp yazdırmak olarak çözeceğim.
sametozyavuz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-12-2014, 21:37   #5
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,278
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

merhaba,
verdiğim linkte alt klasörleri ve içindeki dosyaları listelemeye yarayan kodlar var. bu kodlara print.out kodunu ekleyerek çözüm bulabilirsiniz.
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-12-2014, 22:02   #6
alican60
Altın Üye
 
alican60 kullanıcısının avatarı
 
Giriş: 14/08/2011
Şehir: TOKAT
Mesaj: 760
Excel Vers. ve Dili:
OFFİCE 2010
Varsayılan

Yazının her yerine mause ile gezindim ama linki bulamadım.
alican60 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-12-2014, 06:40   #7
sametozyavuz
 
Giriş: 05/03/2008
Şehir: istanbul
Mesaj: 270
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Mustafa bey ilginiz için çok teşekkür ederim.
zaten bendeki kod da sizin arşivinizden.
ama link yok. yeniden kontrol edermisiniz.
sametozyavuz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-12-2014, 13:26   #8
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,278
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Merhaba,
Aşağıdaki kodu bir excel dosyasına ekleyin ve makroyu çalıştırdıktan sonra word dosyalarının bulunduğu klasörü seçin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Word_Yazdir()
Set ds = CreateObject("Scripting.FileSystemObject")
Set shl = CreateObject("Shell.Application")
Set yol = shl.BrowseForFolder(0, "Lütfen bir klasör seçiniz!", 0)
If yol Is Nothing Then Exit Sub
yol = yol.self.Path
Columns(1).Clear
Application.ScreenUpdating = False
Do
Tekrar:
If ds.GetFolder(yol).subfolders.Count > 0 Then
    For Each kls In ds.GetFolder(yol).subfolders
        klslst = klslst & "{" & kls
    Next
End If
x = x + 1
deg = Split(klslst, "{")
yol = deg(x)
dosya = Dir$(yol & "\*.doc*")

Do While dosya <> ""
Say = Say + 1
Cells(Say, 1) = yol & "\" & dosya
dosya = Dir$()
Loop
If x = 1 And ds.GetFolder(yol).subfolders.Count > 0 Then GoTo Tekrar
Loop While UBound(deg) <> x

If Cells(1, 1) <> "" Then
Set wd = CreateObject("word.Application")
wd.Visible = True
For wpr = 1 To Cells(Rows.Count, 1).End(3).Row
wd.Application.Documents.Open Cells(wpr, 1).Text
wd.ActiveDocument.PrintOut
wd.ActiveDocument.Close False
Next
wd.Application.Quit
Columns(1).Delete shift:=xlUp
End If
'Kodlayan: l e u m r u k - mustafa altun
End Sub
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-12-2014, 15:39   #9
sametozyavuz
 
Giriş: 05/03/2008
Şehir: istanbul
Mesaj: 270
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Sn Mustafa bey Word belgelerinin olduğu Klasörü Seçtikten Sonra Run Time Eror Hatası alıyorum.
kodlar sizde çalışıyor mu?
sametozyavuz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-12-2014, 22:59   #10
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,278
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Deneyip yolladım. Ben de çalıştı. Hangi satırda hata verdi?
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 12:04


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden