How can run this macro in all excell files in specific folder

[bigmak]

Hello everybody

how can run this vba code in all excell file in folder ??
this code copy some info from Book4 to Book1 .
i have 5 excell file in a folder and i want this code run in all 5 excell file same time.

Sub Macro3()
    Windows("Book4.xlsm").Activate
    Range("G5:G7").Select
    Selection.Copy
    Windows("Book1.xlsm").Activate
    Range("C13").Select
    ActiveSheet.Paste
End Sub

 

[mumps]

What is the full path to the folder containing the files? What is the file extension (xlsx, xlsm)? Are they the only files in that folder? Do you want to paste the ranges underneath each other starting at C13? Please clarify.

 

[bigmak]

What is the full path to the folder containing the files? no matter
extension = xlsm
Are they the only files in that folder? = yes
i want code select G5:G7 cells from Book4.xlsm and copy them to C13:C15 of all sheets of folder files.

 

[Fluff]

How about

Sub bigmak()
   Dim Pth As String
   Dim Fname As Object
   Dim Rng As Range
   Dim ws As Worksheet
   
   Pth = "C:\mrexcel\"
   Set Rng = Range("G5:G7")
   With CreateObject("scripting.filesystemobject")
      For Each Fname In .getfolder(Pth).Files
         With Workbooks.Open(Fname)
            For Each ws In .WorkSheets
               Rng.Copy ws.Range("C13")
            Next ws
            .Close True
         End With
      Next Fname
   End With
End Sub

 

[bigmak]

یخ

How about

Sub bigmak()
   Dim Pth As String
   Dim Fname As Object
   Dim Rng As Range
   Dim ws As Worksheet
 
   Pth = "C:\mrexcel\"
   Set Rng = Range("G5:G7")
   With CreateObject("scripting.filesystemobject")
      For Each Fname In .getfolder(Pth).Files
         With Workbooks.Open(Fname)
            For Each ws In .WorkSheets
               Rng.Copy ws.Range("C13")
            Next ws
            .Close True
         End With
      Next Fname
   End With
End Sub

[/QUOTE
dosnt work bro
i find this code and work great for my some work but dont work on my code that i post in first thread.
i want to get some cells info from Book4.xlsm file and copy that to all sheets of all excell files in a folder.

Sub LoopThroughFiles()      
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)
                'your code here                                                       
            End With
            xFileName = Dir
        Loop
    End If
End Sub

 

[Fluff]

یخ

??

 

[bigmak]

i find this code and work great for my some work but dont work on my code that i post in first thread.
i want to get some cells info from Book4.xlsm file and copy that to all sheets of all excell files in a folder.

Sub LoopThroughFiles()     
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)
                'your code here                                                       
            End With
            xFileName = Dir
        Loop
    End If
End Sub

 

[Fluff]

Did you try the code I supplied?

 

[bigmak]

Did you try the code I supplied?

unfortunately your code dont work .

 

[Fluff]

In what way?