Asisgar Fecha
¿Cómo le Hago para que en automático al escribir datos en la celda B1, se ponga la fecha en la celda A1 en que se escribieron esos datos y que no se modifique posteriormente?
1 respuesta
Respuesta de tavopz
1
Puedes usar el evento change de la hoja donde está la celda B1 y una vez se haya ingresado el dato proteger la hoja para que no pueda modificarse:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Range("A1").Value = Date
ActiveSheet.Protect = True
End If
End Sub
Este código lo pegas dando clic sobre la pestaña de la hoja y seleccionando "Ver Código", allí pegas todo.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Range("A1").Value = Date
ActiveSheet.Protect = True
End If
End Sub
Este código lo pegas dando clic sobre la pestaña de la hoja y seleccionando "Ver Código", allí pegas todo.
