Macro para Registrar Fecha y Hora en la que se ingresa datos en una Tabla Automáticamente.

0


 

Código:


Private Sub Worksheet_Change(ByVal Target As Range)

Dim t As ListObject, F As Long, eXl_Rng As Range

'Nombre de la Tabla

Set t = Me.ListObjects("Nombre_Tabla")

F = t.HeaderRowRange.Row

'Nombre de la Columna de activa el registro automático

Set eXl_Rng = Intersect(Target, t.ListColumns("Nombre_Columna").DataBodyRange)

    

If Not eXl_Rng Is Nothing Then

    If eXl_Rng.Value <> "" Then

'Nombre de la Columna donde se registra la Fecha

        With t.ListColumns("Nombre_Columna").DataBodyRange

            If .Cells(eXl_Rng.Row - F).Value = "" Then

                .Cells(eXl_Rng.Row - F).Value = Format(Now, "dd/mm/yyyy")

            End If

        End With

'Nombre de la Columna donde se registra la Hora

        With t.ListColumns("Nombre_Columna").DataBodyRange

            If .Cells(eXl_Rng.Row - F).Value = "" Then

                .Cells(eXl_Rng.Row - F).Value = Format(Now, "hh:mm:ss")

            End If

        End With

    End If

End If

End Sub

Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel