** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - No calcular una hoja en particular
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoNo calcular una hoja en particular

 Responder Responder
Autor
Mensaje
Gladiador Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 22/Junio/2006
Localización: Venezuela
Estado: Sin conexión
Puntos: 220
Enlace directo a este mensaje Tema: No calcular una hoja en particular
    Enviado: 25/Agosto/2021 a las 05:21
Holla, hace un tiempo hice una consulta de como Calcular solo la hoja activa.

La hoja en cuestión la he llamado "Estado" y tiene varias formulas que hacen que se demore en hacer todos los cálculos, me refiero a que se tarda entre 15 y 20 segundos en estar lista, lo cual es desesperante.

Ahora me gustaría saber como hago para que una hoja "Estado" solo se calcule cuando esté activa

He incluido estos comando en la hoja, pero no creo que estén funcionando porque igual se demora bastanteCry

Private Sub Worksheet_Activate()
ActiveSheet.EnableCalculation = True
End Sub

Private Sub Worksheet_Deactivate()
ActiveSheet.EnableCalculation = False
End Sub

Agradecería mucho su ayuda

Gladiador

Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: La Gloria
Estado: Sin conexión
Puntos: 3849
Enlace directo a este mensaje Enviado: 25/Agosto/2021 a las 08:47
Pues tal como lo pides, no se si se puede, pero al revés si, es decir, desactivas el cálculo automático de todo el libro y después en cada una de las hojas que si quieres que se calculen le añades este código

Private Sub Worksheet_Change(ByVal Target As Range)
  ActiveSheet.Calculate
End Sub

Un saludo.

Luis
El Búho es un pajarraco
Arriba
Gladiador Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 22/Junio/2006
Localización: Venezuela
Estado: Sin conexión
Puntos: 220
Enlace directo a este mensaje Enviado: 30/Agosto/2021 a las 22:03
Hoal
Gracias por la respuesta.
He logrado lo que necesito con los siguiente:

     Private Sub Workbook_Open()
     Worksheets("Estado").EnableCalculation = False
     End Sub

En el código de la hoja "Estado" he incluído los comandos que tenía

Private Sub Worksheet_Activate()
ActiveSheet.EnableCalculation = True
End Sub

Private Sub Worksheet_Deactivate()
ActiveSheet.EnableCalculation = False
End Sub

Agradecido por el tiempo que han dedicado 

Gladiador

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable