Como arreglar el error en tiempo de ejecución
Tengo el siguiente codigo y cuando lo ejecuto me sale el error en tiempo de ejecución "438"
Sub Actualizar_Datos()
'
' Actualizar_Datos Macro
Application.ScreenUpdating = False
Sheets("Matriz_Controles").Range("A3:T151").Copy
Sheets("Matriz").Range("A3").ActiveSheet.Paste
Sheets("BASE(Matriz)").Range("G1:J1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("BASE_DATOS(TD)").Select
Range("BASE_DATOS[[#Headers],[Cumplimiento]]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Replace What:="No aplica", Replacement:=""
Sheets("TD_IND"). PivotTables("TDBuscarControlesIND"). PivotCache. Refresh
Sheets("TD_IND"). PivotTables("EjecuciónIND"). PivotCache. Refresh
Sheets("TD_IND"). PivotTables("ImportanciaIND"). PivotCache. Refresh
Sheets("DASHBOARD_TEAM"). PivotTables("DesempeñoTeam"). PivotCache. Refresh
Sheets("TD_TEAM"). PivotTables("ControlesTeam"). PivotCache. Refresh
Sheets("CONTROLES_TEAM"). PivotTables("ImportanciaTEAM"). PivotCache. Refresh
Sheets("CONTROLES_TEAM"). PivotTables("EjecuciónTeam"). PivotCache. Refresh
Application.Run "Matriz_Controles.xlsm!Ranking"
Sheets("Correos").ActiveCell.FormulaR1C1 = "=Matriz!R[-1]C[97]"
Sheets("Correos"). PivotTables("Correos"). PivotCache. Refresh
Application.Run "Matriz_Controles.xlsm!Controles"
Sheets("Inicio").Select
Application.ScreenUpdating = True
End
1 Respuesta
Respuesta de James Bond
Cambia
Sheets("Matriz"). Range("A3"). ActiveSheet. Paste
Por sheets("matriz"). Range("a3"). Pastespecial
¡Gracias! Lo cambié como me dijiste y entonces ya vuelve a poner en amarillo la línea siguiente:
Sheets("BASE(Matriz)").Range("G1:J1").Select
