ayuda con macro

12/12/2003 - 07:43 por - | Informe spam
Necesitaría el código de una macro, para una hoja en la cual al ejecutar esa
macro todas las celdas donde haya una "F", ponga el fondo en rojo y la F de
color negro.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
12/12/2003 - 07:53 | Informe spam
hola, jose !

... codigo ... para ... todas las celdas donde haya una "F", ponga el fondo en rojo y la F de color negro.



¿porque no 'pruebas' con los formatos condicionales? [p.e.]
- selecciona TODA la hoja
- elige: formato -> formato condicional...
- condicion => formula
- formula => ¡="F"
- formato => color rojo en la 'trama' [+ fuente negra y negrita???]
- aceptar... y ... ¡ listo !!!

saludos,
hector.
Respuesta Responder a este mensaje
#2 -
12/12/2003 - 16:18 | Informe spam
Porque ya estoy utilizando en esa misma hoja 3 formatos condicionales, y no
me deja poner 4, por eso no puedo hacerlo.

"Héctor Miguel" escribió en el mensaje
news:%
hola, jose !

> ... codigo ... para ... todas las celdas donde haya una "F", ponga el


fondo en rojo y la F de color negro.

¿porque no 'pruebas' con los formatos condicionales? [p.e.]
- selecciona TODA la hoja
- elige: formato -> formato condicional...
- condicion => formula
- formula => ¡="F"
- formato => color rojo en la 'trama' [+ fuente negra y negrita???]
- aceptar... y ... ¡ listo !!!

saludos,
hector.


Respuesta Responder a este mensaje
#3 Héctor Miguel
12/12/2003 - 18:33 | Informe spam
hola, !

... ya estoy utilizando ... 3 formatos condicionales, y no me deja poner 4 [...]



en ese caso... pon lo siguiente en el modulo de codigo de 'la hoja':
_______
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
Select Case Target
Case "F", "f"
.Interior.ColorIndex = 3
.Font.Bold = True
Case Else
.Interior.ColorIndex = xlColorIndexNone
.Font.Bold = False
End Select
End With
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
revisa en la ayuda de vba, las constantes para el color con la propiedad .ColorIndex
puedes 'brincar' la limitante de 3 formatos condicionales a 'tantos' como Case "X", "x" 'metas' en el codigo
=> 'observa' que he puesto mayusculas Y minusculas [por si acaso... 'comparar' textos en vba 'debe ser' EXACTO]
=> toma nota de que PIERDES el 'beneficio' del UnDo [deshacer]

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida