Buenas tardes,

Tengo el siguiente Private Sub en mi hoja de cálculos:

Private Sub Worksheet_Change (ByVal Target As Range)
 
If Target.Column < 17 Then
    Cells(Target.Row, 16383).Value = Now
End If

If Target.Column = 18 Then
    Cells(Target.Row, 16384).Value = Now
End If
 
End Sub

Pero me gustaría saber que tengo que modificar o agregar para que cuando se ejecute la orden de (Target.Column < 17 Then) al modificarse después de un registro no cambie la fecha y hora de creación.

Al parecer el Excel está considerando colocar la fecha y hora cada vez que se modifica las 17 primeras columnas, lo ideal sería que la fecha y hora salga solo una vez, cuando se realice la primera modificación.

Quedo atento a sus comentarios.

Saludos Cordiales.

Editado el el 19 de febrero6 años por RandalHP

No se si e he entendido, pero prueba así a ver que tal:

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column < 17 Then
   If Not IsDate(Cells(Target.Row, 16383)) Then Cells(Target.Row, 16383) = Now
End If

If Target.Column = 18 Then
    If Not IsDate(Cells(Target.Row, 16384)) Then Cells(Target.Row, 16384) = Now
End If
 
End Sub

 

Hace 2 minutos , Antoni dijo:

No se si e he entendido, pero prueba así a ver que tal:

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column < 17 Then
   If Not IsDate(Cells(Target.Row, 16383)) Then Cells(Target.Row, 16383) = Now
End If

If Target.Column = 18 Then
    If Not IsDate(Cells(Target.Row, 16384)) Then Cells(Target.Row, 16384) = Now
End If
 
End Sub

 

Muchas gracias @Antoni Al parecer el código ahora solo esta mostrando solo 1 fecha de modificación. Osea cuando se agregan datos en esas columnas por primera vez esa fecha prevalece, pero cuando después se realiza una modificación ya no vuelve a cambiarlo.

Ss.

Hace 1 minuto , RandalHP dijo:

Muchas gracias @Antoni Al parecer el código ahora solo esta mostrando solo 1 fecha de modificación. Osea cuando se agregan datos en esas columnas por primera vez esa fecha prevalece, pero cuando después se realiza una modificación ya no vuelve a cambiarlo.

De eso se trataba ¿No?

Hace 1 minuto , Antoni dijo:

De eso se trataba ¿No?

Así es, muchas gracias por el apoyo!

Ss.

@Antoni Bro, Habrá alguna manera de que esto afecte a un rango de celdas. El rango que estoy ingresando información es el siguiente:

=A11:Q1048576

Ss.