• 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.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Masaüstü Klasör Oluşturma ve Pdf Kaydetme

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.
dogancagiran

dogancagiran

Yeni Üye
Katılım
18 Haz 2021
Mesajlar
12
Aldığı beğeni
1
Excel V
Office 365 TR
Konu Sahibi
Merhabalar

Elimde personel girişleri ile alakalı kullandığım bir doküman mevcut. Tüm sayfaları masaüstünde belirlediğim konumdaki klasöre "Ad Soyad.pdf" şeklinde kaydediyorum. Buraya kadar bir sorun yok fakat personel sayısı arttıkça klasör çok karışık oluyor. İstediğim durum şu belirlenen klasör konumuna her personel için isme uygun klasör açıp giriş evraklarını buraya kaydetsin. Bu şekilde yapılabilir mi yardımcı olursanız sevinirim.

Vba ile masaüstüne aşağıdaki kod ile klasör açabiliyorum.
Sub dosya_olustur()
Path = ThisWorkbook.Path
MkDir Path & "\Girisler\" & "AdSoyad1"
End Sub
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
H
dogancagiran' Alıntı:
Merhabalar

Elimde personel girişleri ile alakalı kullandığım bir doküman mevcut. Tüm sayfaları masaüstünde belirlediğim konumdaki klasöre "Ad Soyad.pdf" şeklinde kaydediyorum. Buraya kadar bir sorun yok fakat personel sayısı arttıkça klasör çok karışık oluyor. İstediğim durum şu belirlenen klasör konumuna her personel için isme uygun klasör açıp giriş evraklarını buraya kaydetsin. Bu şekilde yapılabilir mi yardımcı olursanız sevinirim.

Vba ile masaüstüne aşağıdaki kod ile klasör açabiliyorum.
Sub dosya_olustur()
Path = ThisWorkbook.Path
MkDir Path & "\Girisler\" & "AdSoyad1"
End Sub
Genişletmek için tıkla...

Pdf makrosunu aşağıdaki gibi değiştiriniz.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Path = ThisWorkbook.Path yazan kısmı
Path="C:\Users\bilgisayarınadı\Masaüstü\Yeni klasör" şekline getirin
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
Path = ThisWorkbook.Path yazan kısmı
Path="C:\Users\bilgisayarınadı\Masaüstü\Yeni klasör" şekline getirin
Genişletmek için tıkla...
Adnan Bey cevabınız için teşekkür ederim. Fakat klasör oluşturmada sıkıntı yaşamıyorum. Pdflerimi oluşturduğum klasörün içerisine otomatik kaydedemiyorum.
Klasör açmasını
Sub dosya_olustur()

Path = ThisWorkbook.Path
For i = 1 To 2
MkDir Path & "\Girisler\" & range("A" & i)
Next
End Sub

bu şekilde sorunsuz dinamik şekilde A hücresine yazılan şekilde isimle açıyorum. Fakat pdfleri açılacak her farklı isimde klasör içerisine kaydedemiyorum
 
Olumlu oy 0 Negatif oyla
dogancagiran' Alıntı:
Merhabalar

Elimde personel girişleri ile alakalı kullandığım bir doküman mevcut. Tüm sayfaları masaüstünde belirlediğim konumdaki klasöre "Ad Soyad.pdf" şeklinde kaydediyorum. Buraya kadar bir sorun yok fakat personel sayısı arttıkça klasör çok karışık oluyor. İstediğim durum şu belirlenen klasör konumuna her personel için isme uygun klasör açıp giriş evraklarını buraya kaydetsin. Bu şekilde yapılabilir mi yardımcı olursanız sevinirim.

Vba ile masaüstüne aşağıdaki kod ile klasör açabiliyorum.
Sub dosya_olustur()
Path = ThisWorkbook.Path
MkDir Path & "\Girisler\" & "AdSoyad1"
End Sub
Genişletmek için tıkla...

Pdf makrosunu aşağıdaki gibi değiştiriniz.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çözüm
Ufak bir düzeltme:
Sayın himmgarip Hocamın kodlarına ufak bir iki ekleme yaptım.
Module 4 içeriğini şu şekilde değiştirin.

Sub isegiriskaydet()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
Hazırlanan = Worksheets("BİLGİ").Range("D4").Value
Path = ds.CreateFolder(Worksheets("Ayarlar").Range("B1").Value & "\" & Hazırlanan) & "\"

Worksheets("A1").ExportAsFixedFormat xlTypePDF, Filename:=Path & Hazırlanan & "\_A1" & ".pdf"
Worksheets("A2").ExportAsFixedFormat xlTypePDF, Filename:=Path & Hazırlanan & "\_A2" & ".pdf"
Worksheets("A3").ExportAsFixedFormat xlTypePDF, Filename:=Path & Hazırlanan & "\_A3" & ".pdf"
Worksheets("A4").ExportAsFixedFormat xlTypePDF, Filename:=Path & Hazırlanan & "\_A4" & ".pdf"
Worksheets("A5").ExportAsFixedFormat xlTypePDF, Filename:=Path & Hazırlanan & "\_A5" & ".pdf"
Worksheets("A6").ExportAsFixedFormat xlTypePDF, Filename:=Path & Hazırlanan & "\_A6" & ".pdf"
End Sub


Ayrıca Masaüstü klasörünü şu kodla elde edebilirsiniz.
mst = environ("userprofile") & "\Desktop"
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst