jueves, 30 de abril de 2020
miércoles, 29 de abril de 2020
domingo, 26 de abril de 2020
Macro Unir Archivos de Excel
CÓDIGO PARA COPIAR:
Sub UnirFiles() Dim Hoja As Object Application.DisplayAlerts = False A = ActiveWorkbook.Name R = ActiveWorkbook.Path ChDir R & "\" archi = Dir("*.xls*") Do While archi <> A Workbooks.Open archi B = ActiveWorkbook.Name For Each Hoja In ActiveWorkbook.Sheets Hoja.Copy After:=Workbooks(A).Sheets(Workbooks(A).Sheets.Count) Next Workbooks(B).Close False archi = Dir() Loop End Sub
sábado, 25 de abril de 2020
viernes, 24 de abril de 2020
jueves, 23 de abril de 2020
miércoles, 22 de abril de 2020
martes, 21 de abril de 2020
lunes, 20 de abril de 2020
jueves, 16 de abril de 2020
miércoles, 15 de abril de 2020
lunes, 13 de abril de 2020
sábado, 11 de abril de 2020
viernes, 10 de abril de 2020
jueves, 9 de abril de 2020
miércoles, 8 de abril de 2020
lunes, 6 de abril de 2020
domingo, 5 de abril de 2020
jueves, 2 de abril de 2020
Suscribirse a:
Entradas (Atom)