Actividad pública reciente
Voto positivo a la respuesta
Copiar el mismo rango de diferentes hojas de varios archivos a un nuevo archivo excel
Te anexo la macro Sub ActualizarLibro() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets.Add nom = l1.Name ruta = l1.Path & "\" ChDir ruta archi = Dir("*.xls*") ' Do While archi <> "" If archi <> l1.Name...