Kaydet Butonu Ekleme (PDF Olarak Kaydet)

cenkaltunkaya · 21 Ocak 2019

Arkadaşlar herkese merhaba.
Öncelikle umarım iyisinizdir.

Yardım almak istediğim konu şu,
TEKLİF - MALİYET şeklinde 2 sekme düşünün.

Bir KAYDET butonu eklemek istiyorum ve bu butona bastığımda TEKLİF ve MALİYET sekmesini ayrı 2 PDF dosyası şeklinde kaydetmesini istiyorum.

İLaveten TEKLİF C2 hücresinde mevcut teklif numarası ile kaydedilmesini istiyorum.

Bu konuda bana yardımcı olabilecek arkadaşlarıma şimdiden teşekkür ediyorum.

Selamlar.

turist · 22 Ocak 2019

Sorunuzu kendi hazırladığınız bir "örnek" excel dosyası ekleyerek sorarsanız, daha hızlı ve doğru cevaplar bulabilirsiniz.
Örnek excel dosyası ekleme hakkında bilgi edinmek isterseniz:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/ bakınız.

cenkaltunkaya · 23 Ocak 2019

Tekrar Merhaba,
Bilgilendirmeniz için teşekkür ediyorum. Bahsettiğiniz şekilde bir çalışma yaptım aşağıda ki linkten indireblirsiniz.

http://www.dosya.tc/server17/c6j626/CENKALTUNKAYA.xlsx.html

Bu arada Avatar'ınız muhteşem. Öyle bir hale geldik ki arabaların arkasında Atatürk imzası bile gördüğümde çok mutlu olur hale geldim.

acar6783 · 23 Ocak 2019

Dosyanız ektedir.
https://yadi.sk/d/DEp4UDxE-o1G6A

turist · 23 Ocak 2019

cenkaltunkaya' Alıntı:
Tekrar Merhaba,
Bilgilendirmeniz için teşekkür ediyorum. Bahsettiğiniz şekilde bir çalışma yaptım aşağıda ki linkten indireblirsiniz.

http://www.dosya.tc/server17/c6j626/CENKALTUNKAYA.xlsx.html

Bu arada Avatar'ınız muhteşem. Öyle bir hale geldik ki arabaların arkasında Atatürk imzası bile gördüğümde çok mutlu olur hale geldim.

Teşekkür ederim.

Dosya Linki
İndirip inceleyiniz.

cenkaltunkaya · 24 Ocak 2019

Acar ve Turist kardeşim emekleriniz için teşekkür ediyorum. Bende bu emekleriniz için Altın Üye oldum öncelikle bunun bilgisini vermek isterim.

Üyeliğim henüz aktifleşmediği için Acar'ın dosyasını indiremedim fakat Turist'in dosyasında herhangi bir sıkıntı yok indirdim gayette güzel çalışıyor.
Fakat ben bu çalışmayı örnek dosyadan alıp kendi teklif dosyalarıma uyarlayamadım.

Bu konuda yardımcı olmanızı rica ederim.
http://s7.dosya.tc/server13/jcjcdn/YENI_TEKLIF.rar.html

acar6783 · 24 Ocak 2019

cenkaltunkaya' Alıntı:
Üyeliğim henüz aktifleşmediği için Acar'ın dosyasını indiremedim

Yandiskte açılan dosya da eklemiştim. Sorun çözüldüğüne sevindim.
Kolay gelsin

cenkaltunkaya · 24 Ocak 2019

Evet Sorun çözdüldu fakat ben o çözülen formülü kendi dosyalarıma entegre edemedim. O konuda da yardımcı olmanızı isticem

http://s7.dosya.tc/server13/jcjcdn/YENI_TEKLIF.rar.html

cenkaltunkaya · 24 Ocak 2019

Acar hocam dosyanı şimdi indirebildim eline sağlık teşekkür ediyorum emeğin için. Burda minik bir değişiklik yapabilir miyiz ?
Kaydet dediğimde günün tarihin adıyla klasör açıyor. Hiç klasör filan açmasın, excel dosyasının olduğu dizine kaydetsin direkt.

acar6783 · 24 Ocak 2019

cenkaltunkaya' Alıntı:
Acar hocam dosyanı şimdi indirebildim eline sağlık teşekkür ediyorum emeğin için. Burda minik bir değişiklik yapabilir miyiz ?
Kaydet dediğimde günün tarihin adıyla klasör açıyor. Hiç klasör filan açmasın, excel dosyasının olduğu dizine kaydetsin direkt.

Kod:

Sub TEKLİF()
 Set kls = CreateObject("Scripting.FileSystemObject")
 yol = ThisWorkbook.Path
   isim = Sheets("TEKLİF").Range("A2")
 
On Error Resume Next
    Sheets("TEKLİF").Range("A1:AI37").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    yol & "/" & isim & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    
    
End Sub
Sub MALİYET()
 Set kls = CreateObject("Scripting.FileSystemObject")
 yol = ThisWorkbook.Path
  
On Error Resume Next
    Sheets("MALİYET").Range("A1:AF50").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    yol & "/" & "MALİYET" & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    
    
End Sub
Sub HAZIRLA()
TEKLİF
MALİYET
End Sub

Kodları bu şekilde güncelleyebilirsiniz. Eğer pdf dosylarının kaydedildikten sonra açılmasını isterseniz; Kırmızı renkte olan yerlerde False ı True yapın.

