Macros que en una columna te indique el nombre del excel del cual se extrajo.
Sr. Dante Amor Tengo una macros de compilado, pero quisiera que en la columna "E" me indique el nombre del excel del cual se extrajeron esos datos .
Sub Consolidar()
Dim Archivos As Variant
Dim ArchivoMaestro As Workbook
Dim ArchivoActual As Workbook
Dim N As Integer
Dim ultimafila As String
Application.DisplayAlerts = False
Set ArchivoMaestro = ActiveWorkbook
Archivos = Application.GetOpenFilename(filefilter:="Excel Files,*.xls", _
MultiSelect:=True)
If IsArray(Archivos) Then
Application.ScreenUpdating = False
For N = LBound(Archivos) To UBound(Archivos)
Workbooks.Open Filename:=Archivos(N)
Range(Range("A2"), Range("A2").SpecialCells(xlLastCell)).Copy
Set ArchivoActual = ActiveWorkbook
ArchivoMaestro.Activate
Sheets("Consolidación").Select
Range("A1048576").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
ArchivoActual.Close SaveChanges:=False
Next
Else
Exit Sub
End If
End Sub