Soru VBA ile belirli konumdaki veriyi Dosya adı olarak PDF kaydetme

[ReformTech]

Şirketteki raporların bilgisayar üzerinden tek bir Excel Workbooku'u üzerinde ve yetkililer tarafından görülmesi için yazmaya çalıştığım uygulamada bir sorunla karşılaştım.
Yapmak istediğim şey belirli bir hücre aralığında verilmiş çalışılan dosya adıyla aynı satırda olan veriyi dosya adı olarak almasını ve PDF olarak kaydetmesini istiyorum. Excel olarak kaydedenini de yapacağım ama henüz VBA kullanımında yeni olduğum için beceremedim muhtemelen. Forumda bu konunun dahileri olduğunu gördüm ve bu konuyu açmam gerektiğini düşünüyorum.

Birçok konuyu okudum ve yazmam gereken kodun buna benzeyebileceğini düşündüm en azından başlangıç olarak. Eksik veya hatalı çok yeri olduğunu biliyorum.

Bunların dışında sitede paylaşılan kodları kopyalayıp bu alana yapıştırdığımda ActiveSheet ile MsgBox arasında kalan kısımlarda çeşitli hatalar aldım. Yardımcı olacak , olabilecek tüm üstatlarıma şimdiden saygılarımı ve teşekkürlerimi sunuyorum.

Private Sub CommandButton5_Click()

'İstediğim dosya adresine kaydetmesi için olan kod
Path = Worksheets("Veri").Range("I1").Text

'Aslında eklenmesi gereken şartları olan ama dosya adlarının bulunduğu aralığı barındıran ve dosya adının alınması gereken hücre aralığını belirten kod
Dosyadi = Worksheets("Veri").Range("I2:I10").Value

ActiveSheet
.ExportAsFixedFormat
Type:=xlTypePDF,
Filename:= "Path" & "Dosyadi" & ".pdf"
Quality:=xlQualityStandard,
IncludeDocProperties:=True,
IgnorePrintAreas:=False,
OpenAfterPublish:=False

MsgBox "İşleminiz tamamlanmıştır.", vbInformation

End Sub

 

[Korhan Ayhan]

Bu tarz işlemler için örnek dosya paylaşmanızda fayda var.

 

[ReformTech]

Bu tarz işlemler için örnek dosya paylaşmanızda fayda var.

Uyarınız için teşekkür ederim. Çalışma dosyasını linke ekledim. Açtığınızda karşınıza login ekranı gelebilir. Giriş bilgilerini aşağıda veriyorum. Basit bir uygulama ama iyice geliştirildiğinde iş yükümü büyük ölçüde azaltacak. Bu konuda her türlü fikre açığım. Yeni mezun olarak girdiğim ilk iş yerindeki kendimi göstermemi sağlayacak üslerim için ufak benim için epey büyük bir adım.

ID:Teknik
Şifre:1234

https://dosya.co/yp1zlafnadgj/Deneme.xlsm.html

 

[Korhan Ayhan]

Örnek dosyanıza göre kafanızdaki kurguyu yazar mısınız?

Yani form üzerindeki PDF butonuna tıkladığınızda tam olarak ne olmasını bekliyorsunuz?

 

[ReformTech]

Form üzerinden bir rapora gittiğinizde raporun üst kısmında etiket kısmında şirket ismi, gemi adı, makine adı ve tipi kısmı var. Bu bölümlerde yazdığımız veriyi ardarda sıralayıp pdfin isim kısmına yazıp sabit bir konuma pdf olarak kaydetmesini istiyorum. Ben birleştir komutu ile her rapor dosyasının bir yerine bu formülü yazdım. Daha sonra veri sayfasında I2 ile I10 satırlarına bu formülleri bağladım. Yani raporda yukarıda belirttiğim kısımları girdiğimizde veri sayfasında ardarda sıralanmış halde bana veri çıktısı oluşturuyor. Benim yapamadığım kısım yada aslında çok daha uzun olan ve yapılması daha zor olanı seçtiğim kısım benim üzerinde çalıştığım sayfanın ismini veri sayfasından bulup ona karşılık gelen ismi alıp dosya ismi yapmak. Karmaşık yazmış olabilirim, kusuruma bakmayın.

 

[Korhan Ayhan]

Formunuzu açtım.
Karşıma 2 Combobox olan bir ekran geldi.
Buradaki PDF butonun basınca ne olması gerekiyor? Hangi sayfa PDF olarak kayıt edilecek?