Çözüldü klasördeki tüm dosyaların formülünü değer olarak yapıştırmak

[miadanoz]

Merhaba,

Bir klasörde 5000 adet excel dosyası var. Bu dosyalardaki her bir formülü değer olarak yapıştırabilmek mümkün mü acaba ?

Yardımcı olabilirseniz çok sevinirim.

edit: aşağıdaki kod ile çözdüm.

Sub PasteValues()
Dim ws As Worksheet
Dim c As Range, CRange As Range
Dim MyPath As String, BookName As String
Dim MyBook As Workbook
 
MyPath = "C:\dosya\" 'This nees to include the \ at the end
BookName = Dir(MyPath & "*.xls")
 
Do Until BookName = ""
    Set MyBook = Workbooks.Open(MyPath & BookName)
    For Each ws In MyBook.Worksheets
        On Error Resume Next
        Set CRange = ws.UsedRange.SpecialCells(xlCellTypeFormulas)
        On Error GoTo 0
        If Not CRange Is Nothing Then
            For Each c In CRange
                c.Value = c.Value
            Next c
        End If
    Next ws
    MyBook.Close (True)
    BookName = Dir
Loop
End Sub