EXCEL: si A1= una palabra, entonces B1= celda coloreada

¿Qué versión de Excel? Porque hasta 2003 solo puedes hacer 3 formatos condicionales, más el formato condicional por defecto, eso manejaría 4 colores como máximo.
Pero en VB, es posible, en cambio.
--
¿Por qué complicarse la vida al hacer simple, cuando es tan fácil hacer complicado?

hola

Para gestionar más de 3 condiciones en 2003 deberías probar este programa de Didier Fourgeot

Es, sin duda, el método más completo y bastante fácil de implementar.
--

Siempre zen

Buenas noches,
Alguien más escribió:

Sub Test()
'Declaración de las variables -------------------------
Dim Cel As Range
Dim F As Worksheet
'MEI ----------------------------
application.ScreenUpdating = False
'Bloqueo de la actualización de la pantalla
'Tratamiento------------------------
For Each F In Worksheets
'Para cada hoja del libro
For Each Cel In F.UsedRange
'Para cada celda del rango usado de la hoja
Select Case Cel.Value
'definir caso = valor de cel
Case "A"
Cel.Interior.ColorIndex = 3
Case "B"
Cel.Interior.ColorIndex = 41
Case "C"
Cel.Interior.ColorIndex = 4
Case "D"
Cel.Interior.ColorIndex = 6
Case Else
Cel.Interior.ColorIndex = xlNone
End Select
Next Cel
Next F
application.ScreenUpdating = True
End Sub

La macro tiene en cuenta el uso de mayúsculas: "A" es reconocido, pero no "a". si quieres que funcione en ambos casos, reemplazas
Select Case Cel.Value
por
Select Case Ucase(Cel.Value)

Si te parece bien, podemos activarla automáticamente en la hoja actual, ya sea en caso de cambio, o en caso de cambio de hoja.
Si no, detalla lo que quieres obtener
A+

-->Mensaje editado por Gorfael el 20/07/2007 02:14:42<--

Buenas tardes a todos,

llego un poco tarde pero dado que lo hice, lo pongo de todos modos:
http://www.cijoint.fr/cjlink.php?file=cj200810/cijUlCe7FM.xls

el código para quienes lo lean más tarde:

Sub colorer() ' seleccionar el rango que recibirá el color antes de llamar a la macro Const offsetCol As Integer = -1 ' controlar las celdas ubicadas 1 columna a la izquierda Dim c1 As Range, c2 As Range For Each c1 In Selection For Each c2 In [Légende ] 'rango nombrado que contiene el texto buscado y el color If c1.Offset(0, offsetCol).Value = c2.Value Then c1.Interior.ColorIndex = c2.Interior.ColorIndex Exit For End If Next c2 Next c1 End Sub

eric

Gracias a usted por sus respuestas, el enlace de Excel de Eric es genial. Así que he podido llevar a cabo mi proyecto gracias a ustedes.

Hasta la próxima, que tenga una buena noche.

Bueno, ¿qué es lo que te bloquea en los formatos condicionales?

Quiero un trozo de código en vb, por favor ;):p

Justamente estoy trabajando en Excel 2003 y no puedo poner más de 3 condiciones. Me preguntaba si no sería posible usar una fórmula con SI y O.

por las fórmulas, estoy seguro de que no funciona. No puedes cambiar el color de una celda a través de una fórmula... pero en VBA (asociando una macro VBA al cambio de celda) sé que es posible, pero no he profundizado en el tema, ya que no utilizo más de 3 condiciones tampoco ;) ... pero soy programador de corazón, así que:

LatelyGeek: si tienes la solución ;)

gracias de antemano :)

gracias por mí, espero que eso resuelva tu problema slamdunk77

si es así, no olvides poner resuelto en la parte superior ;)

@++

En lo que respecta a las macros, no sé mucho porque hasta ahora nunca he tenido necesidad de esta utilidad.

Acabo de descargar el programa, lo probaré mañana.

De todos modos, gracias por sus respuestas, y si otras personas tienen más propuestas, ¡que no duden en compartirlas!

buenas noches

acabo de ver tu comentario COCOTEHIER, te mantengo informado mañana.

muchas gracias

ok, gracias a ti también

PS: olvidé decir que si ponemos offsetCol a 0 coloreamos las celdas seleccionadas según su contenido.
eric