Excel Preenchimento automático de valores entregues pelo RTD (Real Time Data)

Fredy Ferreira · 26 de novembro de 2022

Olá senhores programadores!

Gostaria de montar algo via VBA, que preenchesse as células automaticamente a medida que o tempo for passando, ou seja, a cada 15 min o valor atual é guardado na célula do tempo correspondente. Por ex: Supondo que seja 10:45, e o valor que está em J13 (1,26) deverá ser armazenado automaticamente na célula O22; às 11:00 na célula O23, às 11:15 na O24 e assim sucessivamente até chegar as 12:00 (meio dia paro de operar). Tenho feito isso manualmente usando um despertador e isso atrapalha muito meu rendimento.

Midori · 28 de novembro de 2022

@Fredy Ferreira Veja se estes tópicos ajudam,

https://www.clubedohardware.com.br/forums/topic/1620799-macro-para-rodar-automaticamente-e-salvar-os-dados-do-link-rtd-dos-últimos-5-min/

https://www.clubedohardware.com.br/forums/topic/1606559-excel-copia-e-guarda-x-valores-entregues-pelo-rtd-real-time-data/

Você pode colocar uma condição no evento para atualizar só quando chegar no horário da coluna H.

Fredy Ferreira · 28 de novembro de 2022

2 horas atrás, Midori disse:

@Fredy Ferreira Veja se estes tópicos ajudam,

https://www.clubedohardware.com.br/forums/topic/1620799-macro-para-rodar-automaticamente-e-salvar-os-dados-do-link-rtd-dos-últimos-5-min/

https://www.clubedohardware.com.br/forums/topic/1606559-excel-copia-e-guarda-x-valores-entregues-pelo-rtd-real-time-data/

Você pode colocar uma condição no evento para atualizar só quando chegar no horário da coluna H.

Olá @Midori!!

Já vi os dois tópicos de cabo a rabo, foi baseado neles que quase consigo solucionar meu problema. Quero que ele grave o valor a cada 15 min, ele fez isso, mas só para quando o valor da célula [I13] muda, então fica imprimindo infinitamente, assim bagunça o gráfico. Confesso que não consigo consertar esse código. Obrigado pelo retorno! Segue:

Public Sub Cotacao()
Dim AreaRTD     As Range
Dim UltLinha    As Long
    
    Set AreaRTD = [I13]
    
            If Range("I11").Value = "Stop" Then
                   Exit Sub
            End If
            
       UltLinha = [P14].CurrentRegion.Rows.Count + 1
       [P14].Cells(UltLinha).Value = AreaRTD.Value
        
        Call IniciarCotacao
End Sub


Sub IniciarCotacao()
        Range("I11").Value = "Coletando..."
        Call Application.OnTime(TimeValue("09:03:00"), "Cotacao")
        Call Application.OnTime(TimeValue("09:15:00"), "Cotacao")
        Call Application.OnTime(TimeValue("09:30:00"), "Cotacao")
        Call Application.OnTime(TimeValue("09:45:00"), "Cotacao")
        Call Application.OnTime(TimeValue("10:00:00"), "Cotacao")
        Call Application.OnTime(TimeValue("10:15:00"), "Cotacao")
        Call Application.OnTime(TimeValue("10:30:00"), "Cotacao")
        Call Application.OnTime(TimeValue("10:45:00"), "Cotacao")
        Call Application.OnTime(TimeValue("11:00:00"), "Cotacao")
        Call Application.OnTime(TimeValue("11:15:00"), "Cotacao")
        Call Application.OnTime(TimeValue("11:30:00"), "Cotacao")
        Call Application.OnTime(TimeValue("11:45:00"), "Cotacao")
        Call Application.OnTime(TimeValue("12:00:00"), "Cotacao")
End Sub

Sub PararCotacao()
        Range("I11").Value = "Stop"
End Sub

Midori · 28 de novembro de 2022

@Fredy Ferreira Não precisa de OnTime. Como a planilha já tem os horários que devem ser atualizados, é só fazer a busca por esses horário a cada atualização do RTD (normalmente é a cada 2s),

Private Sub Worksheet_Calculate()
    Call AtualizaCotacao([I13].Value, Format(Now, "HH:MM"))
End Sub

Sub AtualizaCotacao(Cotacao As Double, HoraAtual As String)
    Dim ProcuraHora As Range
    
    Set ProcuraHora = [O15:O27].Find( _
        What:=HoraAtual, LookIn:=xlValues, LookAt:=xlWhole)
        
    If Not ProcuraHora Is Nothing Then
        If ProcuraHora(1, 2) = "" Then
            ProcuraHora(1, 2) = Cotacao
        End If
    End If
End Sub

Assim o evento Calculate vai chamar o procedimento AtualizaCotacao a cada atualização da cotação na planilha. E fará o registro caso ainda não tenha nenhum valor.

Fredy Ferreira · 28 de novembro de 2022

