...If Baslangic_No > 0 And Bitis_No > 0 Then
For X = Baslangic_No To Bitis_No
S1.Range("H4") = X
S1.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & Application.PathSeparator & "Belge " & X & ".pdf", _...
Merhaba,
Tüm bilgisayarlarda Masa üstüne yyy.pdf olarak kaydeder.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CreateObject("WScript.Shell").SpecialFolders("Desktop") & "/yyy.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True...
Ç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, _...
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.