Farklı Kaydet Butonu ile hem pdf hem xls olarak kaydetme

[ahmeterdemir2]

Bir teklif uyguması hazırladım excelde.
Farklı Kaydet butonu yapmak istiyorum .
Butona bastığımda dosya adını belli bir hücreden alıp hem pdf hem excel olarak belirlediğim bir klasöre farklı kaydedecek .
Ana dosyayı ben kendim kaydetecem

Yardımlarınıza ihtiyacım var şimdiden teşekkürler.

 

[volki_112]

Bir teklif uyguması hazırladım excelde.
Farklı Kaydet butonu yapmak istiyorum .
Butona bastığımda dosya adını belli bir hücreden alıp hem pdf hem excel olarak belirlediğim bir klasöre farklı kaydedecek .
Ana dosyayı ben kendim kaydetecem

Yardımlarınıza ihtiyacım var şimdiden teşekkürler.

İstediğin kodlar. Sayfa1 de A1 hücresinden kayıt ismini alır. o kısımları değiştirebilirsin.

Sub FarkliKaydet()
    Dim dosyaAd As String
    Dim klasorYolu As String
    Dim dosyaYolu As String
    Dim savePath As Variant
    
    ' Belirli hücreyi al (örneğin, A1 hücresindeki değer dosya adı olarak alınacak)
    dosyaAd = ThisWorkbook.Sheets("Sayfa1").Range("A1").Value
    
    ' Klasör seçme penceresi aç
    savePath = Application.GetSaveAsFilename(InitialFileName:=dosyaAd & ".xlsm", _
                                              FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", _
                                              Title:="Dosyayı Kaydet")
    
    ' Eğer kullanıcı bir dosya yolu seçmediyse, çık
    If savePath = False Then
        MsgBox "Dosya kaydedilmedi.", vbExclamation
        Exit Sub
    End If
    
    ' Dosyanın bir kopyasını kaydet
    ThisWorkbook.SaveCopyAs savePath
    
    ' PDF olarak kaydet (aynı isimle)
    ThisWorkbook.Sheets("Sayfa1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Replace(savePath, ".xlsm", ".pdf")
    
    MsgBox "Dosya başarıyla kaydedildi!"
End Sub

 

[ahmeterdemir2]

Kod çalışıyor çok teşekkürler.

Pdf normal açılıyor ama xlsm açılırken " dosyanın bozuk olmadığını ve dosya uzantısının dosyan9ın biçimiyle eşleştiğini doğrulayın " hatası veriyor

 

[ahmeterdemir2]

İstediğin kodlar. Sayfa1 de A1 hücresinden kayıt ismini alır. o kısımları değiştirebilirsin.

Sub FarkliKaydet()
    Dim dosyaAd As String
    Dim klasorYolu As String
    Dim dosyaYolu As String
    Dim savePath As Variant
   
    ' Belirli hücreyi al (örneğin, A1 hücresindeki değer dosya adı olarak alınacak)
    dosyaAd = ThisWorkbook.Sheets("Sayfa1").Range("A1").Value
   
    ' Klasör seçme penceresi aç
    savePath = Application.GetSaveAsFilename(InitialFileName:=dosyaAd & ".xlsm", _
                                              FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", _
                                              Title:="Dosyayı Kaydet")
   
    ' Eğer kullanıcı bir dosya yolu seçmediyse, çık
    If savePath = False Then
        MsgBox "Dosya kaydedilmedi.", vbExclamation
        Exit Sub
    End If
   
    ' Dosyanın bir kopyasını kaydet
    ThisWorkbook.SaveCopyAs savePath
   
    ' PDF olarak kaydet (aynı isimle)
    ThisWorkbook.Sheets("Sayfa1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Replace(savePath, ".xlsm", ".pdf")
   
    MsgBox "Dosya başarıyla kaydedildi!"
End Sub

Kod çalışıyor çok teşekkürler.

Pdf normal açılıyor ama xlsm açılırken " dosyanın bozuk olmadığını ve dosya uzantısının dosyan9ın biçimiyle eşleştiğini doğrulayın " hatası veriyor

 

[muhasebeciyiz]

Eğer sadece ThisWorkbook.SaveAs savePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled satırını değiştirirseniz, dosyanın doğru formatta kaydedilmesini sağlayabilirsiniz. Ancak, burada birkaç önemli şey var:

Eğer dosyanızda herhangi bir makro varsa ve .xlsm olarak kaydediyorsanız, bu format doğru olacaktır.
ThisWorkbook.SaveAs savePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled

 

[volki_112]

Kod çalışıyor çok teşekkürler.

Pdf normal açılıyor ama xlsm açılırken " dosyanın bozuk olmadığını ve dosya uzantısının dosyan9ın biçimiyle eşleştiğini doğrulayın " hatası veriyor

hali hazırda kullandığınız excelin xlsm formatında olması gerekli. xlsm uzantılı excelde çalıştırınız kodu

 

[ahmeterdemir2]

Eğer sadece ThisWorkbook.SaveAs savePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled satırını değiştirirseniz, dosyanın doğru formatta kaydedilmesini sağlayabilirsiniz. Ancak, burada birkaç önemli şey var:

Eğer dosyanızda herhangi bir makro varsa ve .xlsm olarak kaydediyorsanız, bu format doğru olacaktır.
ThisWorkbook.SaveAs savePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled

kaydettiği exceller açılmıyor tam olarak ne yapmam lazım

 

[ahmeterdemir2]

@volki_112
@muhasebeciyiz

 

[volki_112]

@volki_112
@muhasebeciyiz

dosyanı gönderir misin

 

[volki_112]

İndir Teklif Deneme xlsx

Dosyayı indir Teklif Deneme xlsx

dosya.co

Kaydet butonuna basınca kaydetme işlemlerini yapar. Kayıt adını Sayfa1 de P2 hücresinden alır. Dosyanızı indirin. İndirince haber verin linki kaldıracağım.

 

[ahmeterdemir2]

çok teşekkürler

 

[ahmeterdemir2]

indirdim