18/08/2008, 20:06
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 1 mes Puntos: 88 | |
 Respuesta: Modificar una macro de Excel
Reemplaza la línea:
ActiveSheet.Range("B7").Value = "=TODAY()-((DAY(TODAY()-1)))"
por las siguientes:
Código:
With ActiveSheet.[B7:B37]
.ClearContents: .Formula = Date - Day(Date) + 1
.DataSeries Rowcol:=xlColumns, Type:=xlChronological, _
Stop:=DateSerial(Year(Date), 1 + Month(Date), 0)
End With  |