Excel - para JuanC

   
Vista:

para JuanC

Publicado por PATRICK (29 intervenciones) el 05/02/2010 13:36:22
la tengo!!!!! y funciona!!

Sub COLOREAFILA()
fila = 4
col = 6

'ActiveSheet.Cells(I, 8).FormulaR1C1 = PEDIDO.Fields(2).Value
While ActiveSheet.Cells(fila, 1).FormulaR1C1 <> ""

If ActiveSheet.Cells(fila, col).FormulaR1C1 = "X" Then
If ActiveSheet.Cells(fila, col + 1).FormulaR1C1 = "" Then
If Weekday(Date) = 2 Then
ActiveSheet.Cells(fila, col + 1).FormulaR1C1 = (Date - 3)
Else
ActiveSheet.Cells(fila, col + 1).FormulaR1C1 = (Date - 1)
End If
End If
Rows(fila).Interior.ColorIndex = 6
End If




fila = fila + 1
Wend


End Sub

gracias por el WEEKDAY
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:para JuanC

Publicado por JuanC (1052 intervenciones) el 05/02/2010 13:37:51
bien hecho! y gracias...

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar