Pdf kayıt yeri

[sinnernekolens]

İyi günler arkadaşlar,
Aşağıdaki kod ile sayfayı pdf ye çeviriyorum ve çevrilen pdf yi excel dosyanın bulunduğu konuma kaydediyor.
yapmak istediğim excel dosyasının bulunduğu konumda "Kayıtlar" adında bir klasörüm var, Pdf ye çevirdiğim dosyaları bu klasöre kayıt yapmasını nasıl sağlaya bilirim.
yardımlarınızı rica ederim.

Private Sub CommandButton6_Click() 'PDF YE ÇEVİRİYOR
Yol = ThisWorkbook.Path
isim = Format(Sheets("PDA").Range("G1") & ".pdf")

'Sheets("PDA").Select
Sheets("PDA").Range("A1:G62").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Yol & "/" & isim & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True

MsgBox "Tablonun Bulunduğu Sayfaya Kaydedilmiştir.", vbInformation, "P D F"

Dim Adres
Adres = ThisWorkbook.Path
If Adres <> "" Then
CreateObject("Shell.Application").Open (Adres)
End If

End Sub

 

[Orion1]

Buyurun.

Yol = ThisWorkbook.Path & "\Kayıtlar"

 

[veyselemre]

Private Sub CommandButton6_Click()    'PDF YE ÇEVİRİYOR
    yol = ThisWorkbook.Path & "\KAYITLAR\"
    isim = Sheets("PDA").Range("G1") & ".pdf"

    Sheets("PDA").Range("A1:G62").ExportAsFixedFormat _
            Type:=xlTypePDF, Filename:=yol & isim, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True

    MsgBox "Tablonun Bulunduğu Sayfaya Kaydedilmiştir.", vbInformation, "P D F"

    CreateObject("Shell.Application").Open (yol)

End Sub

 

[sinnernekolens]

Orion1 ve veyselemre Çok teşekkür ederim sağolun.

 

[Costcost]

Sayın Üstadlar merhabalar,
yukarıdaki konuya ilişkin farklı bir sorum olacak. Belirli bir hücre alanını ("A1:BU60") pdf olarak kayıt yaptırırken, isim vermeden, sadece o günün tarihi ve saati olarak kayıt yapılabir mi acaba? herhangi bir isim vermeden command butonla otomatik olarak tarih ve saat bilgisini kayıtlar kalasörüne, tarih saat isimli pdf dosyasını kayıt edecek. yardımınız için şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Yukarıdaki kodlardaki isim satırını aşağıdaki şekilde değiştirip deneyiniz.
isim = Format(Now, "dd.mm.yyyy_hh.mm") & ".pdf"

 

[Orion1]

Sayın Üstadlar merhabalar,
yukarıdaki konuya ilişkin farklı bir sorum olacak. Belirli bir hücre alanını ("A1:BU60") pdf olarak kayıt yaptırırken, isim vermeden, sadece o günün tarihi ve saati olarak kayıt yapılabir mi acaba? herhangi bir isim vermeden command butonla otomatik olarak tarih ve saat bilgisini kayıtlar kalasörüne, tarih saat isimli pdf dosyasını kayıt edecek. yardımınız için şimdiden teşekkür ederim.

Buyurun

isim = Format(now,"dd.mm.yyyy_hh_mm_ss") & ".pdf"

 

[Costcost]

Çok teşekkür ederim hızlı cevaplarınız için Sayın Ömerbey ve Sayın Orion1. ÖmerBey'in verdiği kod çalıştı, ancak Sayın Orion1'in kodunda debug hatası verdi.

 

[Orion1]

7 nolu mesajda düzenledim.Tekrar deneyiniz.

 

[incsoft]

Hocamr benimde buna benzer bir talebim olmuştu ancak cevap alamamıştım. Benimde kullandığım excel dosyamı ben standart bir formatta o günkü sayfa ismine göre kaydederek pdf'e dönüştürüyorum. Mesela dosya ismim 2019-01--TORNA.xlsm ve bugün ayın 17'ise 17 numaralı sayfanın adı olan 2019-01-17-TORNA.pdf olarak belirttiğim klasöre mesela C:\Users\u.i\Desktop\GÜNLÜK GÖNDERİLECEK MAİLLER klasörüne kaydettirmek istiyorum. Bunun için aşağıdaki şekilde denemeye çalıştım olmadı. Sheets("17") sabit değil mesela bugün 17 yarın 18 ... 20..31 şeklinde değişecek..Bunu nasıl yapabilirim?




Private Sub CommandButton16_Click()
yol = ThisWorkbook.Path & "C:\Users\ufuk.ince\Desktop\GÜNLÜK GÖNDERİLECEK MAİLLER"
isim = Format(Now, "dd.mm.yyyy_hh.mm") & ".pdf"
Sheets("17").Range("A1:Q161").ExportAsFixedFormat _
Type:=xlTypePDF, Filename:=yol & isim, _
Quality:=xlQualityStandard, IncludeDocProperties:=True

MsgBox "Tablonun Bulunduğu Sayfaya Kaydedilmiştir.", vbInformation, "P D F"

CreateObject("Shell.Application").Open (yol)
End Sub

7 nolu mesajda düzenledim.Tekrar deneyiniz.

 

[Costcost]

Sayın Orion1, ilginiz için çok teşekkür ederim. şimdi denedim, sizinki de güzel çalışıyor, hatta saniyesine kadar kayıt yapıyor. tekrar çok teşekkürler.

 

[Orion1]

Sayın Orion1, ilginiz için çok teşekkür ederim. şimdi denedim, sizinki de güzel çalışıyor, hatta saniyesine kadar kayıt yapıyor. tekrar çok teşekkürler.

Rica ederim.
İyi çalışmalar.

 

[ÖmerBey]

Sheets("17") sabit değil mesela bugün 17 yarın 18 ... 20..31 şeklinde değişecek..Bunu nasıl yapabilirim?

Kodunuza aşağıdaki kırmızı bölümleri ekleyip deneyiniz.

Dim gun As String
gun = Day(Date)
Sheets(gun).Range("A1:Q161").ExportAsFixedFormat _

İyi çalışmalar...

 

[incsoft]

Private Sub CommandButton1_Click()
Dim gun As String
yol = ThisWorkbook.Path & "C:\Users\ufuk.ince\Desktop\GÜNLÜK GÖNDERİLECEK MAİLLER"
isim = Format(Now, "dd.mm.yyyy_hh.mm") & ".pdf"
gun = Day(Date)
Sheets(gun).Range("A1:Q161").ExportAsFixedFormat _
Type:=xlTypePDF, Filename:=yol & isim, _
Quality:=xlQualityStandard, IncludeDocProperties:=True

MsgBox "Tablonun Bulunduğu Sayfaya Kaydedilmiştir.", vbInformation, "P D F"

CreateObject("Shell.Application").Open (yol)
End Sub

 

[ÖmerBey]

Aktif çalışma kitabında 17 isimli bir sayfa yok ise bu hatayı alırsınız.
Başka bir excel dosyası açıkken bu kodu kullanıyorsanız başına workbook adı ilave ediniz.
ThisWorkbook.Sheets(gun)... gibi

 

[incsoft]

ThisWorkbook

ThisWorkbook.Sheets(gun).Range("A1:L34").ExportAsFixedFormat _
yine aynı hata Ömer bey

 

[ÖmerBey]

Tekrar merhaba,
Bir örnek dosya paylaşırsanız hatanın nereden kaynaklandığını daha doğru biçimde anlayabiliriz.