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

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

3 Posts
2 Usuários
0 Reactions
793 Visualizações
(@mortensen)
Posts: 2
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
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/12/2014 11:52 am
(@mortensen)
Posts: 2
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