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

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas