Excelden formüleri çıkarmak

[hakanimamoglu]

Toplam 40 sayfa olan ve içinde formüllerin olduğu excel dosyalarım var. Formülleri göstermemek ama verileride karşı tarafa göndermem gerekiyor. Bunu normalde şöyle yapıyorum. Sayfaya girip sayfayı kopyala diyor sonra özel yapıştır seçeneği ile sayı olarak yapıştırıyorum.
Ama 30 sayfa ve 50 excel dosyası olunca çok zaman oluyor.
Pratik yolu varmıdır ?
Teşekkürler

 

[Necdet]

Merhaba,

Pratik yolu yaptığınız işi makro ile yaptırmak , başka yolu var mı bilemem.

 

[hakanimamoglu]

Mesela örnek var mı

 

[Necdet]

Merhaba,

Basit bir kaç sayfadan oluşan örnek hazırlayın , yardımcı olacak çok arkadaş çıkacaktır.

 

[hakanimamoglu]

Merhaba,

Basit bir kaç sayfadan oluşan örnek hazırlayın , yardımcı olacak çok arkadaş çıkacaktır.

Dosyayı ekledim

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayın ve çalıştırın.
Tüm sayfaları kopyalayıp değer olarak yapıştırarak formüllerin kalmasını sağlamaktadır.

Diğer bir yöntem ise sayfadaki formüllü olan hücreleri seçerek, gizli dedikten sonra sayfaya koruma koymaktır.
Aşağıdaki kodlarda bu yöntem işlenmemiştir.

Bu arada dosyanızın yedeğini almayı unutmayın.

Sub SayfaFormulKaldir()

    Dim Sayfa   As Worksheet, _
        i       As Long
    
    Application.ScreenUpdating = False
    
    For Each Sayfa In Worksheets
        
        Sayfa.Select
        
        i = i + 1
        Cells.Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    
        Application.CutCopyMode = False
        
        Range("A1").Select
    
    Next Sayfa
    
    Sheets("Ana").Select
    
    MsgBox i & " ADET ÇALIŞMA SAYFASINDAKİ FORMÜLLER KALDIRILDI....", vbInformation, "www.excel.web.tr"
    
    Application.ScreenUpdating = True
    
End Sub

 

[hakanimamoglu]

Çok teşekkürler