Actividad pública reciente
Ha valorado "Excelente" la respuesta
Copiar datos de distintas hojas en una hoja nueva
H o l a : Crea una hoja llamada "resumen" Te anexo la macro Sub CopiarDatos() 'Por.Dante Amor Set h1 = Sheets("resumen") h1.Cells.Clear i = 1 For Each h In Sheets If h.Name <> h1.Name Then h.Range("A1:D18").Copy h1.Range("A" & i).PasteSpecial...