Originally Posted by
xld
Have you got access to Power Query? This is a simple function in that.
I don't have power query, but I can see that it is a free download. Since I don't have admin rights not sure if it will let me download and install. Is this something that would need to be on all users Excel?
I actually just tried and it will not let me download it since I don't have Admin rights. Also I don't see them letting us have this either.
I was trying the following VBA, but when I try and run it nothing happens.
Sub LoopThroughDirectory()
Dim MyFile As String
Dim erow
Dim Filepath As String
Filepath = "C:\Users\tefe\Desktop\RR_Requests"
MyFile = Dir(Filepath)
Do While Len(MyFile) > 0
If MyFile = “RR_Master.xlsm” Then
Exit Sub
End If
Workbooks.Open (Filepath)
Range("A2:J2").Copy
ActiveWorkbook.Close
erow = RR_Requests.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("RR_REQUESTS").Range(Cells(erow, 1), Cells(erow, 10))
MyFile = Dir
Loop
End Sub
I found this online and was not exactly sure if it would work with what I was trying to do, but I thought I would give it a try.