• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Buton ile PDF Çeviri

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

mcexrem

Gold Üye
Katılım
22 Nis 2022
Mesajlar
721
Çözümler
2
Aldığı beğeni
130
Excel V
Office 2019 TR
Gold Bitiş
15 Nisan 2026
Konu Sahibi
Merhabalar üstadlar,

Dosyamın PROFİL sayfasındaki verileri pdf olarak kaydedip mail atıyorum.
İşlemleri hızlandırmak adına sayfaya eklediğim PDF butonuna tıkladığımda sayfayı;

sırayla bu işlemleri yaptırabilir miyiz?

  1. Sayfayı masaüstüne PDF olarak kaydetme,
  2. Outlook'a dosyayı ekleyip fatos.bayindir@pimapen.com.tr adresine göndermesi,
  3. Temizle makrosunu çalıştırıp sayfayı temizlemek.
teşekkür eder saygılar sunarım.
 
Çözüm
Sub PDF_CIKTI()

Dim dosyaYolu As String
Dim sayfaAdi As String

sayfaAdi = "SIPARIS"

dosyaYolu = Environ("USERPROFILE") & "\Desktop\" & sayfaAdi & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaYolu, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

MsgBox "PDF olarak kaydedildi: " & dosyaYolu
Call Gonder
End Sub

Sub Gonder()
Dim olApp As Object
Dim olMail As Object
Dim dosyaYolu As String
Dim aliciAdresi As String
Dim konu As String
Dim mesajIcerigi As String

Set olApp = CreateObject("Outlook.Application")


Set olMail = olApp.CreateItem(0)


dosyaYolu = Environ("USERPROFILE") & "\Desktop\SIPARIS.pdf"

aliciAdresi =...
Mail konusu beni aşıyor ama forumlarda baya işlendi bu konu. Araştırırsanız çözüm muhakkak vardır.
 
Sub PDFOlKaydet()
Dim dosyaYolu As String
Dim sayfaAdi As String

sayfaAdi = ActiveSheet.Name

dosyaYolu = Environ("USERPROFILE") & "\Desktop\" & sayfaAdi & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaYolu, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

MsgBox "PDF olarak kaydedildi: " & dosyaYolu
End Sub
Sub Gonder()
Dim olApp As Object
Dim olMail As Object
Dim dosyaYolu As String
Dim aliciAdresi As String
Dim konu As String
Dim mesajIcerigi As String

Set olApp = CreateObject("Outlook.Application")


Set olMail = olApp.CreateItem(0)


dosyaYolu = Environ("USERPROFILE") & "\Desktop\Sonuçlar.pdf"

aliciAdresi = "ornek@Link ve Reklam İçerikli Paylaşımlar Engellenme Sebebidir..com" ' Gönderilecek e-posta adresini buraya girin
konu = "Masaüstüne Kaydedilen Dosya"
mesajIcerigi = "Merhaba," & vbCrLf & vbCrLf & "Lütfen ekte bulunan dosyaya göz atın." & vbCrLf & vbCrLf & "Teşekkürler."


With olMail
.To = aliciAdresi
.Subject = konu
.Body = mesajIcerigi
.Attachments.Add dosyaYolu
.Send
End With


Set olMail = Nothing
Set olApp = Nothing

MsgBox "E-posta başarıyla gönderildi.", vbInformation
End Sub
çıkmam gerekli ama araştırırsanız bulabilirsiniz.
 
Günaydın. Pdf oluşturma ve mail gönderme kodlarını yukarda bulabilirsiniz. Temizle makrosu nereleri temizleyecek acaba? Tüm sayfa nesnelerle birlikte mi temizlenecek?
 
Konu Sahibi
değerli tukayf,

1. aşama olarak dosyayı sabit isimle SIPARIS olarak pdf formatında kaydetmek gerekiyor.
mail gönderme makrosunu kullanıyorum başka dosyalarda ama burda benim talebim makroları birleştirmek. Bu yüzden bizden daha tecrübeli üstadlardan talep etmiştim.
 
Sub PDF_CIKTI()

Dim dosyaYolu As String
Dim sayfaAdi As String

sayfaAdi = "SIPARIS"

dosyaYolu = Environ("USERPROFILE") & "\Desktop\" & sayfaAdi & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaYolu, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

MsgBox "PDF olarak kaydedildi: " & dosyaYolu
Call Gonder
End Sub

Sub Gonder()
Dim olApp As Object
Dim olMail As Object
Dim dosyaYolu As String
Dim aliciAdresi As String
Dim konu As String
Dim mesajIcerigi As String

Set olApp = CreateObject("Outlook.Application")


Set olMail = olApp.CreateItem(0)


dosyaYolu = Environ("USERPROFILE") & "\Desktop\SIPARIS.pdf"

aliciAdresi = "fatos.bayindir@pimapen.com.tr" ' Gönderilecek e-posta adresini buraya girin
konu = "Sipariş"
mesajIcerigi = "Merhaba," & vbCrLf & vbCrLf & "Siparişler ekte sunulmuştur. İyi Çalışmalar." & vbCrLf & vbCrLf & "Teşekkürler."


With olMail
.To = aliciAdresi
.Subject = konu
.Body = mesajIcerigi
.Attachments.Add dosyaYolu
.Send
End With


Set olMail = Nothing
Set olApp = Nothing

MsgBox "E-posta başarıyla gönderildi.", vbInformation
End Sub
PDF butonundaki kodu bu kodla değiştirin hocam. PDF ve maili gönderir. Temizlenecek kısım neresi onu da yazarsanız. Bi çözüm üretmeye çalışırız.
 
Konu Sahibi
PDF butonundaki kodu bu kodla değiştirin hocam. PDF ve maili gönderir. Temizlenecek kısım neresi onu da yazarsanız. Bi çözüm üretmeye çalışırız.
BU makroya dosyamdaki temizle makrosunu ekleyebilir miyiz?

B12:B43
C12:C43
F12:F43
G12:G43 Hücrelerini temizlemektedir.
 
Sub PDF_CIKTI()

Dim dosyaYolu As String
Dim sayfaAdi As String

sayfaAdi = "SIPARIS"

dosyaYolu = Environ("USERPROFILE") & "\Desktop\" & sayfaAdi & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dosyaYolu, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

MsgBox "PDF olarak kaydedildi: " & dosyaYolu
Call Gonder
End Sub

Sub Gonder()
Dim olApp As Object
Dim olMail As Object
Dim dosyaYolu As String
Dim aliciAdresi As String
Dim konu As String
Dim mesajIcerigi As String

Set olApp = CreateObject("Outlook.Application")


Set olMail = olApp.CreateItem(0)


dosyaYolu = Environ("USERPROFILE") & "\Desktop\SIPARIS.pdf"

aliciAdresi = "fatos.bayindir@pimapen.com.tr" ' Gönderilecek e-posta adresini buraya girin
konu = "Sipariş"
mesajIcerigi = "Merhaba," & vbCrLf & vbCrLf & "Siparişler ekte sunulmuştur. İyi Çalışmalar." & vbCrLf & vbCrLf & "Teşekkürler."


With olMail
.To = aliciAdresi
.Subject = konu
.Body = mesajIcerigi
.Attachments.Add dosyaYolu
.Send
End With


Set olMail = Nothing
Set olApp = Nothing
MsgBox "E-posta başarıyla gönderildi.", vbInformation

Call Temizle
End Sub
umarım çözüm olmuştur.
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst