Soru Makro ile klasör içindeki excel dosyalarındaki veriyi toplu değiştirme

[berkem13]

Merhabalar, cari takibi yaptığım bir excel listem var. Her cariyi aynı formattaki farklı excel dosyalarında tutuyorum. Şu anda devir işlemi için elimde bir tane makro var ancak bu makroyu tek tek excel dosyasının içine girerek çalıştırmam gerekiyor. Bu makroyu klasör içindeki excel dosyalarını açmadan uygulama şansım var mıdır?

Makro:

    Sheets("Detay").Select
    Range("U2").Select
    Selection.Copy
    Range("X2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.Goto Reference:="R4C1"
    Rows("4:4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "8/3/2022"
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "Virman Alacaklı"
    Range("O4").Select
    ActiveCell.FormulaR1C1 = "DEVİR"
    Range("P4").Select
    Range("X2").Select
    Selection.Copy
    Range("P4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("X2").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A4").Select
    ActiveWorkbook.Save
    ActiveWindow.Close

 

[berkem13]

Aşağıda bulunan kod ile makrolarınızı seçtiğiniz bir klasörün içindeki tüm excel dosyalarına uygulayabilirsiniz. İyi çalışmalar dilerim.

Sub OpenFiles()

    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Klasör Seçiniz"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    xFile = Dir(xStrPath & "\*.xlsx")
    Do While xFile <> ""
        Workbooks.Open xStrPath & "\" & xFile
        xFile = Dir
        
        
        //Buraya makro kodlarınızı yazabilirsiniz.
        
        
    Loop
End Sub