soluzione da perfetto inesperto:
in un modulo metti:
Code:Sub colori()
Dim colonna As Integer
Dim color1 As Integer
Dim color2 As Integer
For colonna = 1 To 30
color1 = Cells(1, colonna).Font.ColorIndex
color2 = Cells(2, colonna).Font.ColorIndex
If color1 = 3 And color2 = 3 Then
Cells(2, colonna).Value = 0
End If
Next colonna
End Sub
e nel foglio metti un pulsante cui assegni la macro.....
