Excel Avanzado Ejercicios

TallerExcel Avanzado


archivos 


CONTOSO


Manuales Excel Avanzado 
Macros  

Sub Consolidar()
Dim miHoja As String
miHoja = ActiveSheet.Name
Range("A1").CurrentRegion.Offset(1, 0).Resize(Range("A1").CurrentRegion.Rows.Count - 1, _
Range("A1").CurrentRegion.Columns.Count).Copy
Sheets("Consolidado").Activate
Range("A1000000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Range("A1").Select
Application.DisplayAlerts = False
Sheets(miHoja).Delete
End Sub