3 horas atrás, Midori disse:
@Fredy Ferreira Não precisa de OnTime. Como a planilha já tem os horários que devem ser atualizados, é só fazer a busca por esses horário a cada atualização do RTD (normalmente é a cada 2s),
Private Sub Worksheet_Calculate()
    Call AtualizaCotacao([I13].Value, Format(Now, "HH:MM"))
End Sub

Sub AtualizaCotacao(Cotacao As Double, HoraAtual As String)
    Dim ProcuraHora As Range
    
    Set ProcuraHora = [O15:O27].Find( _
        What:=HoraAtual, LookIn:=xlValues, LookAt:=xlWhole)
        
    If Not ProcuraHora Is Nothing Then
        If ProcuraHora(1, 2) = "" Then
            ProcuraHora(1, 2) = Cotacao
        End If
    End If
End Sub
Assim o evento Calculate vai chamar o procedimento AtualizaCotacao a cada atualização da cotação na planilha. E fará o registro caso ainda não tenha nenhum valor.

Caro @Midori, não sei como agradecer. Ficou perfeito!

Passei semanas remendando códigos e não conseguia. Em um intervalo curtíssimo de tempo, você resolve meu problema.

Muito Obrigado !

Fredy Ferreira · 29 de novembro de 2022

22 horas atrás, Midori disse:
@Fredy Ferreira Não precisa de OnTime. Como a planilha já tem os horários que devem ser atualizados, é só fazer a busca por esses horário a cada atualização do RTD (normalmente é a cada 2s),
Private Sub Worksheet_Calculate()
    Call AtualizaCotacao([I13].Value, Format(Now, "HH:MM"))
End Sub

Sub AtualizaCotacao(Cotacao As Double, HoraAtual As String)
    Dim ProcuraHora As Range
    
    Set ProcuraHora = [O15:O27].Find( _
        What:=HoraAtual, LookIn:=xlValues, LookAt:=xlWhole)
        
    If Not ProcuraHora Is Nothing Then
        If ProcuraHora(1, 2) = "" Then
            ProcuraHora(1, 2) = Cotacao
        End If
    End If
End Sub
Assim o evento Calculate vai chamar o procedimento AtualizaCotacao a cada atualização da cotação na planilha. E fará o registro caso ainda não tenha nenhum valor.

Olá @Midori

Hoje fui abrir minha planilha mas o código não está funcionando, não faço ideia do que aconteceu!

Não está capturando os dados, não sei o que fiz de errado

Midori · 29 de novembro de 2022

@Fredy Ferreira O Calculate só é ativado quando algum link entre a planilha e a plataforma é atualizado. Caso não tenha alteração no preço nesses horários, não haverá evento. Se for esse o motivo é melhor usar OnTime.

Fredy Ferreira · 29 de novembro de 2022

@Midori Eu reiniciei e voltou a funcionar :-) Ta rodando normal! Tomara que amanha funcione normalmente, mas ainda sim fiz uma boa operação no dólar. Obrigado mais uma vez!

Fredy Ferreira · 26 de outubro de 2023

Olá @Midori, não sei se posso reabrir o tópico, caso não peço desculpas

Não entendo porque minha planilha não executa o código automaticamente, ela só começa gravar os dados a partir das 10:00

pra fazer ela executar antes disso eu preciso clicar em exibir código e executar no botãozinho "play (executar Sub/UseForm)".

se eu somente abrir a planilha, só começa gravar a partir das 10:00 como mostra a imagem. Pode ajudar ?

O código continua o mesmo.

Midori · 26 de outubro de 2023

46 minutos atrás, Fredy Ferreira disse:

se eu somente abrir a planilha, só começa gravar a partir das 10:00 como mostra a imagem. Pode ajudar ?

O evento que ativa a macro é o Calculate que acontece quando as fórmulas da planilha são atualizadas, verifique o horário que começa a atualização da célula I13. O range da busca é N15:N27, caso tenha mudado tem que editar a macro.

Fredy Ferreira · 27 de outubro de 2023

22 horas atrás, Midori disse:

O evento que ativa a macro é o Calculate que acontece quando as fórmulas da planilha são atualizadas, verifique o horário que começa a atualização da célula I13. O range da busca é N15:N27, caso tenha mudado tem que editar a macro.

Aparentemente tudo normal com código, está ai a imagem completa

pra que ela funcione 100% eu preciso clicar no botão executar como mostra na imagem, caso contrário, só começa registrar a partir das 10:00.

Será que não seria problema na formatação do horário?

Midori · 27 de outubro de 2023

O mercado abre às 10h, isso não está relacionado com o horário dos registros na planilha? Como comentei, a atualização que ativa o evento Calculate e chama a Sub da AtualizaCotacao. Então veja se antes desse horário acontece alguma atualização nas fórmulas da planilha.

Fredy Ferreira · 27 de outubro de 2023

O mercado futuro, mini dólar, abre as 9:00 em ponto. Assim que abre já começa a oscilação de preço. Hummm, mas agora entendi, vou ficar de olho pra ver se realmente acontece a oscilação de preço na planilha. Pode ser que isso ocorre só depois que o mercado a vista abre (10:00h). Agora só segunda-feira pra conferir, eu volto pra dar um feedback. Obrigado pela dica!