Çalışma Kitabını Farklı Kaydet

[Feylosof]

Arkadaşlar herkese başarılı bir gün dilerim.

yapısında birkaç userform, CommandButton ve diğer düğmelerin olduğu Excel çalışma kitabını xlsx formatında farklı kaydetmek istiyorum. Kaydederken tüm userformlar ve düğmelerin tamamı silindikten sonra kaydedip kapanacak bir kod arıyorum. Forumda bu minvalde epeyce konu var ama hiçbirisini belirttiğim gibi çalıştıramadım. Desteklerinizi istirham ediyorum.

 

[isaaceyhan]

İnşaAllah Kod gelir bende aynı şekilde arıyorum! ve arşivlemek için günlük kayıt yaptırıyorum. Bu kaydı yaparken günün tarihini değilde bir gün öncesini attırmayı da başaramadım! Yardımcı olacak olursa bu konuyada değinebilir mi? Şimdiden Teşekkür ederim.

 

[Korhan Ayhan]

Yeni sürümlerde dosyayı xlsx uzantısı ile kaybedince zaten makrolar siliniyor.

 

[Feylosof]

@Korhan Ayhan hocam ilginiz için teşekkürler. Şu işlemleri amaçladığım için kod yoluyla istedim:

1- Sayfalarda düğmeler mevcut silinsin
2- Doğrudan aynı klasörün içine kaydetmek için
3- Herhangi bir uyarı almadan kaydetsin
4- Kaydedilen dosya kapansın esas dosya açık kalsın
5- Dosya Adını otomatik yazsın
6-Kısaca Kayıt işlemini tek hareketle yaparak işlemi hızlandırmak için
MAKRO KAYDET yoluyla uğraştım. Başaramadım. Bu anlamda bir kod varsa paylaşırsanız çok memnun olurum. Sağlıkla kalın.

 

[Korhan Ayhan]

Sayfadaki düğmeleri hangi menüyü kullanarak eklediniz. Yani düğmenin tipi nedir?

 

[Korhan Ayhan]

Daha önce forumda paylaşmış olduğumuz aşağıdaki linkteki kodlardan faydalandım.

Dosya yedekleme

Merhaba, hayırlı günler diliyorum. Ekte gönderdiğim excel dosyamda dosya yedekleme makrosu mevcut, butona bastığımda dosyanın aynısı masaüstüne makrolu olarak yedekleme yapıyor. Yapmak istediğim butona bastığımda aynı şekilde makrosuz (.xlsx) uznatılı olarak yedeklemesi için kodun neresinde...

www.excel.web.tr

Option Explicit

Sub Yedekle()
    Dim Yol As String, Sayfa As Worksheet
    
    If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo + vbDefaultButton2) = vbNo Then
        MsgBox "İşlemi iptal ettiniz!", vbExclamation
        Exit Sub
    End If
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Yol = ThisWorkbook.Path & Application.PathSeparator

    ThisWorkbook.Save
    ThisWorkbook.Sheets.Copy
    
    For Each Sayfa In ActiveWorkbook.Worksheets
        If Sayfa.DrawingObjects.Count > 0 Then
            Sayfa.DrawingObjects.Visible = True
            Sayfa.DrawingObjects.Delete
        End If
    Next
    
    ActiveWorkbook.SaveAs Yol & Format(Now, "dd.mm.yyyy hh_nn_ss") & " " & Replace(ThisWorkbook.Name, "xlsm", "xlsx"), 51
    ActiveWorkbook.Close
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "Dosya aşağıdaki klasöre yedeklendi." & vbCrLf & vbCrLf & Yol, vbInformation
End Sub

 

[Feylosof]

@Korhan Ayhan Bey çok teşekkür ediyorum. Var olun.
xlsx formatına kayıt yaparken Şu uyarıyı almadan kayıt tamamlanmıyor anladığım kadarıyla. Bu uyarıyı atlama şansımız yok mu acaba

 

[Korhan Ayhan]

Bende bahsettiğiniz uyarı çıkmıyor. Ama önerdiğim koda bunu aşmaya yarayacak kod satırlarını ekledim. Deneyip sonucu bildirirseniz sevinirim.

 

[Feylosof]

@Korhan Ayhan hocam şimdi tam istediğim gibi oldu. Artık yukarıda belirttiğim uyarı gelmedi. Her şey için çok teşekkürler.