Guardar hora permanentemente

On Sat, 19 Apr 2008 01:07:30 -0500, "Héctor Miguel"
wrote:

hola, (...) ???

... no es factible poner la hora manualmente en D48 cuando se ocupe F12
... se trata de una hoja que utilizan varias personas y posiblemente se olvidarian de hacerlo.
... la celda F12... nunca vuelve a quedar desocupada, y me explico.
... una hoja que refleja resultados de una competicion... y una vez completada, es guardada para siempre
en la proxima... se vuelve a coger... plantilla, que no es otra cosa que la hoja en blanco con todas las formulas...

1) debido a la poca informacion y detalles en tu consulta original, Julio "tuvo que" imaginar/suponer/inventar/... algunas eventualidades...
como ya confirmaste, sus "supuestos" quedaron un poquitin "fuera" de TU realidad (y para no seguir "inventando")...

2) seria conveniente si comentas cualquier otro detalle que estes "dejando en el tintero" (p.e.)
- se trata SOLAMENTE de la celda D48 y SOLAMENTE cuando se ocupe la celda F12 -???-
- si se trata de varios "grupos" (o parejas) de celdas entre las columnas D y F -> comenta los rangos exactos
- si necesitas que se actue en 3 hojas del libro... confirma que el libro tiene SOLAMENTE esas 3 hojas -???-
(o comenta cuales son los nombres de las hojas que sean "aplicables" para este procedimiento)
- si hubiera mas "detalles en el tintero"... (creo que) es hora de "sacarlos a la luz" :))

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Gracias nuevamente Hector por tu interes.

Al hacer mi consulta original, pense que lo que comentaba seria
suficiente para entender lo que necesito hacer, que simplemente es que
la hora en que comienza una competicon que es en el momento que se
cumplimenta la celda F12 de cada una de las tres hojas, esa hora quede
registrada e inamovible en la celda D48.

En ralidad solo estan implicadas las celdas F12 y D48 de 3 hojas de un
libro de cuatro hojas.

Las tres hojas del libro, que son identicas una para cada categoria,
donde estan implicadas las celdas F12 y D48 tienen por nombre CTH, CTD
y CTN la cuarta hoja, que es diferente a la otras tres, contiene los
numeros de licencia de cada participante, y que no esta implicada
tiene por nombre LIC.

No se si me olvido de algun detalle, no creo que sea relevante el
decir que la celda F12 unicamente puede contener F, N, 1 o 2 y esto lo
controlo con la "validacion de datos".
saludos,
Qandeal

hola, (...) ???

con los detalles conocidos hasta ahora, copia/pega las siguientes lineas:
=> en el modulo de codigo del libro (ThisWorkbook)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case LCase(Sh.Name)
Case "ctd", "cth", "ctn"
Case Else: Exit Sub
End Select
If IsEmpty(Target) Or Target.Address <> "$F$12" Then Exit Sub
If IsEmpty(Range("d48")) Then Range("d48") = Time
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ la consulta original __

Al hacer mi consulta original, pense que lo que comentaba seria suficiente para entender lo que necesito hacer
que simplemente es que la hora en que comienza una competicon que es en el momento que se cumplimenta la celda F12
de cada una de las tres hojas, esa hora quede registrada e inamovible en la celda D48.

En ralidad solo estan implicadas las celdas F12 y D48 de 3 hojas de un libro de cuatro hojas.

Las tres hojas del libro, que son identicas una para cada categoria, donde estan implicadas las celdas F12 y D48
tienen por nombre CTH, CTD y CTN la cuarta hoja, que es diferente a la otras tres
contiene los numeros de licencia de cada participante, y que no esta implicada tiene por nombre LIC.

No se si me olvido de algun detalle, no creo que sea relevante el decir que la celda F12 unicamente puede contener F, N, 1 o 2
y esto lo controlo con la "validacion de datos".

__ la consulta anterior __

... no es factible poner la hora manualmente en D48 cuando se ocupe F12
... se trata de una hoja que utilizan varias personas y posiblemente se olvidarian de hacerlo.
... la celda F12... nunca vuelve a quedar desocupada, y me explico.
... una hoja que refleja resultados de una competicion... y una vez completada, es guardada para siempre
en la proxima... se vuelve a coger... plantilla, que no es otra cosa que la hoja en blanco con todas las formulas...

1) debido a la poca informacion y detalles en tu consulta original, Julio "tuvo que" imaginar/suponer/inventar/... algunas eventualidades...
como ya confirmaste, sus "supuestos" quedaron un poquitin "fuera" de TU realidad (y para no seguir "inventando")...

2) seria conveniente si comentas cualquier otro detalle que estes "dejando en el tintero" (p.e.)
- se trata SOLAMENTE de la celda D48 y SOLAMENTE cuando se ocupe la celda F12 -???-
- si se trata de varios "grupos" (o parejas) de celdas entre las columnas D y F -> comenta los rangos exactos
- si necesitas que se actue en 3 hojas del libro... confirma que el libro tiene SOLAMENTE esas 3 hojas -???-
(o comenta cuales son los nombres de las hojas que sean "aplicables" para este procedimiento)
- si hubiera mas "detalles en el tintero"... (creo que) es hora de "sacarlos a la luz" :))

si cualquier duda (o informacion adicional)... comentas ?

Hector,

He copiado/pegado tu codigo en "ThisWorkbook", pero al ocupar la celda
F12 no ocurre nada en D48, se queda en blanco.

Mi version de Excel es la 2007, por si esto pudiera ser la causa.


On Sat, 19 Apr 2008 13:49:33 -0500, "Héctor Miguel"
wrote:

