İçerik Yerine Değerleri Yedek Alma

[beyinmuhendisi]

Ekli dosyayı okul aile birliği üyeleri "Nasıl beceriyorlar anlamadım." bozuyorlar. Bu nedenle yedek almak icap etti. Siteden bulup düzenlediğim yedek alma kodu sayfadaki formüller ile dosyanın orjinaline bağlantılı çalışıyor. Dolayısıyla yedek dosya açıldığında güncelleme soruyor. "Bu nedenle bunu da bozarlar."

Güncelleme istememesini veya sayfadaki değerlerin yedeğinin alınmasını sağlayabilir miyiz?

Teşekkürler!

Kullandığım kod;

Sub Yedek()
ActiveSheet.Copy
    Application.DisplayAlerts = False
    If Dir("D:\Aile Birliği Yedek", vbDirectory) = "" Then
             MkDir "D:\Aile Birliği Yedek"
    End If
    ActiveWorkbook.SaveAs Filename:="D:\Aile Birliği Yedek\Öğrenci Bağışları" & Format(Now, " yyyy_mm_dd") & " Yedek", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close
    MsgBox "     Aktif sayfa      D:\Aile Birliği Yedek      klasörüne kopyalandı.", vbInformation
End Sub

 

[Ömer BARAN]

Merhaba.

Forum sayfalarının üst orta kısmında bulunan ARAMA bölümüne
değer+yedek gibi ilgili olabilecek kelime grupları yazarak arama yaparsanız örnekler olması lazım.

Fark ettiğim ilk örnek sayfası aşağıda.
Sayfa Yedekleme Sorunu

Kolay gelsin.
.

 

[beyinmuhendisi]

Sayın Ömer BARAN uyarınız için teşekkür ederim! İyi çalışmalar


Birkaç gündür yoğundum. Kodu kendime göre düzenledim. Belki birinin işine yarar diye aşağıya ekliyorum.

Sub Yedek()
Sheets("Liste").Select
Dim Dosya_Yolu As String, Dosya_Adı As String

Application.ScreenUpdating = False

Dosya_Adı = ".xls"
Dosya_Yolu = "D:\Aile Birliği Yedek\Okul Bağış" & " Yedekleme " & Format(Now, " dd/mm/yyyy") & " Saat " & Format(Now, "hh.mm")
If Dir("D:\Aile Birliği Yedek", vbDirectory) = "" Then
             MkDir "D:\Aile Birliği Yedek"
    End If

Application.DisplayAlerts = False

Sheets("Liste").Range("A4:L3504").Copy
Workbooks.Add
ActiveSheet.[a1].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.[a1].Select

ActiveWorkbook.SaveAs Dosya_Yolu & Dosya_Adı, [COLOR="Red"]FileFormat:=-4143 _[/COLOR]
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True

MsgBox "Ödeme Listesi    ''D:\Aile Birliği Yedek''    klasörüne yedeklendi!"
End Sub

 

[Ömer BARAN]

Estağfurullah.

Kendi çözmünüzü bulduğunuz ve
bulduğunuz çözümü de paylaştığınız için teşekkürler.

Farklı kaydederken, eski Ms.Excel sürümlerini kullananların da belgeyi açma konusunda sorun yaşamaması için;
aşağıdaki konu sayfasında yer alan 5 numaralı cevabımda belirttiğim tarzda kod düzenlemesi (ActiveWorkbook.SaveAs kısmında) yapmanızı öneriyorum.

Toplu olarak uyumluluk modu dönüştür

Kolay gelsin.
.

 

[beyinmuhendisi]

Sayın Ömer BARAN düzenlediğim kırmızı yeri kastettiniz sanırım.

 

[Ömer BARAN]

Sayın Ömer BARAN düzenlediğim kırmızı yeri kastettiniz sanırım.

Evet, aynen.

Kod'un yeni halini deneyerek düzeltme yaptınız umarım.
.

 

[beyinmuhendisi]

Deneme yaptım, kod sorunsuz çalışıyor. İyi çalışmalar!

 

[Ömer BARAN]

Kolay gelsin, paylaşım için tekrar teşekkürler.