Reafirmar el Formato condicional

Buenos días Héctor Miguel :
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 >0 Verde
J->T Si >0 Verde
U y V Si >0 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ó:

hola, Miguel Angel !

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 >0
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
> Columna J hasta T de Importe Si >0 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

hola, Miguel Angel !

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 >0 Verde
J->T Si >0 Verde
U y V Si >0 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

Buenos días Héctor :
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 !

> 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 >0 Verde
> J->T Si >0 Verde
> U y V Si >0 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