Visual Basic - modificar codigo visual basic

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

modificar codigo visual basic

Publicado por Andrés (3 intervenciones) el 24/06/2011 22:54:38
Dispongo de un programa en excel, cuyo funcionamiento se basa en:
Mediante una consulta web obtiene un dato, este lo almacena en una hoja en columna uno detrás de otro para posteriormente hacer una serie de operaciones con esa base de datos.
Todo este proceso de obtener el dato y almacenarlo lo hace cada 5 segundos, mi problema es que entonces el excel trabaja de continuo, sin descanso y al seleccionar celdas para sus calculos no me permite ami navegar por las demás diferentes pestañas o celdas.
Mi objetivo es ese, me gustaría saber que me recomiendan para que esto sea posible o como debería hacer el programa.
Tiene la siguiente programación en visual basic (excel) ThisWorkBook:


Private Sub Workbook_Open()
Dim ComienzoSeg As Single
Dim FinSeg As Single
Dim R As Double
R = 0
TIEMPO_ESP_MAX = 4.95 'ESTABLECES EL TIEMPO DE ESPERA EN SEGUNDOS (puede tener coma)
Do While Sheets("Hoja2").Range("G1").Value <> "1"
'
ComienzoSeg = Timer
FinSeg = ComienzoSeg + TIEMPO_ESP_MAX
Do While FinSeg > Timer
DoEvents
TChecq1 = Round(FinSeg - Timer, 0)
If TChecq1 <> TChecq2 Then
TChecq2 = TChecq1
End If
If ComienzoSeg > Timer Then
FinSeg = FinSeg - 24 * 60 * 60
End If
Loop
'AQUI COLOCAS EL CODIGO QUE QUIERES EJECUTAR CADA n SEGUNDOS
Sheets("datos recibidos").Select
Range("C14").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
'AQUI COLOCAS EL CODIGO QUE QUIERES EJECUTAR CADA n SEGUNDOS
Sheets("Hoja2").Select
Range("A8:C8").Select
Selection.Copy
Range("A1").Select
'Hasta que no encuentre una fila vacía...
Do While Not IsEmpty(ActiveCell)
'Pues eso, hasta que no encuentre una fila
'vacía que baje una fila para abajo
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Loop
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder