Değer Olarak Yapıştırma Hk.

[oguzanil]

Merhaba,

Çalışma kitabında bulunan formülleri değere dönüştürmek istiyorum. Yaklaşık 500 çalışma sayfası var ve buda çok zamanımı alacak gibi görünüyor. Bunun için pratik bir yöntem mevcutmudur ?

 

[Necdet]

Merhaba,

Kod yazmak gerek.

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub FormuldenKurtar()
 
    Dim i As Integer
    
    Application.ScreenUpdating = False
    
    For i = 1 To Sheets.Count
        Sheets(i).Select
        Cells.Copy
        Cells.PasteSpecial xlPasteValues
    Next i
    
    MsgBox "İşlem Tamamlanmıştır"
    Application.ScreenUpdating = True
    
End Sub

 

[oguzanil]

Hocam size ne kadar teşekkür etsem azdır. Beni çok büyük bir dertten kurtardınız. Saolun =)

 

[Necdet]

Rica ederim, güle güle kullanınız.

 

[ozhan.yavuz]

merhaba,
dun excel vb bı kac calısma yaptım, ınternetten ekledıgım kod lar oldu. sımdı excel i actıgımda mause sağ click yaptıgımda kes , kopyala , yapıştır , özel yapıştır pasif olarak gözüküyor.
yardımlarınızı rica ederim.