Condionales por colores

[rmatheu]

He estado leyendo macros, para ver si puedo escribir un VBa que me valga, creo haber llegado al punto, pero me falta el toque, para que funcione.

Tengo una celda A4 la cual cual cambia de color automáticamente en funcion del valor de A1, es decir, si la celda A1 es distinto de 2, la celda A4 se tiñe de color rojo, sino se queda tranparente.

Por otra parte, hay una macro, que esta en el archivo adjunto, que si cambia la celda A4 a Rojo, me ponga un mensaje de OK, en teoría creo que esta bien escrita, pero no me funciona.

Alguien me puede ayudar. Muchas Gracias

prueba de Color.xls

[Antoni]

Hola:

Sustituye tu macro por esta:

Private Sub Worksheet_Change(ByVal Target As Range)


   If Target.Address(False, False) = "A1" Then

      If Not Target.Value = 2 Then MsgBox ("Ok")

   End If



End Sub



[/CODE]

El problema estriba en que [u][b]no se puede preguntar[/b][/u] por el color de una celda, si este es el resultado de un [b][u]Formato Condicional.[/u][/b]

Saludos

[rmatheu]

Solucionado, Muchas Gracias