Codigo de hora se pone en todo los libros

On 15 ago, 17:00, Age wrote:

Tengo el siguiente codigo anidado en un modulo:

Sub TiempoLoco()
Range("d6").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "TiempoLoco"
End Sub
Sub auto_Open()
Call TiempoLoco
End Sub

Pero la hora aparece en todos los libros y en todas las hojas que esten
abiertas, ¿que le puedo cambiar para que no suceda eso?

Gracias

Hola,

¿no sera que lo tienes en el libro de macros personal?

si no es asi, [creo que] te valdria especificar el rango de destino
con todos los 'calificadores' , es decir algo asi:

a) si el libro en que quieres que se ejecute la macro es el que la
contiene (que por lo de auto open (aunque no lo he usado nunca y no
estoy seguro) parece que seria lo logico, puedes hacer sto

ThisWorkbook.Worksheets("Hoja_de_Marras").Range("d6").Formula "=NOW()"

b) si es otro libro, algo asi:

Workbooks("Libro_de_marras").Worksheets("Hoja_de_Marras").Range("d6").Formula
= "=NOW()"

mira a ver que tal

un saludo
Ivan

ya lo modifique de esta forma y aun asi aparce la fecha y hora en las demas
hojas en los demas libros no, pero en las otras hojas si.

Sub TiempoLoco()
ThisWorkbook.Worksheets("BD").Range("d6").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "TiempoLoco"
End Sub

"Ivan" escribió:

On 15 ago, 17:00, Age wrote:
> Tengo el siguiente codigo anidado en un modulo:
>
> Sub TiempoLoco()
> Range("d6").Formula = "=NOW()"
> Application.OnTime Now + TimeValue("00:00:01"), "TiempoLoco"
> End Sub
> Sub auto_Open()
> Call TiempoLoco
> End Sub
>
> Pero la hora aparece en todos los libros y en todas las hojas que esten
> abiertas, ¿que le puedo cambiar para que no suceda eso?
>
> Gracias

Hola,

¿no sera que lo tienes en el libro de macros personal?

si no es asi, [creo que] te valdria especificar el rango de destino
con todos los 'calificadores' , es decir algo asi:

a) si el libro en que quieres que se ejecute la macro es el que la
contiene (que por lo de auto open (aunque no lo he usado nunca y no
estoy seguro) parece que seria lo logico, puedes hacer sto

ThisWorkbook.Worksheets("Hoja_de_Marras").Range("d6").Formula > "=NOW()"

b) si es otro libro, algo asi:

Workbooks("Libro_de_marras").Worksheets("Hoja_de_Marras").Range("d6").Formula
= "=NOW()"

mira a ver que tal

un saludo
Ivan

On 16 ago, 01:18, Age wrote:

ya lo modifique de esta forma y aun asi aparce la fecha y hora en las demas
hojas en los demas libros no, pero en las otras hojas si.

Sub TiempoLoco()
ThisWorkbook.Worksheets("BD").Range("d6").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "TiempoLoco"
End Sub

"Ivan" escribió:



> On 15 ago, 17:00, Age wrote:
> > Tengo el siguiente codigo anidado en un modulo:

> > Sub TiempoLoco()
> > Range("d6").Formula = "=NOW()"
> > Application.OnTime Now + TimeValue("00:00:01"), "TiempoLoco"
> > End Sub
> > Sub auto_Open()
> > Call TiempoLoco
> > End Sub

> > Pero la hora aparece en todos los libros y en todas las hojas que esten
> > abiertas, ¿que le puedo cambiar para que no suceda eso?

> > Gracias

> Hola,

> ¿no sera que lo tienes en el libro de macros personal?

> si no es asi, [creo que] te valdria especificar el rango de destino
> con todos los 'calificadores' , es decir algo asi:

> a) si el libro en que quieres que se ejecute la macro es el que la
> contiene (que por lo de auto open (aunque no lo he usado nunca y no
> estoy seguro) parece que seria lo logico, puedes hacer sto

> ThisWorkbook.Worksheets("Hoja_de_Marras").Range("d6").Formula > > "=NOW()"

> b) si es otro libro, algo asi:

> Workbooks("Libro_de_marras").Worksheets("Hoja_de_Marras").Range("d6").Formu­la
> = "=NOW()"

> mira a ver que tal

> un saludo
> Ivan- Ocultar texto de la cita -

- Mostrar texto de la cita -

hola,

prueba a borrar la celda D6 del resto de las hojas, manualmente creo
que te sera lo mas comodo, si sin muchas con un bucle por todas las
hojas excepto por BD

dado que has introducido una formula en las macros anteriores, esta
sigue estando en cada celda d6 de cada hoja si no la eliminas

prueba a ver que tal

de todas formas no le veo mucho sentido a la macro, si conoces/tienes
la hoja y la celda y va a ser siempre la misma

¿porque no pones simplemente la formiula en la celda? o en su defecto,
y salvo que vaya a estar abierto varios dias y quieras que se
actualice al cambiar de fecha ¿por que no pones directamente?=>

Range("d6").=Now

en cualquier caso, con que introdujeras la formula una sola vez, no
tendrias que introducirla cada vez, pues si no me equivoco, =Now
siempre se va actualizar automaticamente al abrir el libro

no me hagas demasiado y prueba a borrar las formulas del resto de las
hojas

un saludo
Ivan

hola de nuevo,

disculpame, ya he visto el 'motivo' de la macro [parece que
ultimamente solo leo/veo la/s primeras lineas de codigo]

de todaas formas lo de borrar la formula de las otras hojas sigue
siendo valido. En teoria ya solo te la deberia poner en la hoja BD

un saludo