Dosya yedekleme

Merhaba Sayın @SilinenUye8231 .

Sayfadaki düğme ile aşağıdaki kodu ilişkilendirerek dener misiniz?
Kod, belgenin xlsx uzantılı makrosuz yedeğini MASAÜSTÜne kaydeder (varsa masaüstündeki eski yedek belge silinir) .


.

Sayın Ömer Bey, ellerinize sağlık çok teşekkür ediyorum.
Aslında yapmak istediğim dosyayı her açtığımda masaüstündeki YEDEK klasörü içerisine hem makrolu hemde makrosuz olarak yedek almak istemiştim.
Dosyadaki kod zaten makrolu olarak kaydetiyor, birde makrosuz olarak kaydederse işlem tamam olacak. Eski dosyaları silmesin.

Kod aşağıdaki kısımda hata veriyor.
Kill yol & isim & ".xlsx"

Gönderdiğim resimdeki gibi yapmak istemiştim.

Sayın @SilinenUye8231 .

Önceki kod cevabımı güncelledim.
Sayfayı yenileyerek önceki cevabıma tekrar bakınız.
Kodun yeni hali, bir tane makrosuz .xlsx uzantılı, bir tane de makrolu .xlsm uzantılı kopyası
örnek belgenizdeki kodda olduğu gibi tarih saat bilgisi eklenerek isimlendirilirek kaydedilir.

Dikkat: Koddaki yol bilgisinde Desktop ibaresinden sonra YEDEK kısmını aşağıdaki gibi eklersiniz.
yolisim = Environ("USERPROFILE") & "\Desktop\YEDEK\" & isim

.

Sayın Ömer Bey, ellerinize sağlık, şuan tam istediğim gibi çalışıyor, çok teşekkür ediyorum.

Bu işlemi göndermiş olduğunuz kodda sadeleştirme yapmaya çalışarak sadece .xlsx uzantılı makrosuz olarak kaydetmek istedim, olmadı.

Yardımcı olur musunuz?

ASLAN7410' Alıntı:

Sayın Ömer Bey, ellerinize sağlık, şuan tam istediğim gibi çalışıyor, çok teşekkür ediyorum.

Bu işlemi göndermiş olduğunuz kodda sadeleştirme yapmaya çalışarak sadece .xlsx uzantılı makrosuz olarak kaydetmek istedim, olmadı.

Yardımcı olur musunuz?

Genişletmek için tıklayın ...

Merhaba @SilinenUye8231 @Ömer BARAN üstadımızın yüksek müsaadeleriyle cevap vermek istedim. Microsoft Excel makrolu çalışma kitaplarını .xlsm olarak kaydeder. Ömer Baran abimin düzenlemiş olduğu koddan aşağıdaki satırı silin sadece .xlsx olarak kaydedecektir.


MsgBox "Biri makrosuz, diğeri makrolu olarak 2 yedek dosya kaydedildi." bunu da düzeltirsiniz.

Sayın ycicek ilginiz için çok teşekkür ediyorum.
Sorun çözüldü. Hayırlı günler diliyorum.