Excel dosyasını silme

[muratgunay48]

Arkadaşlar, benim mesela Belgelerimde 'GRAFİKLER' diye bir klasörüm var. İçinde excel dosyası var. Grafik verilerini gireceğim ve sonra bir kısayol ile (mesela CTRL+y) dosyayı aynı isimle PDF olarak kaydedecek ve excel dosyasını silecek. Ertesi gün klasör yenilendiği için yedeği mevcut, sorun değil. Makro ya da VBA olabilir. Silme olayını yapamadım.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[muratgunay48]

Sayın hocalarımız, bir çözüm yok mu acaba.

 

[ÖmerBey]

Silme olayını yapamadım.

Merhaba,
Dosyanızın yedeğini aldıktan sonra deneyiniz...

Sub kod()
With ThisWorkbook
    .Save
    .ChangeFileAccess xlReadOnly
    Kill .FullName
    .Close
End With
End Sub

 

[muratgunay48]

Merhaba,
Dosyanızın yedeğini aldıktan sonra deneyiniz...

Sub kod()
With ThisWorkbook
    .Save
    .ChangeFileAccess xlReadOnly
    Kill .FullName
    .Close
End With
End Sub

Hocam, öncelikle elinize sağlık. Fakat anlayamadım. Kodun kısayolu nedir. Mesela grafik excel tamam. Açık. O an ne yapmam gerekiyor.
Saygılarımla

 

[muratgunay48]

@Korhan Ayhan hocam, Ömer hocamın yazdığı kodu bir açıklayabilir misiniz. Bugün kullansam.
Teşekkür ederim.
Sayglarımla.

 

[Cengiz Demir]

Eğer kısayol için bilgi istiyorsanız; bu makroyu dosyanızda oluşturduktan sonra, kısayolunu kendiniz belirleyebilirsiniz.

(Geliştirici sekmesi makrolar/ilgili makro/seçenekler)

 

[muratgunay48]

Eğer kısayol için bilgi istiyorsanız; bu makroyu dosyanızda oluşturduktan sonra, kısayolunu kendiniz belirleyebilirsiniz.

(Geliştirici sekmesi makrolar/ilgili makro/seçenekler)

İlginize çok teşekkür ederim.
Hayır, makroyu çalıştırdığım zaman, aynı isimle PDF dosyası oluşturacak ve excel dosyasını silecek. Zaten dosya her gün yenileniyor. Kopyası gelmiş oluyor. Grafik verilerini girip makro çalıştıracağım.

 

[muratgunay48]

@ÖmerBey hocam, kod çalışmadı. Ya da ben yapamadım. Size zahmet kontrol sağlayabilir misiniz. Kodu yazıp, çalıştır diyorum, hiç bir şey olmuyor. PDF'e dönüştürmüyor. Silmiyor.
Saygılarımla.

 

[muratgunay48]

Sayın hocalarımız yardımcı olabilir misiniz lütfen. Bu makro ya da VBA çok zaman kazandıracak bana. Siz de yoğunsunuz ama.
Saygılarımla.

 

[Korhan Ayhan]

PDF olarak tüm dosya mı kayıt edilecek, yoksa bir sayfa mı?

PDF dosya aynı klasöre mi kayıt edilecek?

 

[muratgunay48]

PDF olarak tüm dosya mı kayıt edilecek, yoksa bir sayfa mı?

PDF dosya aynı klasöre mi kayıt edilecek?

Hocam, öncelikle iyi geceler dilerim. PDF olarak kaydedecek. Sonra silinecek.
Tekrar teşekkür ederim.

 

[muratgunay48]

PDF olarak tüm dosya mı kayıt edilecek, yoksa bir sayfa mı?

PDF dosya aynı klasöre mi kayıt edilecek?

PDF olarak kaydedecek. Sonra silinecek. En son yazdığınız koddaki gibi olabilir mi mesela. Ben grafik verilerini girsem. Şeffaf bir buton olsa (A1 hücresinde) tıklasam ve aynı isimle PDF olarak bulunduğu klasörün içine kaydetse ve dosyayı silse. Ya da buna benzer.
Tekrar teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Hem şeffaf buton var. hem de Ctrl+Shift+Y kısayol tanımlaması yaptım.

 

[muratgunay48]

Deneyiniz.

Hem şeffaf buton var. hem de Ctrl+Shift+Y kısayol tanımlaması yaptım.

Hocam çok teşekkür ederim. Elinize emeğinize sağlık.
Saygılarımla.

 

[muratgunay48]

Deneyiniz.

Hem şeffaf buton var. hem de Ctrl+Shift+Y kısayol tanımlaması yaptım.

Hocam, şu an öyle bir şey lazım değil ama. Mesela. Olduğu klasöre değil de, bir yol vermek istesek. Mesela "Belgelerim" içine kaydet PDF dosyasını ve yine de sil. Yol kısmını nereye yazıyoruz.
Tekrar teşekkür ederim.
Saygılarımla.

 

[Korhan Ayhan]

Kod bölümünü açarsanız görebilirsiniz.

Aşağıdaki satırdaki bold olan bölümü değiştirmeniz yeterli olacaktır.

Dosya_Adi = ThisWorkbook.Path & "\" & CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name) & ".pdf"


Örnek;

Dosya_Adi = "C:\Belgelerim\" & CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name) & ".pdf"

 

[muratgunay48]

Anladım hocam, \ olduğu yere anlamını taşıyor.
Çok teşekkür ederim.
Saygılarımla.

 

[Asri]

Bu dosya hergün yenilendiği için makronun kişisel makro bölümüne kaydedilmesi gerekmez mi diye düşündüm!

 

[muratgunay48]

Bu dosya hergün yenilendiği için makronun kişisel makro bölümüne kaydedilmesi gerekmez mi diye düşündüm!

Dosya her gün yenilenmiyor hocam. Bir D klasöründe yedekler var sıfır halde. Oradan çekiyorum. Belgelerim\grafiklerde sıfır olmuş oluyor.