klasörde bulunan tüm excel dosyalarındaki bir kelimeyi başka bir kelimeyle değiştirmek

[kalimera55]

Merhaba,
Örneğin bir klasörde bulunan bütün excel dosyalarındaki "birinci kelime" yazılarını "yeni kelime" olarak değiştirmek istiyorum. Bunu nasıl yapabilirim ?
Yardımcı olabilirseniz sevinirim.

 

[Korhan Ayhan]

Deneyiniz.

Kod içinde işlem yapılacak klasörü belirten My_Path = "C:\Users\Desktop\Deneme\" satırını kendinize göre revize etmeyi unutmayınız.

Option Explicit

Sub Search_All_Files_in_Folder_Find_Replace()
    Dim My_Path As String, My_File As String
    Dim Find_Data As Variant, New_Data As Variant
    Dim WB As Workbook, Sh As Worksheet
    
    Application.ScreenUpdating = False
    
    My_Path = "C:\Users\Desktop\Deneme\"
    
    Find_Data = InputBox("Değiştirmek istediğiniz veriyi giriniz.")
    New_Data = InputBox("Yeni veriyi giriniz.")
    
    My_File = Dir(My_Path & "*.xls*")
    
    While My_File <> ""
        Set WB = Workbooks.Open(My_Path & My_File, False, False)
        For Each Sh In WB.Worksheets
            Sh.Cells.Replace Find_Data, New_Data, xlPart
        Next
        
        WB.Close True
        
        My_File = Dir
    Wend

    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub