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á

comecei a função change mas não consegui fazer com que a função entenda que somente se a celula 1 coluna 127 tendo o numero 1 executar a macro , por favor mandei um anexo do excell com a imagem da macro obrigado amigos

Minoso na pratica como coloco esta função na minha macro ja pronta ? preciso que esta função entenda que somente a celula A1 vai ser monitorada liga desliga a macro tipo 1 liga 0 desliga. desde já agradeço sua atenção...

Boa noite pessoal Gostaria de uma ajuda dos colegas, tenho uma planilha do Excel alimentada por link DDE, onde os valores das células mudam automaticamente, criei uma macro para fazer uma função e gostaria de saber se tem como automatiza-la , ao invés de ter que apertar um botão qiuando a condição acontece a macro fazer a função automaticamente ,exemplo: quando aparecer o numero "1" na célula A1 execute a macro e quando aparecer o numero 1 na A2 execute outra macro preciso que ela faça isso o dia inteiro das 9 às 17 hs quando aparecer o numero 1 na A1 ou na A2. não sei se consegui ser claro. estou postando uma planilha Excel com a minha necessidade.