smartrading

osvaldo como temporizar ? como faremos ?

oi osvaldo amanha farei o teste e nos falamos , obrigado por enquanto e até amanha... braços

oi osvaldo tudo bem ? por tempo ? posso testar , tem como multiplicar essa sua formula exemplo /; deixar uma condição para 20 imputs e mais 4 no total de 5 para ajustes , exemplo: um com 20 imputs outro vou deixar com 30 outro com 100 e por ai vai.. porque ai posso ajustar compras para um tempo rápido e outros para imputs maiores ... tentei multiplicar a configuração mas nao consegui.

boa noite Osvaldo, fiz o teste com a nova programação, ela realmente capta os inputs do dde, são +/- 5 por segundo, horas mais horas menos, mas continuo com o problema, exemplo: a condição 1 aparece e permanece por 5 minutos, a macro deveria executar uma unica vez, mas desta forma programada mesmo que ajustada para leitura a cada minuto compraria 5 vezes no lugar de uma , e por muitas vezes a mesma deixa oportunidades passarem, estamos quase lá, desde já agradeço sua atenção, você é fera

Osvaldo boa noite, fiz os testes mas o resultado foi ficar rodando sem parar segue um link para melhor entendimento, https://www.youtube.com/watch?v=A23RiLK7ZQQ desde ja agradeço.

Osvaldo boa noite, o pregão já esta fechado mas fiz a alteração e deu certo com testes manuais ,amanha posto o resultado,e desde já deixo meus parabéns pelo seu conhecimento e sua entrega a ajudar a todos por aqui.

osvaldo estou tentando enviar os arquivos, vej se funcionou https://www.sendspace.com/file/oivce7 isso osvldo ?

bom dia osvaldo,quero rodar a macro compra1 , quero rodar a macro venda1 ,se a1 for =1 execute macro compra1 se a1 for =0 execute macro venda1 quero comprar e vender de acordo com a celula a1 mas como falei esta celula é alimentada por link DDE , sofre açao por outras celulas . como faço ? onde fica este arquivo para eu colocar aqui ????

Sub compra1() ' Range("F13:I13").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("F11:I11").Select Selection.Copy Range("F13").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub Sub venda1() ' Range("J13:L13").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("J11:L11").Select Selection.Copy Range("J13").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub Sub Inicio() Cells(1, 1).Select End Sub

Oi osvaldo , primeiro teste funcionou perfeito, no segundo com o nome da macro nao, parece dar algum erro estou enviando a planillha me passe seu email osvaldo. desde ja lhe agradeço. Private Sub Worksheet_Calculate() If [A1] = 1 Then compra1 End Sub

pessoal preciso de uma programação para executar uma macro a partir de uma celula exemplo A1 caso a celula A1 sera alterada execute a macro x , detalhe, para alterar esta celula A1 eu tenho um link dde com uma formula , ou seja nunca dou enter nem del nem tab na celula , ela é alterada atraves de outra celula. exemplo A5 a celula A5 manda um numero para a A1 o que preciso ; quando o numero 1 aparecer na celular A1 execute a macro. alguem pode me ajudar ?

oi Kaleo , desde já lhe agradeço a força que tem me dado,vou colocar a planilha de forma simplificada e com comentarios na celula e no corpo da planilha , acho que tenho que mandar sem habilitar a macro ai você habilita ai ok , vamos ver como consigo te enviar.

então Kaleo Portanto, se você precisa rodar a macro Compra1 ou Venda1 pelo valor da celula DX1 ou DX2 que tem formulá, não rola desta forma. exatamente isso que preciso pelo valor da celula. se a celula alterar execute a macro... tem uma forma para isso ?

Private Sub Worksheet_Change(ByVal faixa As Range) Dim monitorar As Range Set monitorar = Range("dx1") If Not Intersect(faixa, monitorar) Is Nothing Then Call compra1 End If End Sub Private Sub Worksheet_Change(ByVal faixa As Range) Dim monitorar As Range Set monitorar = Range("dx2") If Not Intersect(faixa, monitorar) Is Nothing Then Call venda1 End If End Sub oi Kaleo , quando eu coloco dentro da celula dx1 o seguinte pedido =se(a1>b1;1;"") e dou enter para mudar de celula a macro executa 1 vez , mas depois a configuração para de reconhecer o numero 1 que alterna entre 1 e celula vazia , tipo umas 5 vezes por minuto e a configuração não reconhece mudança na celula, percebi que se for uma mudança manual e der enter ela executa a macro mas com a mudança automatica na celula não esta rodando, outra coisa a mesma função vou utilizar na dx2 na linha de baixo e condição igual venda1 coloquei acima a configuração que me passou , volta uma mensagem dizendo "nome repetido encontrado worksheet_change"... quase lá... obrigado pela atenção

Sub compra1() ' compra1 Macro ' ' Range("DS21:DX21").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("DS16:DX16").Select Selection.Copy Range("DS21").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("DS21").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=R11C128-RC[5]" Range("DV18:DX19").Select End Sub esta é a macro e esta no modelo9 como faço para colocar a função indicada ????? detalhe a celula a monitorar é a celula DX1 desde já lhe agradeço a ajuda. estamos chegando lá