Fredy Ferreira

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!

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?

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 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!

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

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 !

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

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.

Ahhhhh entendi meu caro! assim q chegar em casa vou deixar o original q você postou anteriormente. Mas ta tudo perfeito! Muito obrigado

Poxa amigo, não sei como agradecer, está funcionando lindamente!!!! só quero deixar um adendo e não sei se é a forma correta, mas para replicar para outros bancos coloquei da seguinte maneira: Private Sub Worksheet_Calculate() Dim ac As Range Set ac = Range("J3:J" & Cells(Rows.Count, "J").End(3).Row).Find([E2]) If Not ac Is Nothing Then ac.Offset(, 1).Value = ac.Offset(, 1).Value + [F2] End Sub Private Sub Worksheet_Calculate2() Dim ac As Range Set ac = Range("J4:J" & Cells(Rows.Count, "J").End(3).Row).Find([E2]) If Not ac Is Nothing Then ac.Offset(, 1).Value = ac.Offset(, 1).Value + [F2] End Sub --------------- Esta funcionando mas não sei se é a forma correta Mas de qualquer maneira, estou muito feliz com sua ajuda Muito obrigado!!!

Olá caro Décio, desculpa a demora. Infelizmente não ta somando de forma cumulativa amigo, eu fiz um pequeno vídeo e vou tentar colocar o link aqui pra ficar mais claro minha solicitação. Mas obrigado pelo rápido retorno

Olá senhores programadores!! estou tentando criar uma planilha que vai somando a quantidade de contratos negociados na bolsa de valores em tempo real. Através da ferramenta "real time data", a planilha recebe os contratos negociados em tempo real direto da plataforma profit Essa linha azul é onde chega o preço (linha 2, F2), a partir dai a planilha teria que identificar qual foi o banco e ir somando os valores nesse mesmo banco Por ex: BTG lançou 1000 contratos e depois mais 1000, no caso daria o total 2000 na célula K3. BGC Liquidez negociou vários contratos, a medida que for chegando vai somando no seu total BGC Liquidez (K7) e assim por diante. Que nesse caso teria que usar código em VBA. De um modo bem grosseiro, a lógica seria o seguinte: Se E2 = "BTG" entao ACUMULA F2 em K2 Se E2 = "JP Morgan" entao ACUMULA F2 em K3 Não sei se consegui explicar direitinho mas agradeço todos que colaborarem segue uma planilha em anexo Pasta1.xlsx