Per confrontare più celle da B3 a AX20 e inserire un simbolo in base al valore di ogni cella corrispondente nel foglio "PROPOSTE", è possibile modificare il codice VBA come segue:
'''vba
Sub privato Worksheet_Change(ByVal Target come intervallo)
Dim rng come intervallo
Imposta rng = Intervallo("B3:AX20") ' Cambia l'intervallo nelle celle desiderate
Se non intersect(target, rng) non è nulla allora
Attenua cella come intervallo
Per ogni cella in Intersect(Target, rng)
Se la cell. Fogli di lavoro di valore <> ("PROPOSTE"). Intervallo(cell. Indirizzo). Valore allora
cellula. CancellaFormati
cell.Font.Name = "Arial"
cellula. Font.Size = 10
cellula. Font.Color = RGB(0, 0, 0)
cellula. Font.FontStyle = "Grassetto"
cellula. Caratteri(1, 1). InsertSymbol CharacterNumber:=42, FontName:="Wingdings"
Fine se
Cella successiva
Fine se
Fine sottomarino
'''
Con questo codice, tutte le modifiche apportate alle celle da B3 ad AX20 verranno confrontate con le celle corrispondenti nel foglio "PROPOSTE". Se i valori sono diversi, verrà inserito un asterisco in alto a destra di ogni cella.
Ricordarsi di salvare il file Excel come cartella di lavoro abilitata per le macro (.xlsm) per conservare il codice VBA.
Sono contento di aver potuto aiutare Gabrielle, gentilmente lascia un feedback positivo.
Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.