Cómo escribir fecha que no sea sábado o domingo

Tengo el siguiente código de macro que coge un dato fecha de la celda J9 y le suma 2 días y lo escribe en la celda D18, como se muestra en la imagen.

Cómo puedo hacer para que la fecha escrita en la celda D18 corresponda a días lunes a viernes (no sábado, ni domingo), en la imagen muestra 22 de junio (sábado), no importa que tenga que sumar 3 ó 4 dias a la fecha actual.

Range("D18") = "Con fecha" & " " & Format(Range("J9").Value + 2, "dd mmmm yyyy") & ",se registró en el sistema"

1 Respuesta

Respuesta
1

Tal vez necesites una celda auxiliar, ya que la fórmula no queda tan sencilla como fecha + 2

Te dejo la fórmula que hace lo que vos querés para que la adaptes a tu necesidad:

=SI(RESIDUO(J9;7)<5;J9+2;J9+9-RESIDUO(J9;7))

O, en tu código sería algo más o menos así...

Range("D18") = "Con fecha " & _
 Format( IIf( (Range("J9") Mod 7) < 5; Range("J9")+2; _
 Range("J9") + 9 - (Range("J9") Mod 7)) ; "dd mmmm yyy") & _
", se registró en el sistema"

Esta segunda forma no la verifiqué en el xls, así que puede tener algún error de sintaxis

Salu2

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas