Attivo Shapes se altra cella cambia

[BOLDOS75Partecipante BOLDOS75]

Buonasera,  ho questo problema in un file che allego, nella cella B15 e C15 ho un confronto, un altro confronto è presente anche in F15, vorrei che nella cella G15 che ho copiato da F15  quando mi si scrive  automaticamente ALTA compare la freccia e quando compare BASSA la freccia sparisce. Attualmente se scrivo io manualmente funziona ma se lo faccio in automatico non funziona.

Grazie 

MSOPP2021

 

Allegati:

You must be logged in to view attached files.

[alexps81Moderatore alexps81 Karma: 55 pts]

Ehhh...ma Vecchio Frac nel post di 4 giorni fa ti avevo suggerito un BARBATRUCCO...potevi sfruttarlo per questa occasione. Le celle con formule non vengono intercettate dell'evento Change del WorkSheet.

Prova il file allegato.

Allegati:

You must be logged in to view attached files.

[BOLDOS75Partecipante BOLDOS75]

Buongiorno,scusa ma mi era sfuggito il suggerimento comunque la soluzione è perfettamente funzionante. Se volessi cambiare colore alla cella e font dove esce BASSO che codice e dove va inserito?

Grazie 

[LucaSRPartecipante LucaSR Karma: 15 pts]

Ciao usa la formattazione condizionale per entrambi i problemi, sia per far comparire la freccia e sia per la formattazione della cella e del testo 

[BOLDOS75Partecipante BOLDOS75]

Si ho provato e mi va bene, ma vorrei se possibile non usare la formattazione condizionale nel codice, dove inserisco "Interior e Font" e non devo  scatenare il lampeggio quando compare scritta BASSA nella cella F15.

[alexps81Moderatore alexps81 Karma: 55 pts]

Prova a vedere se ho capito cosa intendi. Il codice che manipolato è questo:

''---------------------------- AGGIUNTA CHE FUNZIONA  ------------------------------
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("B15:C15")) Is Nothing Then
        If Range("F15") <> "BASSA" Then '<<<<<<<<< AGGIUNTO
            bianco Target.Cells(1, 1)
        Else '<<<<<<<<< AGGIUNTO
            Range("F15").Interior.Color = vbBlue '<<<<<<<<< AGGIUNTO
            Range("F15").Font.Color = vbGreen '<<<<<<<<< AGGIUNTO
        End If '<<<<<<<<< AGGIUNTO
  End If
End Sub

Allegati:

You must be logged in to view attached files.

[LucaSRPartecipante LucaSR Karma: 15 pts]

BOLDOS75 ha scritto:

Si ho provato e mi va bene, ma vorrei se possibile non usare la formattazione condizionale nel codice, dove inserisco "Interior e Font" e non devo  scatenare il lampeggio quando compare scritta BASSA nella cella F15.

Non dicevo da codice, puoi fare tutto dal wizard   

[BOLDOS75Partecipante BOLDOS75]

Buonasera, ottimo è quello che volevo, ho risolto con i vostri preziosissimi consigli e suggerimenti, chiudo la discussione.

Ringrazio tutti per l'aiuto.

[Autore]

Articoli