Ir ao conteúdo
  • Cadastre-se
Kikardo

Dados externos e Automatico

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×