hola, (...) ???

con los detalles conocidos hasta ahora, copia/pega las siguientes lineas:
=> en el modulo de codigo del libro (ThisWorkbook)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case LCase(Sh.Name)
Case "ctd", "cth", "ctn"
Case Else: Exit Sub
End Select
If IsEmpty(Target) Or Target.Address <> "$F$12" Then Exit Sub
If IsEmpty(Range("d48")) Then Range("d48") = Time
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ la consulta original __

Al hacer mi consulta original, pense que lo que comentaba seria suficiente para entender lo que necesito hacer
que simplemente es que la hora en que comienza una competicon que es en el momento que se cumplimenta la celda F12
de cada una de las tres hojas, esa hora quede registrada e inamovible en la celda D48.

En ralidad solo estan implicadas las celdas F12 y D48 de 3 hojas de un libro de cuatro hojas.

Las tres hojas del libro, que son identicas una para cada categoria, donde estan implicadas las celdas F12 y D48
tienen por nombre CTH, CTD y CTN la cuarta hoja, que es diferente a la otras tres
contiene los numeros de licencia de cada participante, y que no esta implicada tiene por nombre LIC.

No se si me olvido de algun detalle, no creo que sea relevante el decir que la celda F12 unicamente puede contener F, N, 1 o 2
y esto lo controlo con la "validacion de datos".

__ la consulta anterior __

... no es factible poner la hora manualmente en D48 cuando se ocupe F12
... se trata de una hoja que utilizan varias personas y posiblemente se olvidarian de hacerlo.
... la celda F12... nunca vuelve a quedar desocupada, y me explico.
... una hoja que refleja resultados de una competicion... y una vez completada, es guardada para siempre
en la proxima... se vuelve a coger... plantilla, que no es otra cosa que la hoja en blanco con todas las formulas...

1) debido a la poca informacion y detalles en tu consulta original, Julio "tuvo que" imaginar/suponer/inventar/... algunas eventualidades...
como ya confirmaste, sus "supuestos" quedaron un poquitin "fuera" de TU realidad (y para no seguir "inventando")...

2) seria conveniente si comentas cualquier otro detalle que estes "dejando en el tintero" (p.e.)
- se trata SOLAMENTE de la celda D48 y SOLAMENTE cuando se ocupe la celda F12 -???-
- si se trata de varios "grupos" (o parejas) de celdas entre las columnas D y F -> comenta los rangos exactos
- si necesitas que se actue en 3 hojas del libro... confirma que el libro tiene SOLAMENTE esas 3 hojas -???-
(o comenta cuales son los nombres de las hojas que sean "aplicables" para este procedimiento)
- si hubiera mas "detalles en el tintero"... (creo que) es hora de "sacarlos a la luz" :))

si cualquier duda (o informacion adicional)... comentas ?

saludos,
Qandeal

hola, (...) ???

He copiado/pegado tu codigo en "ThisWorkbook", pero al ocupar la celda F12 no ocurre nada en D48, se queda en blanco.
Mi version de Excel es la 2007, por si esto pudiera ser la causa.

acabo de probar en 2007 sobre un libro de varias hojas, 3 de las cuales (como indicaste) se llaman: "CTD", "CTH" y "CTN"
cuando "se ocupa" la celda F12, se afecta (SOLO si esta vacia) la celda D48 (y solo de esas 3 hojas)

comentas (si hubiera) algun detalle "en el tintero" ?
saludos,
hector.

con los detalles conocidos hasta ahora, copia/pega las siguientes lineas:
=> en el modulo de codigo del libro (ThisWorkbook)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case LCase(Sh.Name)
Case "ctd", "cth", "ctn"
Case Else: Exit Sub
End Select
If IsEmpty(Target) Or Target.Address <> "$F$12" Then Exit Sub
If IsEmpty(Range("d48")) Then Range("d48") = Time
End Sub

Bueno, el otro dia cuando comente que no ocurria nada en D48 cuando se
ocupaba F12 cerre el libro sin guardarlo.

Hoy he vuelto a copiar/pegar tu codigo y como sigue sin ocurrir nada
en D48, he decidido guardar el libro y me salta este aviso.
Las siguientes caracteriastas no se pueden guardar en libros sin
macros
Proyecto de VB
Para guardar un archivo con estas caracteristicas, haga clic en No y,
a continuacion, elija un tipo de archivo habilitado para macros en la
lista Tipo de archivo
Para seguir guardando el archivo como libro sin macros, haga clic en
Si.



On Mon, 21 Apr 2008 12:02:36 -0500, "Héctor Miguel"
wrote:

hola, (...) ???

He copiado/pegado tu codigo en "ThisWorkbook", pero al ocupar la celda F12 no ocurre nada en D48, se queda en blanco.
Mi version de Excel es la 2007, por si esto pudiera ser la causa.

acabo de probar en 2007 sobre un libro de varias hojas, 3 de las cuales (como indicaste) se llaman: "CTD", "CTH" y "CTN"
cuando "se ocupa" la celda F12, se afecta (SOLO si esta vacia) la celda D48 (y solo de esas 3 hojas)

comentas (si hubiera) algun detalle "en el tintero" ?
saludos,
hector.

con los detalles conocidos hasta ahora, copia/pega las siguientes lineas:
=> en el modulo de codigo del libro (ThisWorkbook)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case LCase(Sh.Name)
Case "ctd", "cth", "ctn"
Case Else: Exit Sub
End Select
If IsEmpty(Target) Or Target.Address <> "$F$12" Then Exit Sub
If IsEmpty(Range("d48")) Then Range("d48") = Time
End Sub

saludos,
Qandeal