Tüm dosyayı değer olarak kaydetme

[bgunes]

Excelde birden birden çok çalışma sayfası içeren ve her çalışma sayfasında birçok formül olan yüklü bir dosyayı, sadece değerleri aktaracak şekilde farklı kaydetmek istiyorum. Yani çalışma sayfaları aynı kalacak şekilde ve tüm formüller değere dönüşecek şekilde farklı kaydedilebilirmi.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?
Mevcut dosya adına saati de ekler ve makrodan kurtararak farklı kaydeder.

Sub FormuldenKurtar()
    
    Dim Sayfa           As Worksheet
    Dim Dosyaadi        As String
    Dim DosyaUzantisi   As String
    
    On Error Resume Next
    
    Dosyaadi = Split(ActiveWorkbook.Name, ".")(0)
    
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With
    
    If Val(Application.Version) >= 12 Then
        DosyaUzantisi = ".xlsx"
    Else
        DosyaUzantisi = ".xls"
    End If
    
    For Each Sayfa In Sheets
        If Sayfa.AutoFilterMode = True Then Sayfa.AutoFilterMode = False
        Sayfa.Select
        Sayfa.Cells.Copy
        Sayfa.Cells.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        Range("A1").Select
    Next Sayfa
    
    Sheets(1).Select
    
    ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & Application.PathSeparator & Dosyaadi & "-" & Format(Time, "hhmmss") & DosyaUzantisi, FileFormat:=xlOpenXMLWorkbook
    
    Application.ScreenUpdating = True
    
End Sub

 

[broodofqueen]

Hocam, ellerine sağlık yalnız filtreli sayfalarda hata veriyor. Filtreleri kaldırınca çalışıyor. Bilgilerinize.

 

[Necdet]

vay be taaa 2012 tarihnde sorulan soruyu yanıtlamışız, adamdan tık çıkmamış, helal olsun valla.
[
QUOTE="broodofqueen, post: 1161933, member: 33431"]
Hocam, ellerine sağlık yalnız filtreli sayfalarda hata veriyor. Filtreleri kaldırınca çalışıyor. Bilgilerinize.
[/QUOTE]

Filtre olayını dikkate almamışım, kodları güncelledim, bir de böyle deneyip sonucu söylerseniz, sevinirim.

 

[broodofqueen]

Çalıştı hocam, teşekkürler. Yalnız dosyada veri bağlantıları var mesela, onları da kaldırırsa çok daha temiz olur.

 

[Necdet]

Çalıştı hocam, teşekkürler. Yalnız dosyada veri bağlantıları var mesela, onları da kaldırırsa çok daha temiz olur.

kopyalamayı değer olarak yapıştırdığı için bağlantılarında kaybolması gerek, kalıyor mu? denediniz mi?

 

[broodofqueen]

Veri tabanı bağlantısı hocam, normal linkler kayboluyor. SQL bağlantısı var, çok önemli değil aslında.

 

[Necdet]

Anladım.