Fecha estatica por medio de codigo

hola, Daniel !

... en forma automatica ... ... al terminar de escribir ... en ... la columna k ... fecha ... en la columna Q [...]

pon la siguiente instruccion en el modulo de codigo de 'la hoja'
______
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then Target.Offset(, 6) = Now
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
si necesitas 'solo' la fecha [sin el tiempo] cambia 'Now' por 'Date'

saludos,
hector.

Hola Héctor Miguel..!!!

Muchas gracias por que te detuviste ha leer este mensaje...por otro lado muchas felicidades por este
año que inicia de corazón para ti y todos tus seres queridos.

No se si me puedan o puedas dar una manita de nuevo el código que me das es muy bueno de hecho le
anexe otra linea.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then Target.Offset(, 6) = Date ' o Now
If Target.Column = 12 Then Target.Offset(, 4) = Date ' o Now
End Sub

este código es aplicable nada más a la hoja donde trabajo. Pero me gustaría si es que se puede
aplicar a todas la hojas de Excel nada más que las hojas las tengo por nombre p.e.
Fausto,Lidia,Figueroa,Beto,Gaby;Agustín,Carlos,Roberto.

También me di cuenta de que la estar ubicado en las celdas K o L y oprimo la tecla supr. me pone la
fecha no habrá algún mecanismo que al oprimir la teca supr. no ponga la fecha. porfis.

Por todo lo anterior mil gracias.

Un saludo,
Daniel


Héctor Miguel escribió en el mensaje de noticias

hola, Daniel !

> ... en forma automatica ... ... al terminar de escribir ... en ... la columna k ... fecha ... en

la columna Q [...]

pon la siguiente instruccion en el modulo de codigo de 'la hoja'
______
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then Target.Offset(, 6) = Now
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
si necesitas 'solo' la fecha [sin el tiempo] cambia 'Now' por 'Date'

saludos,
hector.

hola, Daniel !

... aplicar a todas la hojas de Excel ... que al oprimir la teca supr. no ponga la fecha [...]

cambia el codigo al modulo del libro en el evento 'Workbook_SheetChange'
['aplica' A TODAS las hojas en el libro]
con relacion a la tecla {Supr}...
1.- el siguiente codigo NO 'pone' la fecha si se presiona {Supr} en alguna celda de 'las columnas'
'pero...' [si YA 'tenia' fecha su 'contra-celda'... 'ahi se queda'... :((
_______
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
If .Value <> "" Then
If .Column = 11 Then .Offset(, 6) = Date
If .Column = 12 Then .Offset(, 4) = Date
End If
End With
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
2.- si 'necesitas' que se borre [si ya 'tenia' algo] su 'contra-celda', entoces usa el siguiente codigo:
_______
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
Select Case .Column
Case 11: If .Value <> "" Then .Offset(, 6) = Now Else .Offset(, 6).ClearContents
Case 12: If .Value <> "" Then .Offset(, 4) = Now Else .Offset(, 4).ClearContents
End Select
End With
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.

p.d. [NO por 'menos importante'] :))
agradezco tus buenos deseos y comparto contigo mis mejores para ti y los tuyos por un año pleno de realizaciones ;)