Excell - Comando "calculate"

[acquario]

Buon giorno a tutti
di tanto in tanto mi rifaccio vivo per qualche problemino, vado al dunque, ho letto da qualche parte che per far eseguire una formula che crea riferimento circolare, bisogna spuntare la voce "Interazione" nella sezione calcolo del menu Strumenti - Opzioni e disattivare il calcolo automatico a vantaggio di quello manuale, per una mia esigenza ho seguito questa indicazione, (anche se so che sicuramente ci saranno altri metodi) e in effetti funziona.
Però, siccome la mia necessità è quella di avere una cella che si incrementa del valore inserito manualmente nella cella sottostante, ma subito dopo il ricalcolo con il tasto "F9", il valore inserito deve essere cancellato, ho registrato una macro che esegue esattamente ciò, ma quando ho copiato il codice della macro, sotto un pulsante di comando, il ricalcolo non lo esegue più, copio qui di seguito il piccolo codice in questione, premesso che di VB sono allo stato embrionale, sono grato a coloro che vorranno darmi una dritta
Calculate
Range("C2:J8").Select
Selection.ClearContents
Range("C2").Select

acquario

[Avatar3]

Se è la cella C2 che viene cambiata manualmente e deve essere cancellata evitando di impostare excel in calcolo manuale (anche perché così facendo tutti i file di excel che aprirai saranno con calcolo manuale)

inserirei questo codice in
ThisWorkbook

Codice: Seleziona tutto

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
End Sub

Private Sub Workbook_Open()
Application.Calculation = xlManual
End Sub


In questa maniera il calcolo automatico si blocca all'apertura del file
e si ripristina alla chiusura

Inoltre inserendo questo codice nel foglio contenente la cella "variabile"

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then Exit Sub
If Range("C2").Value <> "" Then Call Calcolo
End Sub


Ad ogni variazione della cella C2 viene controllato il contenuto della cella C2 se non c'è nulla non succede niente altrimenti si attiva la macro con questo codice che inserirai (questa volta) nel modulo

Codice: Seleziona tutto

Sub Calcolo()
Application.Calculation = xlCalculationAutomatic
Range("C2:J8").ClearContents
Application.Calculation = xlManual
End Sub

Se ho interpretato bene il tuo problema dovrebbe funzionare