Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Macro genere fecha y hora actual

  • Autor del tema Autor del tema BHG30
  • Fecha de inicio Fecha de inicio

BHG30

Member
Registrado
17 Abr 2021
Mensajes
104
Buenos días
Estoy generando un inventario y no logro dar con la macro que me genere la fecha/hora actual cuando se introduzca una entrada/salida en el inventario. En adjunto os dejo el documento...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Solución
Hola @BHG30,
Te puede servir, en las respectivas Hojas,
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
    Set Rng = ActiveSheet.Range("ENTRADAS[Dato entrada]")
    If Not Intersect(Target, Rng) Is Nothing Then
        Target.Offset(0, 1).Value = Now
        Target.Offset(0, 1).NumberFormat = "dd/mm/yyyy hh:mm"
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Set Rng = ActiveSheet.Range("=SALIDAS[Dato salida]")
    If Not Intersect(Target, Rng) Is Nothing Then
        Target.Offset(0, 1).Value = Now
        Target.Offset(0, 1).NumberFormat = "dd/mm/yyyy hh:mm"
    End If
End Sub

Si asignas a toda la columna Fecha de ambas Tablas de Excel el formato dd/mm/aaaa hh:mm, puedes suprimir la...
Hola @BHG30,
Te puede servir, en las respectivas Hojas,
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
    Set Rng = ActiveSheet.Range("ENTRADAS[Dato entrada]")...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Última edición:
Volver
Arriba