Fecha Por Cada Celda

es un Macro
*************

Option Compare Text
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

With Target
Select Case .Column
'la celda donde la fecha/ la celda donde se crea la fecha
/borar la fecha creada
Case 1: If .Value <> "" Then .Offset(, 5) = Now Else .Offset(,
5).ClearContents

End Select
End With

End Sub

************

"KM ** Ve" escribió en el mensaje
news:%

Hola Amigos, tengo la columna (A) para Registrar Fechas y en la Columna
(B) para Registrar Horas y en la Columna (C) nombre, como hago cuando
escribo el nombre en la columna (C) que registra la Fecha y Hora en las
columnas especificada, en la misma columna de fecha y hora cada nombre
lleva una fecha y hora deferente.



Gracias

KM**VE

hola, Kaled !

... columna (A) para Registrar Fechas... Columna (B) para Registrar Horas... Columna (C) nombre
... cuando escribo el nombre en la columna (C)... Fecha y Hora en las columnas especificada [...]

es un Macro
Option Compare Text
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
Select Case .Column
'la celda donde la fecha/ la celda donde se crea la fecha /borar la fecha creada
Case 1: If .Value <> "" Then .Offset(, 5) = Now Else .Offset(, 5).ClearContents
End Select
End With
End Sub

1) la macro que expones [seguramente] esta escrita en el modulo de codigo del libro [ThisWorkbook] -?-
y se estaria ejecutando al modificarse celdas ->en cualquier hoja<- del libro :-(

2) para que ponga la fecha [en columna A] y la hora [en columna B] cuando pones el nombre [en columna C]...
prueba pegando las siguientes lineas...
en el modulo de codigo de 'esa' hoja [NO en el modulo de codigo del libro]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
If IsEmpty(Target) Then Target.Offset(, -2).Resize(1, 2).ClearContents: Exit Sub
Target.Offset(, -2) = Date: Target.Offset(, -1) = Time
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Esto ya fonciono perfecto.
si puedes ayudarme por el e mail que te mande porfavor avisame,

Gracias
Hectror

"Héctor Miguel" escribió en el mensaje
news:

hola, Kaled !

... columna (A) para Registrar Fechas... Columna (B) para Registrar
Horas... Columna (C) nombre
... cuando escribo el nombre en la columna (C)... Fecha y Hora en las
columnas especificada [...]

es un Macro
Option Compare Text
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
With Target
Select Case .Column
'la celda donde la fecha/ la celda donde se crea la fecha
/borar la fecha creada
Case 1: If .Value <> "" Then .Offset(, 5) = Now Else .Offset(,
5).ClearContents
End Select
End With
End Sub

1) la macro que expones [seguramente] esta escrita en el modulo de codigo
del libro [ThisWorkbook] -?-
y se estaria ejecutando al modificarse celdas ->en cualquier hoja<- del
libro :-(

2) para que ponga la fecha [en columna A] y la hora [en columna B] cuando
pones el nombre [en columna C]...
prueba pegando las siguientes lineas...
en el modulo de codigo de 'esa' hoja [NO en el modulo de codigo
del libro]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
If IsEmpty(Target) Then Target.Offset(, -2).Resize(1, 2).ClearContents:
Exit Sub
Target.Offset(, -2) = Date: Target.Offset(, -1) = Time
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.