Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Poner fecha automáticamente

18/07/2007 - 11:30 por Tony | Informe spam
Ayuda Hacer una pregunta
Hola de nuevo:

Necesito introducir en una macro el código para que en una serie de celdas
ponga la fecha. Las celdas están todas en la columna D y el número de filas
depende de la última que contenga datos (la columna A siempre contiene
datos)...

La fecha que debe poner es el último día del mes anterior al de la fecha del
sistema...

¿Cómo podría ponerlo?...

Gracias por anticipado...
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
18/07/2007 - 15:26 | Informe spam
Hola Tony,

"Tony" wrote in message
news:
Hola de nuevo:

Necesito introducir en una macro el código para que en una serie de celdas
ponga la fecha. Las celdas están todas en la columna D y el número de
filas
depende de la última que contenga datos (la columna A siempre contiene
datos)...

La fecha que debe poner es el último día del mes anterior al de la fecha
del
sistema...

¿Cómo podría ponerlo?...

Gracias por anticipado...



No se si te he entendido bien...

Sub test()
With ActiveSheet
.Range("D:D")(.Cells(.Rows.Count, "A").End(xlUp).Row) = _
DateSerial(Year(Date), Month(Date), 0)
End With
End Sub

Saludos,
KL

Preguntas similares

 

Busqueda sugerida :