Sorgu için arama sonuçları: xlTypePDF

...If Next Sheets(2).Select For Each sh In Sheets If sh.Name <> s1.Name Then sh.Select False Next ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\Yazdır.pdf", _ OpenAfterPublish:=True Application.DisplayAlerts = False For Each sh In...

Aynısını yapmama rağmen data bar yüzdelerini pdf de göremiyorum

..."-" & tarihSaat ' Kayıt yolu yol = "C:\Users\" sh.Select sh.Range("A1:z74").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & "\" & dosyaAdi & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False...

...= isim & "-" & tarihSaat yol = "D:\YEDEKLER" sh.Select sh.Range("B6:H74").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & "\" & dosyaAdi & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _...

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.