temporizador para formulario

29/04/2005 - 18:12 por Daniel | Informe spam
he creado un Userform el cual esta obteniendo datos de a traves de una
apliacion dde.
necesito que estos datos puedan refrescarse cada ciierto tiempo, pero no
tengo ningun temporiizador para hacerlo. estoy escribiendo los datos en un
label1,2 etc.
como puedo hacerlo?

otra onsulta es que en word y exel y en cualquier aplicacion exiistenn
teclas que se me duplican o no se esriben, y debo precciionar variias veces
las teclas para hacerlas funciionnar . Me paasa mas seguido con la C, I, R, U
a que se puede deber?
Les agradezo su tiiemmpo
 

Leer las respuestas

#1 KL
30/04/2005 - 01:08 | Informe spam
Hola Daniel,

1) Mira a ver si te vale el codigo siguiente que es una adaptacion del
codigo creado por Fernando Arroyo (ejemplo aqui:
http://www.excelsp.com/faqs01.htm#faqs01_15 ). La 1a parte del codigo que te
pongo a continuacion debra ir al modilo de ThisWorkbook (EsteLibro) y la 2a
parte a un modulo estandar (que no sea de libro, hoja o formulario). He
asumido que el formulario se llama UserForm1 y que el intervalo de tiempo
entre las actualizaciones es de 10 min., si no es asi cambialo en el codigo.

2) No tienes por que explicar que letras te dan mas problemas - se lee
perfectamente en tu mensaje ;-). A mi me paso alguna vez cuando derrame una
Pepsi sobre el teclado (se me hundian las teclas y quedaban clavadas) - ?no
sera esto?

Saludos,
KL

'--Modulo ThisWorkbook
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
DesprogramarActualizacion
End Sub

Private Sub Workbook_Open()
ProgramarActualizacion
End Sub
'--Modulo ThisWorkbook

'--Modulo1
Dim dtSiguiente As Date

Sub ProgramarActualizacion()
dtSiguiente = Now + TimeValue("00:10:00")
Call ActualizarDatos
Application.OnTime dtSiguiente, _
"ProgramarActualizacion"
End Sub

Sub DesprogramarActualizacion()
Application.OnTime dtSiguiente, _
"ProgramarActualizacion", schedule:=False
End Sub

Sub ActualizarDatos()
UserForm1.Show
End Sub
'--Modulo1

Preguntas similares