Problema macro excel con cella che varia tramite formula

alfrimpa, 13/10/2015 22:06:

---

Ciao Luke

Se la macro che hai fatto è su un Worksheet_Change la variazione del risultato di una formula non viene intercettata come una variazione "fisica" del foglio di lavoro e pertanto il codice non viene eseguito.

Quando si usa Worksheet_Change occorre sempre fare riferimento a celle/intervalli ove si verifica un cambiamento "fisico" del loro valore.

Detto questo ti consiglio di allegare il tuo file e vediamo di cosa si tratta.

---

raffaele1953, 14/10/2015 09:45:

---

non posso scaricare "password???"
Comunque ci sarà sicuramente la "modifica fisica" di una determinata cella per far modificare il valore della formula in A1
Usa quella per il Worksheet_Change e gli dici di ricalcolare il foglio. Oppure gli cambi direttamente la foto

---

raffaele1953, 14/10/2015 12:26:

---

Il secondo Link va bene
Però non visualizzo la foto, pertanto il problema mi sembra differente.
A parte le diverse versioni d'excel, quella "finestra" in A9:F28 non credo sia giusta.

Sono vecchio (testa vecchia), tante volte non capisco le Vostre stramberie.
Forse desiderate non farle vedere ai colleghi. Devo andare in Opzioni excel per visualizzare la sbarra verticale e vedere le foto?
Facciamo finta che devi caricare 1000 foto, quanto pensi che il Tuo file diventa pesante?

"""Agli utenti dico, non inserite foto, collegatele in una directory a parte (rar o usb)"""

Per il Tuo problema, visualizzo le foto in W61:W63
Visto la formula in P4 (facile), ci devo pensare come fare.
Il VBA non intercetta cambi di valori sulle formule

Ciao By Sal
Vedo che la formula si appoggia A4:A6 e A8. Tramite il Worksheet_Change puoi farlo.
Sei più bravo con le foto, oppure provo a farlo io

---

raffaele1953, 14/10/2015 17:44:

---

Ti allego un codice
Pero sono "quasi sicuro che quella non sia una foto"

>>>Me.Shapes("finestra").DrawingObject.Formula = "$W$6" & Application.WorksheetFunction.Min(Int(Abs(Target.Value)), 5536)

Io faccio solo un'esempio.
Ammettiamo che cambi solo le celle gialle/arancioni
Si puo fare nel Worksheet_Change tramite le celle selezionate...
ex >>>If Not Intersect(Target, Range("B4,B5,B6")) Is Nothing Then
Puoi aggiugerne altre se desideri...

Quello che non riesco è visualizzare la foto. Eppure mi sembra giusto.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4,B5,B6")) Is Nothing Then
    If Range("P4") = 1 Then
        MsgBox "Foto 1"
        Me.Shapes("finestra").DrawingObject.Formula = "$W$6" & Application.WorksheetFunction.Min(Int(Abs(Target.Value)), 5536)
    ElseIf Range("P4") = 2 Then
        MsgBox "Foto 2"
        Me.Shapes("finestra").DrawingObject.Formula = "$W$7" & Application.WorksheetFunction.Min(Int(Abs(Target.Value)), 5536)
    ElseIf Range("P4") = 3 Then
        MsgBox "Foto 3"
        Me.Shapes("finestra").DrawingObject.Formula = "$W$8" & Application.WorksheetFunction.Min(Int(Abs(Target.Value)), 5536)
    End If
End If
End Sub

Fammi sapere

---