Formato condicional

27/11/2003 - 15:42 por daniel_hg | Informe spam
Necesito dar al menos seis formatos condicionales en una hoja, pero en
el menú formato-formato condicional sólo dispongo de tres.
He grabado macros independientes y el problema es que insertan una línea
en la que previamente borran los formatos que había, por lo que sólo me
aplican uno. Si borro esa línea en la macro, me da un error de objeto no
encontrado.
¿Alguien puede ayudarme?

Atte: daniel_hg
Madrid-España

Preguntas similare

Leer las respuestas

#1 Fernando Arroyo
27/11/2003 - 16:56 | Informe spam
"daniel_hg" escribió en el mensaje news:
Necesito dar al menos seis formatos condicionales en una hoja, pero en
el menú formato-formato condicional sólo dispongo de tres.



El máximo de formatos condicionales es tres, pero es posible imitar el comportamiento del formato condicional usando VBA, y en este caso no hay límite al número de formatos. Si nos das más datos es posible que podamos decirte algo más concreto.

He grabado macros independientes y el problema es que insertan una línea
en la que previamente borran los formatos que había, por lo que sólo me
aplican uno. Si borro esa línea en la macro, me da un error de objeto no
encontrado.



Es extraño. Si se inserta una línea entre medias de otras que tienen establecido algún formato condicional, normalmente la línea insertada "hereda" dicho formato. Sin ver el código no puedo decirte nada más.
Un saludo.


Fernando Arroyo
MS MVP - Excel

¿Alguien puede ayudarme?

Atte: daniel_hg
Madrid-España


Respuesta Responder a este mensaje
#2 Zapata
27/11/2003 - 20:42 | Informe spam
Hola Daniel:
seguro que un profesioanl lo haria de otra forma pero ahí
va mi idea, que por lo menos funciona...
esta macro esta en el evento change de la hoja de calculo

Private Sub Worksheet_Change(ByVal Target As Range)

For Each c In Range("A1:A10")
If c.Address = Target.Address Then
If Target.Value = 5 Then
Target.Interior.ColorIndex = 4
If Target.Value = 8 Then
Target.Interior.ColorIndex = 9
If Target.Value = 9 Then
Target.Interior.ColorIndex = 10
End If
Next
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida