Çalışma kitabını kopyalama

[thecarow]

Excel'de hazırlamış olsuğum bir dosya var ve her hücresi neredeyse formüllü.Ben bu çalışma kitabını formülsüz sadece değerleri ile kopyalayabilirmiyim.Birden fazla sayfa olduğu için tek tek uzun zaman alıyor.
Saygılarımla.

 

[Korhan Ayhan]

Merhaba,

Dosyanızdaki tüm sayfalarmı kopyalanacak. Yoksa belli bir kısmı mı?

 

[thecarow]

Hocam tüm sayfalar

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub FORMÜLLERİ_KALDIR_DOSYAYI_YEDEKLE()
    Dim Sayfa As Worksheet, Yol As String
 
    Application.ScreenUpdating = False
 
    Yol = ThisWorkbook.Path & "\Deneme.xls"
    Sheets.Copy
 
    For Each Sayfa In ActiveWorkbook.Worksheets
        Sayfa.Select
        Cells.Copy
        Cells.PasteSpecial Paste:=xlPasteValues
        Range("A1").Select
    Next
 
    Application.CutCopyMode = False
 
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=Yol, _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close 0
    Application.ScreenUpdating = True
End Sub

 

[thecarow]

Hocam kusura bakmayın bilmediğim için soruyorum.Bunu modül ekleyerek yapacağız doğrumu?

 

[Korhan Ayhan]

Merhaba,

Evet modüle uygulayacaksınız.

 

[thecarow]

Hocam kusura bakmayın,mesajınızı yeni gördüm.Hocam makro yedekleme yapıyor fakat tüm formüllerle beraber aktarıyor.Benim istediğim sadece değerleri aktarsın.Formülsüz bir şekilde.

 

[Korhan Ayhan]

Merhaba,

Kodu deneyerek foruma ekledim. Uygularken bir hata yapmış olabilirsiniz. Tekrar deneyin.

 

[thecarow]

Hocam galiba ben beceremiyorum.Tam olarak anlamadığım için hata yapıyorum.İlginiz için teşekkür ederim.

 

[harziyan]

Merhabalar;
Bilgi için;
Yüzlerce formülün olduğu bir dosyamda ben de kontrol ettim Sn: Korhan Ayhan'ın kodlarını. Tüm formüller kaldırılmış ve değerler aktarılmıştı.
İsterseniz dosyanızı ekleyin.

 

[Korhan Ayhan]

Merhaba,

Yapmanız gerekenler;

Formüllü dosyanızı açın.
ALT+F11 ile kod penceresini açın.
INSERT menüsünden boş bir modüle ekleyin.
F5 tuşuna basarak makroyu çalıştırın. Asıl dosyanızın olduğu bölüme "Deneme.xls" olarak yeni dosya kayıt edilecektir.

 

[thecarow]

Hocalarım dosya örneğim ekte.Özel bir dosya olduğu için tüm bölümleri koyamadım ama tamamen buna benzer 6-7 sayfa ve farklı tablolara sahip.
Bu dosyaya nasıl uyarlayabilirim verdiğiniz macroyu.Birde kopyalama yaparken sadece formüllermi gidiyor yoksa tablolarda gidiyormu?
İlginiz için tekrar teşekkür ederim.
Saygılarımla.

 

[Korhan Ayhan]

Merhaba,

Sayfalarınızda filtre kullandığınız için sorun yaşıyorsunuz. Kodu aşağıdaki şekilde değiştirip deneyiniz.

İşlem sonunda yedeklenen dosyada filtreler kalkmış olacaktır.

Option Explicit
 
Sub FORMÜLLERİ_KALDIR_DOSYAYI_YEDEKLE()
    Dim Sayfa As Worksheet, Yol As String
 
    Application.ScreenUpdating = False
 
    Yol = ThisWorkbook.Path & "\Deneme.xlsx"
    Sheets.Copy
 
    For Each Sayfa In ActiveWorkbook.Worksheets
        Sayfa.Select
        If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
        Cells.Copy
        Cells.PasteSpecial Paste:=xlPasteValues
        Range("A1").Select
    Next
 
    Application.CutCopyMode = False
 
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=Yol, _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close 0
    Application.ScreenUpdating = True
End Sub

 

[thecarow]

Hocam günaydın;
Gönderdiğiniz makroyu ekledim.Bu sefer hata vermeden kopyalıyor fakat şimdide dosya açılmıyor.

 

[thecarow]

Tamam hocam açıldı.Sabırla verdiğiniz için sonsuz destek için teşekkür ederim.İyiki varsınız,iyiki excel.web var.
Saygılarımla.