Formattazione celle colorate

[CoNa]

Salve a tutti,

vado subito a descrivere il mio problemino: su excel 2002 vorrei che la
cella "A1" del "foglio1" si colorasse di rosso quando almeno una delle celle comprese nel
range "B1:B50" del "foglio2" è colorata anch'ella di rosso.
Grazie in anticipo per l'aiuto.

[Anthony47]

Ciao cona e benvenuto nel forum.
Il colore di una cella e' un elemento di presentazione dell' informazione, non un elemento dell' informazione stessa; insomma stai chiedendo di processare una cosa che "appare", non "è".
Comunque se spieghi con quali criteri e modalita' vengono colorate le celle B1:B50 di Foglio2 possiamo vedere se e come la richiesta puo' essere soddisfatta.

Ciao

[Flash30005]

Io nel frattempo provo a vedere se con questa macro CoNa risolve
Premetto che ho considerato che fosse lo sfondo colorato di rosso

Codice: Seleziona tutto

Sub Formattacella()
Dim Col As Integer
For Each cella In Range("B1:B50")
If cella.Interior.ColorIndex = 3 Then
Col = Col + 1
End If
Next
Range("A1").Select
If Col > 0 Then
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
Else
    Selection.Interior.ColorIndex = xlNone
End If

End Sub

Nel caso fossero i font di colore rosso allora usa questa macro

Codice: Seleziona tutto

Sub FormattaFont()
Dim ColF As Integer
For Each cella In Range("B1:B50")
If cella.Font.ColorIndex = 3 Then
ColF = ColF + 1
End If
Next
Range("A1").Select
If ColF > 0 Then
   Selection.Font.ColorIndex = 3
Else
   Selection.Font.ColorIndex = 0
End If

End Sub

Fai sapere
Ciao