Excel - fechas en macro

   
Vista:

fechas en macro

Publicado por PATRICK (29 intervenciones) el 04/02/2010 17:44:45
Buenas,

Necesitaba ayuda con la siguiente macro ya que me sale todo lo que quiero SALVO que cuando le digo que me ponga la fecha del día anterior, quisiera que los lunes me pusiera la del viernes y no la del domingo como ocurre con mi macro. ¿qué es lo que tengo que cambiar?

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
ActiveSheet.Cells(fila, col + 1).FormulaR1C1 = (Date - 1)
End If
Rows(fila).Interior.ColorIndex = 6
End If




fila = fila + 1
Wend


End Sub

Por cierto, también me colorea la fila donde está la X la cual significa que mi pedido está fabricado.

un saludo.

gracias
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:fechas en macro

Publicado por JuanC (1053 intervenciones) el 04/02/2010 20:48:26
hay dos funciones que pueden ser de utilidad
Weekday y WeekdayName
el resto es todo tuyo!

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