Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Hola ben día:
Me podria ayuar a localiza el error en la siguinte sintaxis ya que por mas que la intent buscar no la encuentro, lo que esta en negrito es dondeme aparece el error
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 6 Then
Cells(Target.Row, 6).Value = Now
End If
End Sub
-----------------------------------------------------------------------------
Private Sub Workbook_Open()
Worksheets("09-00 AM").Protect "aBc", 1, 1, 1, 1
End Sub
------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then ActiveCell.Select
With ActiveCell
If .Locked Then Exit Sub
If Not IsEmpty(ActiveCell) And Not .Locked Then .Locked = True
End With
End Sub
Estaria eternamente agradecida