Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

calcolo manuale

Ultimo Aggiornamento: 13/11/2020 17:26
Post: 19
Registrato il: 26/09/2020
Età: 45
Utente Junior
2020
OFFLINE
13/11/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
Post: 2.340
Registrato il: 21/03/2008
Città: LOCATE VARESINO
Età: 76
Utente Veteran
2007 / 13
OFFLINE
13/11/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






Ciao da locate
excel 2007 / 13
Post: 19
Registrato il: 26/09/2020
Età: 45
Utente Junior
2020
OFFLINE
13/11/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?
Post: 2.342
Registrato il: 21/03/2008
Città: LOCATE VARESINO
Età: 76
Utente Veteran
2007 / 13
OFFLINE
13/11/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



[Modificato da locatevaresino 13/11/2020 17:27]
Ciao da locate
excel 2007 / 13
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 15:31. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com