pdf olarak kaydetme

[umitumit]

Arkadaşlar merhaba,

Aşağıdaki makroyu kullanarak excel dosyamın aktif sayfasını belirtilen klasör içine pdf formatında kaydediyorum.
Ancak benim makrom her defasında aynı isimle üst üste kayıt yapıyor.

İstediğim ise aktif sayfanın A1, A2 ve A3 hücrelerindeki değerler ile dosya ismi oluşturarak kayıt yapmak.

A1 6001
A2 AHMET YILMAZ
A3 06.11.2015

olursa, pdf dosyamın ismi

20151106-6001-AHMET Y.pdf olsun.

(A2 nin ilk 7 karakteri alınsın)

Teşekkürler

Sub deneme()
'
' deneme Makro
'

'
ChDir "\\Fs\uretim_rapor\2015_0_Üretim_Ortak\2016_Ihracat_Gonderileri"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\Fs\uretim_rapor\2015_0_Üretim_Ortak\2016_Ihracat_Gonderileri\a.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()

ad = Format(Range("A3"), "YYYYMMDD") & "-" & Range("A1") & "-" & left(Range("A2"), 7)

ChDir "\\Fs\uretim_rapor\2015_0_Üretim_Ortak\2016_Ihraca t_Gonderileri"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\Fs\uretim_rapor\2015_0_Üretim_Ortak\2016_Ihraca t_Gonderileri\" & ad & "&.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

. . .

 

[umitumit]

Çok teşekkürler Hüseyin bey,

Kayıt işlemi başarıldı.
Şimdi sıra bu pdf dosyasının outlook ile mail olarak gönderilmesinde.
Hangi adreslere gönderileceğini ilgili excel dosyasının "DATA" sayfasına yazsak, outlook gönderisi haline getirebilir miyiz?
Bana sadece "GÖNDER" demek kalsın.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
  [COLOR="DarkGreen"]  
    'MAİL GÖNDERİMİ BAŞLANGIÇ
    'NOT: TOOLS-REFERENCES TIKLA
    'MİCROSOFT OUTLOOK 12.0 İŞARETLİ OLMALI[/COLOR]
    
    With Application
        .EnableEvents = False:  .ScreenUpdating = False
    End With
    
    Dim xlOutlook   As Object
    Dim xlMail      As Object
    Set xlOutlook = CreateObject("Outlook.Application")
    Set xlMail = xlOutlook.CreateItem(0)
    
    ad = Format(Range("A3"), "YYYYMMDD") & "-" & Range("A1") & "-" & Left(Range("A2"), 7)
    yol = "\\Fs\uretim_rapor\2015_0_Üretim_Ortak\2016_Ihraca t_Gonderileri\"
    
   [COLOR="DarkGreen"] 'ChDir yol
    'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & ad & "&.pdf", _
    'Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True[/COLOR]
    
    
    With xlMail
        .To = Sheets("DATA").Range("A1").Value
        .CC = ""
        .Subject = "Konu"
        .Body = ""
        .Attachments.Add yol & ad & "&.pdf"
        .Save
        .Display
        '.Send
    End With
    
    Set xlMail = Nothing
    Set xlOutlook = Nothing
    
    With Application
        .EnableEvents = True:   .ScreenUpdating = True
    End With
End Sub

. . .

 

[umitumit]

Çok teşekkürler Hüseyin bey, elinize sağlık.