Buton ile Excelden Excel Olarak Kaydetme

[selcukerd]

Merhaba Excel Üstadları,

Ekte eklediğim excel dosyasında istediğim alanı buton ile "PDF" formatında otomatik masaüstüne kaydedebiliyorum. Fakat benim istediğim "Excel" formatında kaydetmesidir. Nasıl yapabilirim? Dosya linki http://dosya.web.tr/KYvxVQ

 

[Korhan Ayhan]

Dosyanızı aşağıdaki siteye yükleyebilir misiniz?

http://www.dosya.tc/

 

[selcukerd]

dosya linki: http://www.dosya.tc/server7/zlqxc0/KIMLIK_KARTI.rar.html

 

[Korhan Ayhan]

Deneyiniz...

Sub EXCEL_FORMATINDA_KAYDET()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Set K1 = ThisWorkbook
    Set SA = K1.Sheets("Sayfa1")
    Yol = K1.Path
    
    For i = 2 To SA.Cells(SA.Rows.Count, "A").End(3).Row
        SA.Range("I8:J8") = SA.Cells(i, "A")
        SA.Range("I9:J9") = SA.Cells(i, "B")
        SA.Range("I10:J10") = SA.Cells(i, "C")
        isim = SA.Range("E1").Value & "-" & SA.Range("F1")
        Set K2 = Workbooks.Add(1)
        SA.Range("g5:j11").Copy
        K2.ActiveSheet.Range("A1").PasteSpecial xlValues
        K2.ActiveSheet.Range("A1").PasteSpecial xlFormats
        K2.SaveAs Yol & "\" & isim & ".xls"
        K2.Close
    Next i

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[selcukerd]

Çok teşekkür ederim Korhan Hocam.

İyi çalışmalar.