Para d2enri
Como puedo modificar tu respuesta
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
'Ajustar la referencia al rango deseado
Set rng = Range("A1:A100")
If Not Intersect(Target, rng) Is Nothing Then
Target.Offset(0, 1) = Time 'Para hora solamente
Target.Offset(0, 2) = Date 'Para fecha solamente
End If
End Sub
en lugar A1: A100 es cuando se ponga datos en cualquier de las siguientes celdas
I9,k9,L9,P9 cuando estas celdas o cualquiera de estas tengan datos o una X en la celda b,10 la fecha y en f10 la hora
es para llenar un formato despuedes de llenado se imprime y se buelbe a llenar con datos distintos al borrar los campos I9,k9,L9,P9 la fecha y la hora se borren y al bolverlos a llenar se actualize la hora y la fecha si es al otro dia gracias
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
'Ajustar la referencia al rango deseado
Set rng = Range("A1:A100")
If Not Intersect(Target, rng) Is Nothing Then
Target.Offset(0, 1) = Time 'Para hora solamente
Target.Offset(0, 2) = Date 'Para fecha solamente
End If
End Sub
en lugar A1: A100 es cuando se ponga datos en cualquier de las siguientes celdas
I9,k9,L9,P9 cuando estas celdas o cualquiera de estas tengan datos o una X en la celda b,10 la fecha y en f10 la hora
es para llenar un formato despuedes de llenado se imprime y se buelbe a llenar con datos distintos al borrar los campos I9,k9,L9,P9 la fecha y la hora se borren y al bolverlos a llenar se actualize la hora y la fecha si es al otro dia gracias
1 respuesta
Respuesta de d2enri
1
En unos minutos me pongo con ello y te paso el código
Para que te inserte la fecha y hora el código quedaría así
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
'Ajustar la referencia al rango deseado
Set rng = Range("I9,k9,L9,P9")
If Not Intersect(Target, rng) Is Nothing Then
Range("F10").Value = Time 'Para hora solamente
Range("D10").Value = Date 'Para fecha solamente
End If
End Sub
Con esto cada vez que cambies un dato en esas celdas te actualizara la hora y el día
Si lo crees necesario podríamos crear un código que te mande imprimir y te borre los datos para empezar a rellenarlos de nuevo
si es así dime todos los rangos que quieres borrar
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
'Ajustar la referencia al rango deseado
Set rng = Range("I9,k9,L9,P9")
If Not Intersect(Target, rng) Is Nothing Then
Range("F10").Value = Time 'Para hora solamente
Range("D10").Value = Date 'Para fecha solamente
End If
End Sub
Con esto cada vez que cambies un dato en esas celdas te actualizara la hora y el día
Si lo crees necesario podríamos crear un código que te mande imprimir y te borre los datos para empezar a rellenarlos de nuevo
si es así dime todos los rangos que quieres borrar
