Reafirmar el Formato condicional
ekaitza
.P.e.: poner texto en rojo o en negro segun ese formato condicional . Ahora
quiero aplicar a esas celdas el resultado de ese formato condicional pero no
como formato condicional sino como formato fijo de esas celdas . Es decir que
si el texto está en rojo , aplicarle formato fijo de color de la fuente en
rojo . Quiero pasar esa hoja a un PDA que no me admite formato condicional .
Muchas gracias
H�ctor Miguel
si lo que quieres es aplicar un formato (no condicional) solo a celdas con formatos condicionales
por cada tipo/color/... de formato, prueba desde:
- (menu:) edicion / ir a... / pulsa en el boton "especial >>" y selecciona celdas con formatos condicionales
tienes dos opciones: todos los formatos o solo el mismo formato que la celda activa
si lo que necesitas es que el formato "duro" se aplique solo a las celdas con FC "cumplido"...
necesitas usar macros y unos cuantos bucles para determinar si el formato se esta aplicando (o no)
saludos,
hector.
__ OP __
> Tengo una serie de celdas en las que he aplicado el formato condicional
> .P.e.: poner texto en rojo o en negro segun ese formato condicional.
> Ahora quiero aplicar a esas celdas el resultado de ese formato condicional
> pero no como formato condicional sino como formato fijo de esas celdas.
> Es decir que si el texto esta en rojo, aplicarle formato fijo de color de la fuente en rojo.
ekaitza
Creo que tengo que utilizar macros. Primero estudiaré como se aplican y
luego preguntaré . Lo que hago es (Office 2003):
1.-De un informe de Access tengo una columna de Fecha y varias columnas de
importes con FC
2.-Exporto a Excel (pierdo el color del texto del FC aplicado en Access)
3.-Selecciono celdas de Importes y aplico FC si mayor que 100 texto en verde
4.-Ahora quiero aplicar a las celdas con texto en verde el formato fijo de
color del texto verde.
5.-Y ahora paso a un PDA esta nueva Hoja con texto en verde
6.-Tengo que utilizar macros ?
Muchas gracias de Ekaitza
"Héctor Miguel" escribió:
H�ctor Miguel
> Perdona, soy Ekaitza o ,si quieres, Miguel Angel
=> yo prefiero "hablar" con Miguel Angel
es que tengo un "problema"... me gusta "mirar a los ojos de mi interlocutor" :))
> Creo que tengo que utilizar macros. Primero estudiare como se aplican y luego preguntare . Lo que hago es (Office 2003):
> 1.-De un informe de Access tengo una columna de Fecha y varias columnas de importes con FC
> 2.-Exporto a Excel (pierdo el color del texto del FC aplicado en Access)
=> esta perdida de formatos aplicados en Access es "normal" ya que los datos (im/ex)portados son (generalmente) textos
> 3.-Selecciono celdas de Importes y aplico FC si mayor que 100 texto en verde
> 4.-Ahora quiero aplicar a las celdas con texto en verde el formato fijo de color del texto verde.
=> podrias ahorrarte el paso de los (re)FC en excel (pero...)
> 5.-Y ahora paso a un PDA esta nueva Hoja con texto en verde
> 6.-Tengo que utilizar macros ?
=> SI es necesario/conveniente el uso de macros (pero antes...)
- de cuantas filas estamos hablando ?
- cual seria la columna a la que aplicas FC ?
- cuantas condiciones usas para los FC ? (antes mencionaste rojo y ahora verde)
saludos,
hector.
ekaitza
He ido a la direccion de un curso de formacion de macros que le dista el
15/05/09 a ternuh21....
pero me da error de sintaxis en la instruccion do while
Sub CountRows()
x = ActiveCell.Row
y = ActiveCell.Column
z = 0
Do While Cells(x, y).Value <> ""
x = x + 1
z = z + 1
Loop
MsgBox "Hay " & z & " filas en el intervalo actual."
End Sub
Me preguntas por el nº de filas y columnas :
Filas 365+12 son las fechas de un año + el total de cada mes
Columnas :
Columna G de Fecha Si sábado de color rosa Si domingo de color rojo else
negro
Columna J hasta T de Importe Si >=30 then color rojo else color negro
Creo que utilizando las macros puedo fijar el color sin utilizar el formato
condicional
Para la fecha utilizaba 2 condiciones DiaSem(celda)=7 then rosa
Diasem(celda)=1 then rojo
Voy a seguir estudiando el curso de macros pero si me gustaria que me
dijeras por qué me da error de sintaxis la instruccion Do While Cells(x,
y).Value <> ""
Gracias anticipadas Héctor Miguel .
"Héctor Miguel" escribió:
H�ctor Miguel
1) podria haber diferentes causas por las que de error el bucle while que estas usando (p.e.)
una podria ser si alguna celda contiene valores de error cuando el bucle "pasa" por ella
pero sin conocer los datos y el arreglo de tu modelo, poco se podria hacer para adivinar y acertar (?)
2) falta algo de informacion "al detalle" con relacion a los colores que quieres aplicar (p.e.)
- color rosa cuando se trata de sabado/domingo es solo a las celdas de la columna G (o a toda la fila) ?
- para aplicar el color rojo a las celdas de las columnas J -> T si >=30
preferiria conocer los rango exactos (o al menos, la fila inicial precisa)
=> en lugar de "depender" de la celda "activa" que seleccione el usuario
saludos,
hector.
__ 1 __
> He ido a la direccion de un curso de formacion de macros que le dista el 15/05/09 a ternuh21....
> pero me da error de sintaxis en la instruccion do while
> Sub CountRows()
> x = ActiveCell.Row
> y = ActiveCell.Column
> z = 0
> Do While Cells(x, y).Value <> ""
> x = x + 1
> z = z + 1
> Loop
> MsgBox "Hay " & z & " filas en el intervalo actual."
> End Sub
> (...)
> pero si me gustaria que me dijeras por que me da error de sintaxis la instruccion Do While Cells(x, y).Value <> ""
__ 2 __
> Me preguntas por el n� de filas y columnas :
> Filas 365+12 son las fechas de un a#o + el total de cada mes
> Columnas :
> Columna G de Fecha Si sabado de color rosa Si domingo de color rojo else negro
ekaitza
Sé que te contesto tarde . Perdona .
Tengo un informe en Access con colorines (he aplicado formatos condicionales).
Exporto a Excel y vuelvo a aplicar los formatos condicionales a una serie de
celdas. La hoja es así:
Filas 388 :los días del mes 01/01/2009--> 31/01/2009 total mes, 01/02/2009
...365 dias del año y al romper por mes un total
Columnas G(columna Fecha)-> V : Resto columnas Importe
G : Si Sabado Rosa Si domingo Rojo else negro
I : Si >=100 Verde
J->T Si >=30 Verde
U y V Si >=100 Verde
La primera fila es la de los títulos y el resto la de los datos : fecha y
diferentes importes
No sé si con estos "detalles" me puedes solucionar el problema de introducir
los colores de forma automática en el PDA
De nuevo muchísimas gracias
Saludos Miguel Angel
"Héctor Miguel" escribió:
> > Me preguntas por el nº de filas y columnas :
H�ctor Miguel
> Tengo un informe en Access con colorines (he aplicado formatos condicionales).
> Exporto a Excel y vuelvo a aplicar los formatos condicionales a una serie de celdas. La hoja es asi:
> Filas 388 :los dias del mes 01/01/2009--> 31/01/2009 total mes, 01/02/2009 ...365 dias del a#o y al romper por mes un total
> Columnas G(columna Fecha)-> V : Resto columnas Importe
> G : Si Sabado Rosa Si domingo Rojo else negro
> I : Si >=100 Verde
> J->T Si >=30 Verde
> U y V Si >=100 Verde
> La primera fila es la de los titulos y el resto la de los datos fecha y diferentes importes ...
no se si el modelo (re)creado para las pruebas con base en esta consulta sea similar a tus datos reales (?)
prueba con la siguiente macro y, si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.
Sub misColores()
Dim Fila As Integer, Col As Byte, _
Sabados As Range, Domingos As Range, Valores As Range
Application.ScreenUpdating = False
For Fila = 2 To [g65536].End(xlUp).Row
If IsDate(Range("g" & Fila)) Then
Select Case WeekDay(Range("g" & Fila))
Case 7 ' Sabado
Set Sabados = Union( _
IIf(Sabados Is Nothing, Range("g" & Fila), Sabados), Range("g" & Fila))
Case 1 ' Domingo
Set Domingos = Union( _
IIf(Domingos Is Nothing, Range("g" & Fila), Domingos), Range("g" & Fila))
End Select
For Col = 9 To 22
Select Case Col
Case 9, 21, 22
If Cells(Fila, Col) >= 100 Then
Set Valores = Union( _
IIf(Valores Is Nothing, Cells(Fila, Col), Valores), Cells(Fila, Col))
End If
Case Else
If Cells(Fila, Col) >= 30 Then
Set Valores = Union( _
IIf(Valores Is Nothing, Cells(Fila, Col), Valores), Cells(Fila, Col))
End If
End Select
Next
End If
Next
Valores.Interior.ColorIndex = 4
Sabados.Interior.ColorIndex = 7
Domingos.Interior.ColorIndex = 3
Set Valores = Nothing
Set Sabados = Nothing
Set Domingos = Nothing
End Sub
ekaitza
Acabo de recibir tu mensaje . Muchas gracias . Lo probaré este fin de semana
. Por lo menos lo intentaré, pues el domingo tengo que estar todo el santo
día en una mesa electoral . Gracias de nuevo.
Saludos Miguel Angel
"Héctor Miguel" escribió:
> hola, Miguel Angel !