Hola @RubenDario Faltaría que en cada línea dentro del With le pongas un punto al inicio With Hoja1 .Range("B6:B18,F6:F18,J6:J18").Select .Range("J6").Activate With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With .Selection.ClearContents .Range("A1").Select End With Sin embargo, lo que yo haría (si fuese mi proyecto)... te ofrezco varias soluciones. No asignarlo a una combinación de teclas, mejor ponerlo en una forma o botón. Modificar tu libro con la app Custom UI Editor o similar y adicionar un botón en el Ribbon, estará visible solo cuando el libro esté activo. Al principio de tu código pondría algo como: If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub
Por
DiegoPC , · publicado el 28 de agosto 28 ago
Hola a todos,
Necesito una formula que busque los días que hubo la temperatura más alta y los anote separados por un guion. En el ejemplo que subo serían los días 10, 14 y 26.
Gracias de antemano
Máximas mensuales.xlsx