Sorgu için arama sonuçları: xlTypePDF

Hocam çok teşekkür ederim harika oldu.

...s1.Range("A" & i & ":AJ" & i).Copy s2.Range("A" & son2) End If Next i s2.ExportAsFixedFormat Type:=xlTypePDF, Filename:=konum & tc & uzanti son2 = s2.Cells(Rows.Count, 1).End(3).Row s2.Range("A3:AJ" & son2 + 1).Clear Next x MsgBox "İşlem tamamlandı."...

...yol = ThisWorkbook.Path isim = sh.Range("D13").Value sh.Select sh.Range("B6:H74").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol _ & "\" & isim & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub...

Kodu paylaşmamışım kusura bakmayın.

...On Error Resume Next ActiveSheet.Range("A6:E30").Select ChDir "C:\&Cells(1, 2).pdf" Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\murat\OneDrive\Masaüstü\AAA\&Cells(1, 2).pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _...

ChDir "C:\&B1.pdf" Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\murat\OneDrive\Masaüstü\AAA\&B1.pdf", Quality:= _ Şeklinde mi hocam?

...Sub CommandButton1_Click() On Error Resume Next ActiveSheet.Range("A6:E30").Select ChDir "C:\Rapor.pdf" Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\murat\OneDrive\Masaüstü\AAA\Rapor.pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True...

..."Mail Adresi Bulunamadı" & Chr(10) & "İptal", vbCritical Exit Sub End If Sheets(sayfaad).ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=dosyayolu _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False...

...diye. Private Sub CommandButton2_Click() ChDir "C:\Users\murat\OneDrive\Masaüstü\MÜŞTERİLER" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\murat\OneDrive\Masaüstü\MÜŞTERİLER\" & ActiveSheet.Name & ".pdf" _ , Quality:=xlQualityStandard...

...Private Sub CommandButton2_Click() ChDir "C:\Users\murat\OneDrive\Masaüstü\MÜŞTERİLER" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\murat\OneDrive\Masaüstü\MÜŞTERİLER\Sayfayı PDF olarak mail gönder.pdf" _ , Quality:=xlQualityStandard...

@Korhan Ayhan hocam, bu kodları uyarlamamda yardımcı olur musunuz? MURAT sayfasını PDF yapacak. O PDF dosyasını G5 hücresindeki adrese yollayacak, o kadar. Ancak çok sayfa olduğu için sayfa kod olması lazım sanırım. Uyarlamaya çalıştım yapamadım. Çok teşekkür ederim.

...olacaktır") Yol = Environ("UserProfile") & "\Desktop\PDF\" ActiveWindow.SelectedSheets.Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Yol & Dosyaadi & ".pdf", OpenAfterPublish:=False Yol2 = Yol & Dosyaadi & ".pdf" Set dam =...

çok teşekkürler oldu bu

...Worksheet For Each syf In ActiveWindow.SelectedSheets syf.Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Yol & syf.Name & ".pdf", OpenAfterPublish:=False Next MsgBox "İşlem Tamamlandı." & vbLf & vbLf & _...

...Bas: yol = Environ("UserProfile") & "\Desktop\PDF\" For Each syf In ActiveWindow.SelectedSheets syf.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=yol & syf.Name & ".pdf", OpenAfterPublish:=False Next MsgBox "İşlem Tamamlandı." & vbLf & vbLf & _ "İşlem Süresi ; " &...

bu kodu çalıştırdığımda 1 i seçince seçtiğim sekmeleri birleştirererek kaydediyor.

okan32 merhaba, dosya adı değişken olduğundan butona bastığımda aktif sayfa A3 ten yazdırabilirmiyiz. teşekkürler,

...' Kullanıcı adınızı ekleyin dosyaAdi = ActiveSheet.Range("A3").Value & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=masaustuYolu & dosyaAdi, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False...

Hocam özür dilerim kodu ben "form" sayfasına yapıştırdığım için çalışmamış. "kaydet" sayfasında çalıştı çok sağ olun elinize sağlık. Son olarak kaydet sayfasında buton için belirttiğim alana çift tıklamak yerine dinamik olarak çalışan buton yapamaz mıyız?

...Boolean) MsgBox Target.Address If Target.Address = "$B$4:$D$5" Then ActiveWorkbook.Sheets("form").ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="C:\Users\USER\Desktop\Yeni klasör\" & Sheets("form").Range("H8").Value & ".pdf", _ Quality:=xlQualityStandard, _...