• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sorgu için arama sonuçları: ExportAsFixedFormat

  1. R

    Pdf kaydetme sorunu

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

    PDF mail

    ...Private Sub CommandButton1_Click() 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...
  3. muratgunay48

    PDF mail

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

    PDF mail

    ...Private 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...
  5. muratgunay48

    Excel mail'i PDF olarak atma

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

    PDF olarak mail göndermek.

    Hemen yarın bakacağım hocam. Teşekkür ederim.
  7. Korhan Ayhan

    PDF olarak mail göndermek.

    Bu forumun bırakın harf öğretmeyi kitap yazacak bilgi barındırdığını düşünüyorum. Sizlerden beklentimiz ise bu kitabı açıp okumanızdır.. ExportAsFixedFormat ifadesini yazarak arama yaparsanız ne demek istediğimi daha net anlayacağınızı düşünüyorum.
  8. muratgunay48

    PDF olarak mail göndermek.

    ...daha kolay olur 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" _ ...
  9. muratgunay48

    Sayfa ismiyle kaydet

    ...Teşekkür ederim. 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" _ ...
  10. muratgunay48

    PDF olarak mail göndermek.

    @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.
  11. B

    Makro ile Mail gönderirken mail hesabı seçimi

    ...adı ile aynı 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 =...
  12. B

    Seçili sekmeleri PDF yapma

    çok teşekkürler oldu bu
  13. A

    Seçili sekmeleri PDF yapma

    ...Dim syf As 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 & _...
  14. B

    Seçili sekmeleri PDF yapma

    ...& "\Desktop\PDF" 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...
  15. B

    Sekmelerin Herbirini Sekme Adı ile Pdf olarak ayrı ayrı kaydetme

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

    Aktif makroyu pdf e çevirme

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

    Aktif makroyu pdf e çevirme

    ...' 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...
  18. I

    Çözüldü Hücre İsmine Göre PDF olarak Farklı Kaydetme

    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?
  19. A

    Çözüldü Hücre İsmine Göre PDF olarak Farklı Kaydetme

    ...Target As Range, Cancel As 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", _...
  20. I

    Çözüldü Hücre İsmine Göre PDF olarak Farklı Kaydetme

    Teşekkür ederim ancak kodu çalıştıramadım.
Üst