Jump to content
Sign in to follow this  
jrosado_1982

Macro para ingresar fechas

Recommended Posts

Buenos días a todos, soy nuevo en el foro y de antemano agradezco el valioso apoyo que me puedan brindar.

El día de ayer hice una pequeña macro en una hoja de cálculo que me coloca la fecha de registro en las celdas que indico, sin embargo cuando pego varios valores a la vez, solamente coloca la fecha en la primera celda de la columna.

Alguien pudiera indicarme por favor qué debo modificar para que al momento de pegar un conjunto de valores, me coloque la fecha en el mismo número de celdas de la columna correspondiente?

La macro es la siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("c:c")) Is Nothing Then

Range("b" & Target.Row) = Date

End If

End Sub

Quedo en espera de sus comentarios.

Saludos y gracias

Share this post


Link to post
Share on other sites

Hola [uSER=210238]@jrosado_1982[/uSER] ,

Antes que nada Bienvenido al Foro.

  1. Debes de Leer las Normas para que se te pueda ayudar
  2. Siempre sube tu archivo donde expliques que requieres
  3. Los códigos no se postean en el tema deben ser insertados

Pega este código en tu Hoja 1 y me comentas si es lo que necesitas

Option Explicit
Public c, x As Double

Private Sub Worksheet_Change(ByVal Target As Range)

Application.DisplayAlerts = False
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
c = Range("C1", Range("C65536").End(xlUp)).Rows.Count
For x = 1 To c
Range("B" & x) = Date
Next
End If
Application.DisplayAlerts = True
End Sub
[/CODE]

Mucha Suerte

Saludos !!!

Share this post


Link to post
Share on other sites

[uSER=205875]@Max2005[/uSER] muchas gracias por la respuesta. Ya corrí la macro tal y como me la comentaste, sin embargo al meter un dato en la celda C9 por ejemplo, en la B me coloca las fechas desde la primera y borra mis encabezados, estaría perfecta si comenzara a colocar las fechas a partir de la celda B9.

Crees que puedas ayudarme nuevamente?

Estoy intentando anexar el archivo pero no me lo permite, pesa 6 MB.

Por otra parte, tomo en consideración tus consejos, una disculpa por omitirlo en el mensaje anterior.

Gracias nuevamente!!!

Share this post


Link to post
Share on other sites

[uSER=210238]@jrosado_1982[/uSER]

Pega este código

Private Sub Worksheet_Change(ByVal Target As Range)

Application.DisplayAlerts = False
If Not Application.Intersect(Target, Range("C9:C65536")) Is Nothing Then
c = Range("C9", Range("C65536").End(xlUp)).Rows.Count
For x = 1 To c
Range("B" & x + 8) = Date
Next
End If
Application.DisplayAlerts = True
End Sub[/CODE]

Saludos !!!

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png