Macro para mostrar Horas, minutos y segundos en diferentes celdas

Para: Dante Amor

Ante todo un cordial saludo a un gran profesional en estos temas, tengo una macro que me diste en la que e agregado tiempos como hora minuto y segundo, pero estos se tienen que mostrar en diferentes celdas. En la fila (D) minutos y en la (F )segundos, espero que se entienda mi pregunta...

Gracias por la repuesta que me puedas dar.

Dim valor
'
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        'valor = Target
         Range("B" & Target.Row) = Date
         Range("C" & Target.Row) = Format(Now, "hh:mm")
        'Range("D" & Target.Row) = En esta fila se muestra solo minutos
        'Range("F" & Target.Row) = En esta fila se muestra solo segundos
        If valor <> "" And Target = "" Then
            Cells(Target.Row, "C") = ""
            Cells(Target.Row, "D") = ""
            Cells(Target.Row, "F") = ""
        End If
    End If
End Sub
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.Dante Amor
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        valor = Target
    End If
End Sub

2 Respuestas

Respuesta
1

Solo tienes que emplear las funciones de VBA HOUR y MINUTE

Dim hora As Integer, minuto As Integer, segundo as Integer
hora = Hour(Now)
minuto = Minute(Now)
segundo= Second(Now)

y en tu código:

 'Range("D" & Target.Row) = minute(now) En esta fila se muestra solo minutos
 'Range("F" & Target.Row) = second(now) En esta fila se muestra solo segundos

Espero te sirva.

Respuesta
1

H o l a:

Te anexo la macro actualizada

Dim valor
'
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        'valor = Target
        Range("B" & Target.Row) = Date
        Range("C" & Target.Row) = Format(Now, "hh")
        Range("D" & Target.Row) = Format(Now, "mm")
        Range("F" & Target.Row) = Format(Now, "ss")
        If valor <> "" And Target = "" Then
            Cells(Target.Row, "C") = ""
            Cells(Target.Row, "D") = ""
            Cells(Target.Row, "F") = ""
        End If
    End If
End Sub
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.Dante Amor
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        valor = Target
    End If
End Sub

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ingresar información en una hoja y rescatar los datos principales en otra hoja ordenadamente.

Debo hacer cotizaciones y necesito guardar la información de los datos de las personas en una BD, sin ocupar Tablas. Lo principal de esto es que queden ordenada según el número de la cotización y mantener el número correlativo de la cantidad de...
1 respuesta

Como habilitar la Pestaña Automatización en Excel de Office 2021

Quisiera saber cual es el procedimiento para habilitar la pestaña Automatización en Excel 2021 o donde poder bajar ese complemento.
1 respuesta

Ver distintas hojas de un mismo libro en distintas pantallas

¿Pues no sé si esto se podrá hacer? Una determinada hoja de un libro se puede ver en la pantalla 2 mientras el resto de hojas, del mismo libro, las veo en la pantalla 1...¿Se puede? Si es así, ¿Cómo?
3 respuestas

¿Cómo ajustar con VBA un rango de impresión a partir de un rango dinámico?

Recurro a su amplia experiencia para resolver un inconveniente: He creado una plantilla para hacer una consulta de ordenes de pedido por medio del RFC del cliente, la plantilla esta dividida en tres rangos: Primer rango B1:I22 se ubican los datos...
1 respuesta

How do you perform Change Data Capture when replicating Salesforce data?

A challenge that comes with using these cloud-based CRMs is in integrating them with the internal data systems and reporting modules that rely upon getting up to date data from the CRM.
4 respuestas

Macro eliminar filas con valor

Tengo esta macro que me elimina las filas cuando el valor es #N/D, pero me ha dejado de funcionar cuando el valor es #CALC! Me podéis echar una mano. Muchas gracias. Sub Borrar_Filas() Dim ultifila As Integer 'guardo la última fila utilizada en la...
2 respuestas

Encontrar datos no coincidentes excel

Sucede que tengo que comparar dos bases de datos y encontrar los elementos no coincidentes para analizar. Se puede hacer por fórmula pero necesito algo más optimizado. El otro problema es que los datos son más de 1.48.576 capacidad de líneas de...
2 respuestas

¿Cómo resolver num a letras en excel?

En un libro excel habilitado para macros al convertir números a letras, en lugar de aparecer el resultado esperado aparece el mensaje # ¿NOMBRE?.
2 respuestas

´No sé que fórmulas usar para resolverme el problema

La imagen no me la sube y tampoco veo como se sube un fichero, os intentaré explicar lo mejor que pueda mi problema. En una hoja Excel tengo hallados los pagos por formas de pago: SUMAR.SI(D1:D16;"Efectivo";B1:B16), y...
3 respuestas

¿Cómo ajustar texto automáticamente en celdas combinadas en Excel 2019?

Solicito amablemente su valiosa ayuda para ajustar automáticamente un rango de celdas de una columna, he intentado con la opción de ajuste autamático de filas, también con al opción de ajustar texto de la pestaña inicio e incluso con la siguiente...
1 respuesta