Eliminar parpadeo

Hola Ricard,

Creo que te has perdido tanto alguno de mis comentarios como la nota de
Hector Miguel en respuesta a tu consulta en el hilo anterior. Prueba hacer
lo siguiente:

1) Crea una formula denominada Timer
=RESIDUO(SEGUNDO(HOY());2)=1

2) Selecciona el rango D10:DN (donde N es el numero de la ultima fila de tu
rango)

3) Aplica Formato Condional
=Timer*(D10<0)

4) En ThisWorkbook pon el codigo:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
DetenerParpadeo
End Sub

Private Sub Workbook_Open()
IniciarParpadeo
End Sub

5) En un modulo estandar pon el codigo

Dim dtSiguiente As Date

Private Sub Worksheet_Calculate()
IniciarParpadeo
End Sub

Sub IniciarParpadeo()
dtSiguiente = Now + TimeValue("00:00:01")
Application.Calculate
Application.OnTime dtSiguiente, "IniciarParpadeo"
End Sub

Sub DetenerParpadeo()
Application.OnTime dtSiguiente, "IniciarParpadeo", schedule:=False
End Sub

Aprovecho para preguntar que diferencia hay entre ThisWorkbook y Modulo
podriamos decir que ThisWorkbook es la clase principal.

Bueno, pongamos que el modulo de ThisWorkbook es un modulo de clase (o sea
perteneciente a un objeto) como lo son los modulos de hojas, de formularios
y otros modulos de clase definidos por el usuario, mientras que un modulo
estandar es un modulo generico que no pertenece a ningun objeto y esta
disponible para todos los demas modulos sin necesidad de calificarlo
expresamente. Espero no haberte liado aun mas.

Saludos,
KL

Hola de nuevo,

acabo de darme cuenta de que al copiar y pegar el codigo se me habia colado
un procedimiento que tu habias anadido, pero que no es necesario y deberia
eliminarse:

Private Sub Worksheet_Calculate()
IniciarParpadeo
End Sub

Saludos,
KL


"KL" wrote in message
news:

Hola Ricard,

Creo que te has perdido tanto alguno de mis comentarios como la nota de
Hector Miguel en respuesta a tu consulta en el hilo anterior. Prueba hacer
lo siguiente:

1) Crea una formula denominada Timer
=RESIDUO(SEGUNDO(HOY());2)=1

2) Selecciona el rango D10:DN (donde N es el numero de la ultima fila de
tu rango)

3) Aplica Formato Condional
=Timer*(D10<0)

4) En ThisWorkbook pon el codigo:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
DetenerParpadeo
End Sub

Private Sub Workbook_Open()
IniciarParpadeo
End Sub

5) En un modulo estandar pon el codigo

Dim dtSiguiente As Date

Private Sub Worksheet_Calculate()
IniciarParpadeo
End Sub

Sub IniciarParpadeo()
dtSiguiente = Now + TimeValue("00:00:01")
Application.Calculate
Application.OnTime dtSiguiente, "IniciarParpadeo"
End Sub

Sub DetenerParpadeo()
Application.OnTime dtSiguiente, "IniciarParpadeo", schedule:=False
End Sub

Aprovecho para preguntar que diferencia hay entre ThisWorkbook y Modulo
podriamos decir que ThisWorkbook es la clase principal.

Bueno, pongamos que el modulo de ThisWorkbook es un modulo de clase (o sea
perteneciente a un objeto) como lo son los modulos de hojas, de
formularios y otros modulos de clase definidos por el usuario, mientras
que un modulo estandar es un modulo generico que no pertenece a ningun
objeto y esta disponible para todos los demas modulos sin necesidad de
calificarlo expresamente. Espero no haberte liado aun mas.

Saludos,
KL

Es eso valido para mi?

Estoy generando un serie de Hojas mediante código, partiendo de una
tabla de access, y en las que solo hay texto, simplemente se ve como va
añadiendo el texto y dando formato a la hoja, pero en las que llevan
imagenes, es un rollo, cada cambio que hace en una celda, parpadeo al
canto.

Seria posible, ocultar la hoja mientras se actualiza?

gracias