Attivare un pulsante al cambiamento di unRange di celle

[blcktgr]

Salve a tutti,
ho il seguente problema.....
Ho un foglio di lavoro con un elenco di nomi. Alcuni di questi sono formattate di colore rosso.
Manualmente andrò a modificare dei dati in corrispondenza di questi nomi Formattati in Rosso e dopo tutte le modifiche, sempre manualmente, varierò la formattazione da Rosso a Null.
Il mio problema che ke non riesco a far si che un pulsante presente sul foglio di lavoro, inizialmente non abilitato, venga abilitato in automatico quando cambio la formattazione dell'ultima Cella equindi non sono più presenti nomi evidenziati in Rosso.Spero di essermi spiegato!!! Qualcuno puo' aiutarmi???

[Marius44]

Ciao
problema che può essere risolto con un escamotage usando VBA

In ThisWorkBook (Questa_Cartella_di_Lavoro) inserisci questo codice

Codice: Seleziona tutto

Private Sub Workbook_Open()
Dim c As Range
For Each c In ActiveSheet.UsedRange
    If c.Interior.ColorIndex = 3 Then
        ActiveSheet.CommandButton1.Enabled = False
        Exit Sub
    Else
        ActiveSheet.CommandButton1.Enabled = True
    End If
Next
End Sub


Lo stesso codice è da inserire nel Modulo del Foglio interessato all'Evento Worksheet_SelectionChange

Dopo aver cambiato quello che devi e dopo aver tolto il colore rosso dalla cella, basta selezionare una qualsiasi cella.

Prova e fai sapere. Ciao,
Mario