Calcular el primero y el último día de la semana.

En la hoja podrías hacer fórmulas como las siguientes:

Para calcular el primer día de la semana,
=HOY()-DIASEM(HOY(),1)+1

Para calcular el último día de la semana,
=HOY()+(7-DIASEM(HOY(),1))

Esto suponiendo que quieres domingo como primer día de la semana. Yo uso la
coma como separador, sino te funciona, cámbiala por punto y coma.

Luego, podrías copiar y hacer un pegado especial de valores para que el dato
ya no varíe.

Si lo quieres por código, sería algo como esto:

Range("A1").Select
ActiveCell.Formula = "=Today()-weekday(today(),1)+1"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues

Range("A2").Select
ActiveCell.Formula = "=today()+(7-weekday(today(),1))"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False



Cordialmente,


"ADumith" escribió:

Saludos amigos

Necesito colocar en una celda el primer día de la semana y en otro el último
día; partiendo de la fecha en la que estoy abriendo el archivo; pero al
momento si abro una archivo que abrí una semana anterior los valores de las
celdas no se deben cambiar.