Çok teşekkür ederim ama
S1.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Musteri & " " & S1.Range("R1").Value & " - Mutabakat Mektubu.pdf",
OpenAfterPublish:=False
bu şekilde girdiğim zaman hata verdi
...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...
Korhan Bey,
İlginiz için teşekkür ederim. Textbox olarak yazabileceğim (Excel içerisinde) PDF ismini oluşturup belirttiğim dosyaya kaydetmesini sağlayamıyorum bir türlü.
...MsgBox "İşleme devam edebilmeniz için dosya adını girmelisiniz!", vbCritical
Exit Sub
End If
Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=File_Path & File_Name & ".pdf", _
Quality:=xlQualityStandard, _...
...shf2.[G12].Value = shf2.[G33].Value
Set shf2 = Nothing
Set shf2 = Nothing
End Sub
Sub CreatePDF()
ThisWorkbook.ExportAsFixedFormat xlTypePDF, Filename:="c:\PDF\" & "deneme _ " & Date & ".pdf"
Application.Wait (Now + TimeValue("00:00:10"))
Dim OutApp As Object...
...Attachments kısmına yada başka bir yere ne gibi bir komut yazabilirim. Kod aşağıdadır.
Sub CreatePDF()
ThisWorkbook.ExportAsFixedFormat xlTypePDF, Filename:="\\c::\PDF\deneme.pdf" & "_" & Date
Application.Wait (Now + TimeValue("00:00:10"))
Dim OutApp As Object...
@halit3 ustam merhaba.
Makronuz çalışıyor. Problem yok.
Excel dosyasının olduğu dizindeki word dosyalarını aynı dizine aynı isimle kaydediyor.
Bu işlemi dosyaları browse yöntemiyle seçtirerek yapabilir miyiz? Teşekkür ederim.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.