cenkaltunkaya · 24 Ocak 2019

Bu kodu ben şuraya ekliyorum, herhangi bir ecel dosyamda alttaki sekmelerin birine sağ tıklıyorum, kod görüntüle çıkıyor orayı açıyorum, açılan ekranda hangi çalışma dosyasına yapıştıracaksam o dosyanın dizinine MODÜL ekle diyorum ve açılan pencereyede bunu yapıştırıyorum. Doğrumudur

acar6783 · 24 Ocak 2019

cenkaltunkaya' Alıntı:
Bu kodu ben şuraya ekliyorum, herhangi bir ecel dosyamda alttaki sekmelerin birine sağ tıklıyorum, kod görüntüle çıkıyor orayı açıyorum, açılan ekranda hangi çalışma dosyasına yapıştıracaksam o dosyanın dizinine MODÜL ekle diyorum ve açılan pencereyede bunu yapıştırıyorum. Doğrumudur

Kısa yolu : ALT+F11

Turkbey41 · 24 Ocak 2019

acar6783' Alıntı:
Kısa yolu : ALT+F11
Ekli dosyayı görüntüle 202390

Bu işlemi hangi dosyada hangi sayfada yapmamız gerekiyor. Üç adet dosya var nereye yapıştırırsak düzgün çalışır? Bende bir türlü yapamadım. Yardımlarınız için şimdiden teşekkürler
.

acar6783 · 24 Ocak 2019

Turkbey41' Alıntı:
Bu işlemi hangi dosyada hangi sayfada yapmamız gerekiyor. Üç adet dosya var nereye yapıştırırsak düzgün çalışır? Bende bir türlü yapamadım. Yardımlarınız için şimdiden teşekkürler
.

Sayfada değil kod bölümüne yapıştıcaksiniz.
Alt+F11
İnser module
Yapıştır
Örnek dosyanızı eklerseniz yine bakabilirim

Turkbey41 · 24 Ocak 2019

http://s7.dosya.tc/server13/jcjcdn/YENI_TEKLIF.rar.html bu dosya üzerinden çalışıyorum. fakat o modülü hangi sayfada aktif yapıcaz bir türlü yapamadım.

acar6783 · 24 Ocak 2019

Turkbey41' Alıntı:
http://s7.dosya.tc/server13/jcjcdn/YENI_TEKLIF.rar.html bu dosya üzerinden çalışıyorum. fakat o modülü hangi sayfada aktif yapıcaz bir türlü yapamadım.

Hangi sayfalar yazılacak?

Teklif-MALIYET mi?

cenkaltunkaya · 24 Ocak 2019

Turkbey41' Alıntı:
Bu işlemi hangi dosyada hangi sayfada yapmamız gerekiyor. Üç adet dosya var nereye yapıştırırsak düzgün çalışır? Bende bir türlü yapamadım. Yardımlarınız için şimdiden teşekkürler
.

TurkBey sen benim teklifleri kullanmayacaksın dimi kardeş

??

Mevzu bir anda sanki çalışmalar seninmiş gibi bir olaya döndü aman diyim öyle bir şey olmasın sıkıntı yaşamayalım.

cenkaltunkaya · 24 Ocak 2019

acar6783' Alıntı:
Sayfada değil kod bölümüne yapıştıcaksiniz.
Alt+F11
İnser module
Yapıştır
Örnek dosyanızı eklerseniz yine bakabilirim

Örnek dosya ekte kardeşim

olmadı beceremedim. Aslında öğrensem kafamda tasarladığım bir ton şey var bir çoğununda sitede hazır kodu var. Sen yapmada benim dosyaya bakıp hatamı söyle ben düzelteyim olur mu

Teşekkürler

http://s2.dosya.tc/server6/s3tyqx/Revizyon_Teklifi.rar.html

acar6783 · 24 Ocak 2019

Bu dosyada userform ekledim. Önce hangi sayfayıyazdıracağınızı sorar ;
Seçtiğiniz sayfa adına çift tıklar ya da Pdfbutonun basarsanız sayfanızhazır.
Ek olarak checkbox koydum ön izleme açık ya da kapalı istediği gibi

Turkbey41 · 24 Ocak 2019

cenkaltunkaya' Alıntı:
TurkBey sen benim teklifleri kullanmayacaksın dimi kardeş ??

Mevzu bir anda sanki çalışmalar seninmiş gibi bir olaya döndü aman diyim öyle bir şey olmasın sıkıntı yaşamayalım.

kesinlikle öyle bir şey olmaz sadece bişeyler öğrenmeye çalışıyorum vba da

sıkıntı yok @cenkaltunkaya
çok teşekkür ederim. @acar6783

denedim ama kullanamadım

Kaydet Butonu Ekleme (PDF Olarak Kaydet)

cenkaltunkaya

turist

Destek Ekibi

cenkaltunkaya

acar6783

Ekli dosyalar

turist

Destek Ekibi

cenkaltunkaya

acar6783

cenkaltunkaya

cenkaltunkaya

acar6783

cenkaltunkaya

acar6783

Turkbey41

acar6783

Turkbey41

acar6783

cenkaltunkaya

cenkaltunkaya

acar6783

Ekli dosyalar

Turkbey41