UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Macro FECHA el 02/03/18, 09:05 pm

PoteoRoke

avatar
Saludos !!!

Sabemos de la existencia de la formula HOY(), pero lo que pretendo hacer, es lo siguiente,  con una macro ya que intuyo que no se puede hacer con formula ... es:

Deseo poner la fecha actual en una celda, pero SIEMPRE y CUANDO se modifique/guarde algo nuevo en el libro.


Gracias por tu tiempo

2RESUELTO Re: Macro FECHA el 03/03/18, 12:46 pm

Igtelo

avatar
Hola PoteoRoke.

Supongo que es en una hoja y no en el libro. Copia y pega éste código en la hoja correspondiente.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rango As Range

Set rango = Range("a1:k20")    'Rango para el evento, modifica según necesites

If Intersect(Target, rango) Is Nothing Then Exit Sub   'Para que solo trabaje en el rango definido
Application.EnableEvents = False   'Desactiva el evento  VER NOTA
Range("E17,K17") = Date             'Pone fecha en celdas E17 y k17
Application.EnableEvents = True   'Activa el evento

End Sub

NOTA:
Se desactiva el evento para que no haga cosas raras


Saludos
Ignacio Téllez

3RESUELTO Re: Macro FECHA el 03/03/18, 04:44 pm

PoteoRoke

avatar
Saludos  !!!

Como lo cortes no quita lo valiente .... 


MIL GRACIAS

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.