Bilgisayarda Bulunan Tüm Excel Dosyası içerisindeki Formilleri silmek

[htsumer]

A Klasörü içinde bulunan 100 den fazla excel dosyası içinde formüller var. Bu dosyaların içindeki tüm sayfadaki formülleri silmek istiyorum.
Formüller silinince referans değerleri silinceğinden formülün getiridiği değeri METİN olarak bırakması için koda ihtiyacım var.
Kısaca,
A Klaösrü içindeki yüzden fazla dosyaları açıp formüllü hücrelerin sadece formülleri silinecek. Formüllerin getirdiği değerler o hücrelerde metin olarak kalacak.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Formlleri_Degere_Cevir()

    Dim klasor As String, dosya, i As Integer

    klasor = "C:\Deneme" [COLOR="SeaGreen"]'dosya yolu[/COLOR]

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder(klasor).Files
        If ThisWorkbook.Name <> dosya.Name Then
            Workbooks.Open Filename:=dosya
            For i = 1 To Worksheets.Count
                On Error Resume Next
                Sheets(i).Select
                Cells.SpecialCells(xlCellTypeFormulas, 23).Select
                Selection.Copy
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
            Next i
            Application.CutCopyMode = False
            ActiveWorkbook.Close True
        End If
    Next
    
    MsgBox "Çevirme İşlemi Bitti."
    Application.ScreenUpdating = True

End Sub

.

 

[htsumer]

Çok çok teşekkür ederim.