Ir ao conteúdo
  • Cadastre-se

Dados externos e Automatico


Posts recomendados

Boa Tarde Pessoal,

 

Estou com dois problemas.

 

Tenho uma Planilha que busca dados externos de um site, e retorna os valores na Celula A1 da Aba "DADOS". porém ele atualiza de 1 em 1 minuto que é o tempo minimo que o assitente de importação permite, preciso que seja atualizado de 10 em 10 segundos. 

Na minha outra Aba Tabela, fiz uma macro bem simple que copia 3 celulas da Aba "DADOS" para a uma linha copia os dados e cria uma nova linha.
Esta Macro deve ser executada a cada 10 segundos e utilizei o codigo com  

 

dTime = Now + TimeSerial(0, 0, 10)

Application.OnTime dTime, "RODAR"
 

Ela funciona perfeitamente está segunda parte, porém se abro outro Arquivo do excel ela trava e dá erro. Gostaria de poder deixa-lá rodando apenas nesta planilha, em "segundo Plano".

 

Vou postar o Código apesar de bem simples abaixo:

 

Sub RODAR()
    Sheets("DADOS").Select
    Range("D102").Select
    Range("D102:D104").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TABELA").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
dTime = Now + TimeSerial(0, 0, 10)
    Application.OnTime dTime, "RODAR"
   
End Sub
 
Obrigado desde Já!
Se quiserem posto a planilha para entendimento.

Segue a Planilha em anexo.

Bet Fair 1 minuto.rar

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...