Buongiorno Anthony,
grazie al tuo intervento :
Quanto al fatto che in F2 e sottostanti ci sia una formula, quello che ho cercato di capire e di farti capire e' che se ci si aggancia al processo che scrive i valori da cui "lla fine" si calcolano F2 e sottostanti, quello stesso processo puo' essere usato per caricare F2 e sottostanti nel Textbox (fatto salvo che ControlSource quel lavoro lo fa di suo, e non ho capito perche' l' uso di ControlSource non va bene). il problema era anche questo :
Ricorda che questo link e' bidirezionale, quindi se per caso la cella collegata contiene una formula questa viene poi sostituita dal valore nel textbox.
forse l’ho presa un po’ lunga la strada per arrivare alla soluzione ma ci sono riuscito.
Ho creato 7 macro dove ognuna di queste mi copia il valore in “F” e lo incolla nella rispettiva cella collegate alle Textbox (Es. F2 con H1 ; F3 con I1 …….)
Ho inserito in Q1 la funzione “=SE(F2>=1;1;2))” in R1 “=SE(F3>=1;1;2))”;in S1“=SE(F4>=1;1;2))”;
in T1 “=SE(F5>=1;1;2)); in U1 “=SE(F6>=1;1;2))” ; in V1 “=SE(F7>=1;1;2))”; in W1 “=SE(F8>=1;1;2))”
In Worksheet :
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Range("q1").Value = 1 Then
Macro1
End If
Application.EnableEvents = True
Application.EnableEvents = False
If Range("r1").Value = 1 Then
Macro2
End If
Application.EnableEvents = True
Application.EnableEvents = False
If Range("s1").Value = 1 Then
Macro3
End If
Application.EnableEvents = True
Application.EnableEvents = False
If Range("t1").Value = 1 Then
Macro4
End If
Application.EnableEvents = True
Application.EnableEvents = False
If Range("u1").Value = 1 Then
Macro5
End If
Application.EnableEvents = True
Application.EnableEvents = False
If Range("v1").Value = 1 Then
Macro6
End If
Application.EnableEvents = True
Application.EnableEvents = False
If Range("w1").Value = 1 Then
Macro7
End If
Application.EnableEvents = True
End Sub
Per conto mio si potrebbe ancora migliorare con meno funzioni………………..torno in "cucina" e chissà cosa salta fuori
http://www.filedropper.com/userfrom21Grazie mille
Noris