Criar Funçâo que &q...
 
Notifications
Clear all

Criar Funçâo que "pare de funcionar" automaticamente

3 Posts
2 Usuários
0 Reactions
771 Visualizações
(@mortensen)
Posts: 0
New Member
Topic starter
 

Boa tarde,

Tenho 2 valores, um é varável, que é atualizado via web na célula "A1". E outro é fixo, definido por mim na célula "A2"
Estou tentando criar uma função que compare esses dois valores em uma terceira célula, "A3" .
Se o valor de "A1" for menor do que o valor de "A2", a celula "A3" retorna o valor da "A1"
Se o valor da célula "A1" for maior do que o valor de "A2", a celula "A3" retorna o valor que fixei em na "A2"

Até ai, tudo bem. Consigo fazer...

O que esta me dando problema é fazer com que essa função "pare de funcionar" assim que o valor fixo for atingido.
Ou seja, quando o valor da web atingir o valor fixado por mim, quero que a função não mude mais.
Assim, "A3" permanece com o valor fixado por mim, mesmo que o valor da web volte a cair.

Se ficou confuso, posso tentar explicar melhor...

Obrigado !!

 
Postado : 31/12/2014 11:28 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

mostre o que já fez, pois se está usando Macro, ficou confuso, se está usando formula ou função nativa do excel, você pode colar valores via VBA.

Att

 
Postado : 31/12/2014 11:52 am
(@mortensen)
Posts: 0
New Member
Topic starter
 

Alexandrevba,

Estou tentando criar uma função usando Macro.
Eu fiz o seguinte, mas a parte de colar valor dentro da prórpia função não funcionou

Function F_STOP(Var, Fixo)

If Var < Fixo Then
F_STOP = Var

ElseIf Var >= Fixo Then
F_STOP = Fixo

Range("A2").Select
Selection.Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If

End Function

No caso, "Var" e "Fixo" seriam as celulas A1 e A2 que havia citado anteriormente.

Valeu!

 
Postado : 31/12/2014 12:18 pm