Excel VBA İle Xlsm Dosyasını Xlsm Uzantılı Olarak Farklı Kaydetme

[Lenadro]

Merhabalar,

xlsm uzantılı bir çalışma dosyam mevcut burada içerisinde mevcut olan sayfalardan sadece bir tanesi farklı kaydederek xlsm uzantılı olarak yapma imkanı var mıdır?

Not : Macro kodlarıyla yapılması gerekiyor.

 

[Korhan Ayhan]

Merhaba,

Makro Kaydet yöntemi ile ilgili kodları elde edebilirsiniz. Bir araştırın derim.

 

[Lenadro]

Merhaba,

Makro Kaydet yöntemi ile ilgili kodları elde edebilirsiniz. Bir araştırın derim.

Merhaba Korhan Bey,

Makro ile denediğimde işlem net olarak çözüm sunmadı bana sanırım var olan bir sayfanın kopyasını alıp masaüstüne kaydetmeyi denemeye çalıştığımdan sanırım.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Sayfayi_Yeni_Kitap_Olarak_Kaydet()
    Dim Yol As String, Dosya_Adi As String
  
    On Error GoTo Son
  
    Yol = ThisWorkbook.Path & Application.PathSeparator
    Dosya_Adi = "Deneme.xlsm"
  
    Sheets("Sheet1").Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Yol & Dosya_Adi, 52
    Application.DisplayAlerts = True
    ActiveWorkbook.Close
  
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    Exit Sub

Son:
    ActiveWorkbook.Close 0
    MsgBox "Bir hata oluştu!" & vbCr & vbCr & "Dosya açık olabilir!", vbCritical
End Sub

 

[Lenadro]

Deneyiniz.

Option Explicit

Sub Sayfayi_Yeni_Kitap_Olarak_Kaydet()
    Dim Yol As String, Dosya_Adi As String
 
    On Error GoTo Son
 
    Yol = ThisWorkbook.Path & Application.PathSeparator
    Dosya_Adi = "Deneme.xlsm"
 
    Sheets("Sheet1").Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Yol & Dosya_Adi, 52
    Application.DisplayAlerts = True
    ActiveWorkbook.Close
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    Exit Sub

Son:
    ActiveWorkbook.Close 0
    MsgBox "Bir hata oluştu!" & vbCr & vbCr & "Dosya açık olabilir!", vbCritical
End Sub

Korhan Bey,

Sorunumu sizin sayenizde çözdüm. Cevap için çok teşekkür ederim.