makro ile word dosyasını açıp pdf olarak kaydetmek

[crazy34]

Arkadaşlar merhaba,

Bir sorum olacak size nereye yazacağımı bilemediğim için yeni konu oluşturdum.

Arkadaşlar, masaüstüne kayıt diye bir dosya oluşturdum ve içerisinde "....desktop\kayıt\kayıtlar.xlsm" excel dosyası oluşturdum.

Bu excelde hesaplamaların olduğu teklif sayfası oluşturdum.

Bu teklif sayfasına bir makro buton koymak istiyorum. Bu buton, exceldeki teklif sayfasındaki tablo değerlerini, tarih değerini, firma ismini değiştirdiğimde "....desktop\kayıt\teklifler\örnek.docx" dosyasının

1. firma isminde bir kopyasını oluştursun,
2. oluşturduğu word dosyasını açsın
3. açtığı word dosyasında excel bağlantılarını güncellesin yani excel dosyasında değiştirdiğim tablo,tarih,firma ismini word dosyasında değiştirsin
4. word dosyasını pdf olarak farklı kaydetsin
5. firma isminde oluşturduğu word dosyasınıda kaydetip kapatsın
6. benim exceldeki teklif sayfama geri gelsin istiyorum.

acaba excelde bu mümkün mü? bana yardımcı olur musunuz?

hazırladığım excel



değişmesi gereken antetli word dosyası




resimdeki gibi excel dosyasında oluşturduğum bir sayfa var. tabloyu oluştur dediğimde üstteki anlattıklarımı yapmasını istiyorum.

 

[Asri]

Hem excel hemde word dosyasından birer örnek dosya eklerseniz, cevap almanız hızlanır.

dosya.tc yada dosya.co dan dosya yükleyebilir siniz.

 

[crazy34]

dosyalar

resim olarak yüklemiştim excel ve word formatında aşağıdaki gibi

excel ve word formatları

 

[crazy34]

yardımcı olabilecek var mı acaba?

 

[Asri]

Word ve excel dosyalarını inceledim.

Ne excel dosyasında neden word dosyasında çok farklı bir durum göremedim.

Neden her defasında, word dosyasını açıp, gerekli değişiklikleri yapıp pdf olarak kaydetmiyorsunuz.

Bağ kurmak için,
* Excel deki tablo yada bir hücreyi kopyalayın.
* Word de yapıştıracağınız yere gelin
* Sol üstte Yapıştır resminin altındaki oku tıklayın.
* Özel yapıştır ı seçin
* Bağ yapıştırı seçin.
* Sağ da en üstte microsoft çalışma nesnesi ni seçip tamam deyin.

Bu şekilde ilgili bütün ayarları word de bağ olarak yapıştırın.

Excel dosyanız kapalı bile olsa word dosyasını açtığınızda güncelle dediğinizde bilgiler güncellenecektir.

 

[crazy34]

Dediğiniz doğru ben bunu biliyorum fakat her defasında excel dosyasını açıp değerleri yazıp hesaplamaları yaptıktan sonra word dosyasına gelip güncelle yapıp pdf olarak kaydetmek zor bir iş.

Yani ben excel sayfasında size sadece bir sayfayı gönderdim. Normalde ben o excel sayfasında firma kaydetme güncelleme silme hesap tutma bir sürü işlem gerçekleştiriyorum. Sadece bu teklif sayfasında sıkıntı çekiyorum.

Her şeyimi excel üzerinden yapmak istiyorum eğer mümkünse.

Dim örnekdosya, yenidosya, yenikayıt As Variant
yenikayıt = Worksheets("TEKLİF").Range("b2")
örnekdosya = ActiveWorkbook.Path & "\örnek.docx"
yenidosya = ActiveWorkbook.Path & "\" & yenikayıt & ".docx"

FileCopy örnekdosya, yenidosya

bu kodla normalde word dosyasını firma isminde kopyasını oluşturuyorum ama word dosyasını açamıyorum.

 

[crazy34]

Hocam var mı bunun bi çözümü?

 

[chngrcn]

word dosyasına çekmek yerine,

word dosyanızdaki tabloları farklı bir sheet'te aynısını yapıp excel üzerinden pdf olarak kaydedin.. Neden word'e çekme gereği duyuyorsunuz ki ? aynı çalışma kitabı içinde farklı bir sheet açarak hücreler arasında bağlatı kurabilirsiniz.. ve bunu farklı kaydet ( pdf) olarak kaydetmeniz excel üzerinden daha basit ve kullanışlı olacaktır..

 

[crazy34]

word dosyasına çekmek yerine,

word dosyanızdaki tabloları farklı bir sheet'te aynısını yapıp excel üzerinden pdf olarak kaydedin.. Neden word'e çekme gereği duyuyorsunuz ki ? aynı çalışma kitabı içinde farklı bir sheet açarak hücreler arasında bağlatı kurabilirsiniz.. ve bunu farklı kaydet ( pdf) olarak kaydetmeniz excel üzerinden daha basit ve kullanışlı olacaktır..

word dosyasına çekmemdeki sebep word dosyası antetli olmasından dolayı word dosyasına çekiyorum. Normalde bütün yazıların alt kısmında şeffaf şirket logosu falan da var. teklifi kurumsal bir hale gelmesi için word dosyasına çekip ondan sonra göndermek için pdf olarak kaydediyorum.

 

[Asri]

word dosyasına çekmemdeki sebep word dosyası antetli olmasından dolayı word dosyasına çekiyorum. Normalde bütün yazıların alt kısmında şeffaf şirket logosu falan da var. teklifi kurumsal bir hale gelmesi için word dosyasına çekip ondan sonra göndermek için pdf olarak kaydediyorum.

Excel herşey yapacak da bir antetli kağıt mı çıkaramayacak : )
Siz örnek bir antetli kağıt ekleyin. Excel e uyarlayamaya çalışalım.

 

[crazy34]

Antetli Word Dosyası

örnek olarak yükledim ben exelde yapamadım yapsam da word deki gibi kaydetmiyor üst ve alt tarafta boşluklar bırakıyor.

 

[chngrcn]

Ekte ki dosyada istediğin şekilde antet'i ekledim.. Geri kalanını siz halledin.. Takıldığınız yer olursa kodlarda yardımcı oluruz..

 

[Asri]

Alternatif;

Formatda bir kaç değişiklik yaptım,

PDF oluşturma ve temizleme butonları eklendi.
Fligran eklendi.

Kontrol ediniz.

https://upterabit.com/Ukx/Kayıt2.xlsm

 

[crazy34]

Ekte ki dosyada istediğin şekilde antet'i ekledim.. Geri kalanını siz halledin.. Takıldığınız yer olursa kodlarda yardımcı oluruz..

cihangir bey sizin yüklediğiniz dosyayı ben indiremiyorum.

asri bey çok sağolun çok güzel olmuş ama işte anlatmak istediğim şuydu



kenardaki şu boşluklar kalıyor ve tabloların altında şeffaf logo yok

Bunlar için word dosyasına gönderip kaydetme işlemini oradan yapıyordum.


.

 

[Asri]

Bu da mı olmadı : )

Fligran problemi de çözüldü.
İlk mesajımda link güncellendi.

 

[crazy34]

hocam çok sağolun vallahi bir şey daha öğrendim çok teşekkür ederim

iyi ki böyle bir site var siteyi düşünenden de yardım edenlerden de Allah razı olsun