calcolo manuale

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
ROBPRR
00venerdì 13 novembre 2020 16:42
calcolo manuale
buon pomeriggio..
ho un dubbio..

ho un foglio turni che compilo con le varie voci, e su qst foglio ho disabilitato il calcolo automatico per evitare che per ogni cella che compilo, facesse dei calcoli.
i calcoli invece li fa tutti insieme quando vado su un altro foglio "XXX".

ora noto che una macro(che nasconde colonne in base al mese e anno che cambio in B2 e B3 del foglio turni)
non fa il suo dovere finche io non clicco sul foglio "XXX" e ritorno poi sul foglio TURNI. (perchè i valori B2 e B3 sono collegati al foglio calendario.


inserendo prima della macro il comando di calcolo automatico non va.

quindi ho aggirato qst problema inserendo prima del funzionamento della macro interessata qst comando
Sheets("XXX").Activate

funzionamento macro
Sheets("turni").select


naturalmete si vede cha va da un foglio all'altro..ma funziona..
come posso risolvere diversamente.
GRAZIE
locatevaresino
00venerdì 13 novembre 2020 16:54
ciao



Sub disattivacalcolo()
Application.Calculation = xlManual
End Sub


Sub Attivacalcolo()
Application.Calculation = xlAutomatic
Calculate ''forza il tasto F9 per il ricalcolo
End Sub






ROBPRR
00venerdì 13 novembre 2020 17:07
grazie per la risposta..
lo dovrei però inserire in una macro che si avvia al cambio valore cella.
quindi lo dovrei inserire prima del funzionamento della macro?
locatevaresino
00venerdì 13 novembre 2020 17:26
riciao


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
'' PS il range() va modificato per il tuo fabbisogno
Application.EnableEvents = False
Application.Calculation = xlManual
'''''''

''tua procedura

'''''''
Application.EnableEvents = True
Application.Calculation = xlAutomatic
Calculate
End If
End Sub



Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 09:35.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com