Me gustaría repetir la macro que inserta hora y fecha en una mis hoja de exel ¡¿Cómo lo puedo hacer?
Estoy elaborando una macro de registros de unidades móviles rastreadas por gps y estoy utilizando la macro que inserta automáticamente la fecga y la hora en una columna, pero me gustaría repetir la misma macro en la misma hoja para aplicar estos criterios en otras columnas espero que alguien me pueda ayudar a resolver este problema.
La macro que estoy ocupando es:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Range("B" & Target.Row) = Date
Range("C" & Target.Row) = Format(Now, "hh:mm")
End If
End Sub
1 Respuesta
Respuesta de Carlos Arrocha
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:D")) Is Nothing Then
Range("B" & Target.Row) = Date
Range("C" & Target.Row) = Format(Now, "hh:mm")
End If
End SubPrueba así a ver si te sirve. Tienes hasta la columna D
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:E")) Is Nothing Then
Range("B:D" & Target.Row) = Date
Range("C:E" & Target.Row) = Format(Now, "hh:mm")
End If
End SubCorrijo. Prueba así. Si te fijas he puesto hasta la columna "E" .
