hudsonsaldanha

SEGUE O COD. ABAIXO Sub Robo() If Planilha2.Range("E16") = "COMPRA" Then If Planilha2.Range("F8") = Planilha2.Range("J8") Then Planilha2.Range("G2") = Planilha2.Range("E31") Planilha2.Range("H2") = Planilha2.Range("H16") If Planilha2.Range("G2") > Planilha2.Range("G16") And Planilha2.Range("G2") < Planilha2.Range("H16") Then Planilha2.Range("C2") = "OK" Planilha2.Range("L2") = "OK" Planilha2.Range("C2") = "FALSE" Planilha2.Range("L2") = "FALSE" End If 'STOP If Planilha2.Range("F8") > Planilha2.Range("J8") Then If Planilha2.Range("C31") <= Planilha2.Range("G16") Then Planilha2.Range("H2") = Planilha2.Range("D31") Planilha2.Range("L2") = "OK" Planilha2.Range("L2") = "C" Planilha2.Range("C2") = "FALSE" Planilha2.Range("L2") = "FALSE" 'SE TOMOU STOP ESPERA 5MIM Application.OnTime Now + TimeValue("00:00:30"), "Robo" End If End If End If Application.OnTime Now + TimeValue("00:00:01"), "Robo" End Sub

Preciso executar alguns eventos, um a cada 1 segundo, um a cada 1 minuto e um a cada 5 minutos... e possível fazer usando 3 "Application.OnTime"? Tentei de varias formas mais não consegui!

Estou iniciando pelo "start" mesmo, não estou conseguindo encontrar o problema. quando seguro o "F8" a macro roda normal, quando solto ela para. E possível que os gráficos interfere no funcionamento da macro? tenho 12 gráficos na tela! Se possível entra em contato comigo que te mando a planilha. [email protected]

Agora estou com outro problema, a "Sub tempo()" só esta rodando se eu estiver com a planilha2 (onde ela executa as operações) ativa, se eu estiver em outra aba ela não roda e por consequência não atualiza os gráficos.

@Midori Perfeito, isso resolve porque assim eu crio uma planilha com banco de dados e processamento e não outro so exibo os graficos! Por acaso você faz programação em Python se sim, entre com contato comigo tenho um trabalho pra ser feito.

@Midori Funcionou perfeitamente, resolveu meu problema muito obrigado!!! Não sabia que não dava pra usar dois comando On timer ao mesmo tempo. Uma duvida, o Excel fica processando o cod. a cada segundo então se eu tentar editar uma célula ou altera qualquer coisa na planilha ele para a contagem... e assim mesmo?e normal?

Ola pessoal tudo bom!!!! Estou com um problema em minha que acredito ser em minha macro, pois quando abro ela(planilha com a macro) sozinha no pc ela funciona porém fica como se tivesse processando o tempo todo e não da para editar ou usa-la, e se abrir outra planilha ou se outra planilha ja estiver aberta quando eu abro ela(planilha com a macro) ela não roda e as vezes roda parcialmente. Espero que possam me ajudar! segue abaixo o código: Sub periodopregão() If Hour(Now) > 18 Then Application.OnTime Now + TimeValue("08:00:00"), "periodopregão" End If If Hour(Now) < 8 Then Application.OnTime Now + TimeValue("00:00:30"), "periodopregão" End If If Hour(Now) > 9 And Hour(Now) < 18 Then Application.OnTime Now + TimeValue("00:00:30"), "start" End If End Sub Sub start() Workbooks("mont carlo_wiener(1).xlsm").Worksheets("Planilha2").Activate If Planilha2.Range("g3").Value = "Normal" Then Application.OnTime Now + TimeValue("00:00:01"), "cron" Application.OnTime Now + TimeValue("00:00:30"), "inserçãodados" Application.OnTime Now + TimeValue("00:00:01"), "inserçãodados2" End If If Planilha2.Range("g3").Value <> "Normal" Then periodopregão End If End Sub Sub inserçãodados() If Planilha2.Range("b3").Value <> Planilha2.Range("b4").Value Then Planilha2.Range("b4:g141").Value = Planilha2.Range("b3:g140").Value Planilha2.Range("c3").Value = Planilha2.Range("f4").Value Planilha2.Range("d3").Value = Planilha2.Range("f4").Value Planilha2.Range("e3").Value = Planilha2.Range("f4").Value Application.OnTime Now + TimeValue("00:00:30"), "inserçãodados" End If End Sub Sub inserçãodados2() If Planilha2.Range("b3").Value <> Planilha2.Range("b4").Value Then Planilha2.Range("AL4:AN141").Value = Planilha2.Range("AL3:AN140").Value Application.OnTime Now + TimeValue("00:00:01"), "inserçãodados2" End If End Sub Sub cron() If Planilha2.Range("g3").Value = "Normal" Then Planilha2.Range("b3").Value = Now Application.OnTime Now + TimeValue("00:00:01"), "cron" Else periodopregão End If End Sub

Ainda estou com problemas, Eu recebo dados de uma plataforma automaticamente pro excel, então preciso formar um grafico com os dados que recebo. Parecido com esse. porém, no meu caso seria assim: O que eu estou tentando fazer e, toda vez que alterar um valor de ("A3:Q3") a celula "A3" recebe a hora atual "Now", e fazer com que os valores de ("A4:Q4") sejam igual a ("A3:Q3")... e assim formando a base de dados com ate 100 linhas por Ex. Assim criei a variavel linha... Eu tentei gravar uma macro copiando e colando, deu certo porém o foco da minha tela acompanha o que esta sendo copiado e colado, e entao na da pra mim ver o grafico. Se poderem me ajudar fico muito agradecido! Private Sub Worksheet_Change(ByVal Target As Range) 'A minha intenção e que toda vez que alguma das celulas ("a3:q3") for alterada a hora seja inserida na celula "A3" 'E toda vez que um valor das celulas ("a3:q3") for alterada chame a Inserçãodedados If Intersect(Target, Me.Range("A3:Q3")) Is Nothing Then Exit Sub Application.EnableEvents = False Call nsersaodados On Error GoTo Finalize Planilha3.Range("A3").Value = Now End If Finalize: Application.EnableEvents = True End Sub Sub insersaodados() If Planilha3.Range("A3:Q3").Select <> Planilha3.Range("A4:Q4") Then 'cod inserção de dados de 100 linhas, assim que completar 100 linhas ele inicia novamente linha = Range("A3").End(xlDown).Row + 1 Planilha3.Range("A" & linha & ":Q" & linha).Value = Planilha3.Range("A3,Q3").Value End If End Sub adicionado 4 minutos depois Se poder entrar em contato, [email protected]

Galera onde esta o erro desse cod.? Sub insersaodados() If Planilha3.Range("A3").Value <> Planilha3.Range("A4").Value Then 'cod inserção de dados linha = Range("A3").End(xlDown).Row + 1 Planilha3.Range("A" & linha : "Q" & linha).Value = Planilha3.Range("A3:Q3").Value Application.OnTime Now + TimeValue("00:00:01"), "insersaodados" End If End Sub