Como inserto fecha automática en ecxell y que no aparezca el calendario solo la fecha al dar clic
esto es lo que he hecho pero no me corre en todo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("b2:5")) Is Nothing Then
ActiveCell.Formula = Now()
ActiveCell.Copy
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Unprotect
ActiveCell.Locked = True ActiveSheet.Protect DrawingObjects:=True, Scenarios:=True
End If
End Sub
1 Respuesta
Te mando la corrección:
-En la macro que has enviado el rango de actuación has puesto b2:5 esto no sirve. He optado por poner el rango B2:B5.
-Hay otras corrección que podrás ver.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("b2:b5")) Is Nothing Then
ActiveSheet.Unprotect
Target.Formula = "=now()"
Target.Copy
Target.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveCell.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Scenarios:=True
End If
End Subrecuerda finalizar
gracias por la respuesta ya realice los correctivos si me funciona sin embargo me bloquea toda la hoja tengo que ir a la opción desbloquear hoja cada vez que voy a dar click en alguna celda, pregunta el documento se me bloquea todo completamente sino desbloqueó no puedo escribir nada de nada ni el click para ejecutar
Inicialmente tu macro estaba así y no la toqué. Para no bloquearla la macro quedaría así:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("b2:b5")) Is Nothing Then
Target.Formula = "=now()"
Target.Copy
Target.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
End Sub
