Notifications
Clear all

Fixar maior e menor valor em outra célula

9 Posts
4 Usuários
0 Reactions
1,723 Visualizações
(@exceleigo)
Posts: 17
Active Member
Topic starter
 

Nobres,

Tenho um linkDDE e um valor que fica variando numa determinada célula, ora este valor está positivo ora negativo. Está na célula O11. Como eu faço para que na célula P13 fique fixo o maior valor de O11 até aquele momento e na célula Q13 o menor valor de O11 até aquele momento ?

Muito grato

 
Postado : 29/12/2016 7:59 am
(@scalus)
Posts: 21
Eminent Member
 

Prezado,

Só usar a função = MÁXIMO E =MINÍMO.

Se puder postar a planilha seria de grande valia.

 
Postado : 29/12/2016 1:12 pm
(@exceleigo)
Posts: 17
Active Member
Topic starter
 

Grato Scalus, mas a planilha não tem nada, só a célula referida na minha questão, que fica variando.

Sou leigo mesmo, como seria o uso máximo e mínimo ?

 
Postado : 29/12/2016 1:26 pm
(@exceleigo)
Posts: 17
Active Member
Topic starter
 

Pelo que li agora no google o máximo e mínimo traz o valor máximo de mínimo de uma sequencia de células, uma tabela por exemplo.

No meu caso somente 1 célula fica variando.

 
Postado : 29/12/2016 1:29 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Abra a planilha

Alt + F 11

Cole o codigo abaixo

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Valor As Currency

Valor = Range("O11").Value


If Range("P13").Value < Valor Then

Range("P13").Value = Valor

End If

If Range("O13").Value > Valor Then
Range("O13").Value = Valor
End If



End Sub

Se nao conseguir disponibilize o arquivo

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 29/12/2016 4:07 pm
DJunqueira
(@djunqueira)
Posts: 772
Prominent Member
 

Esse seu link é p/ acompanhamento de ações?
Vc só acompanha uma ação?
Geralmente esses links tb fornecem a mínima e a máxima do dia.

Se sua dúvida foi respondida marque o tópico como RESOLVIDO usando o botão com marca verde.

 
Postado : 29/12/2016 5:03 pm
(@exceleigo)
Posts: 17
Active Member
Topic starter
 

Mprudencio, deu certo não.

Eu tenho uma macro aqui que é o seguinte:

Em Plan1:

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  Application.ScreenUpdating = False
    If Not Application.Intersect(Target, Range("M4:M5")) Is Nothing Then
            Call AleVBA
    Else: Exit Sub
    End If
    Application.EnableEvents = True
  Application.ScreenUpdating = True
End Sub

Em Módulo1:

Sub AleVBA()

'Application.ScreenUpdating = False
  Dim i, LastRow
  LastRow = Range("A" & Rows.Count).End(xlUp).Row
    For i = 4 To 5
        If Cells(i, "M").Value <> "" Then
            Cells(i, "M").Copy
            Range("S" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
            Cells(i, "M").ClearContents
        End If
    Next
  Application.CutCopyMode = False
'Application.ScreenUpdating = True
End Sub

Quando eu clico em EXECUTAR ela transfere o valor de M4 e M5 para S2 e S3. Mas não é isso que eu preciso.

O que preciso é que a macro fique monitorando somente 1 célula, digamos M4. Esta célula fica variando conforme linkDDE. Daí a cada 5 segundos a macro tem que escrever em duas outras células, pode ser S2 e S3, o maior valor positivo de M4 é gravado em S2 e o maior valor negativo de M4 gravado em S3.

Por exemplo: digamos que M4 está com valor 45, S2 registra este valor 45, S3 ainda não tem nada. 5 segundos depois M4 está em 39, S2 não muda pois 39 não é maior que 45. Depois M4 vai para 47 aí sim S2 grava 47 pois foi maior que o último 45.

Aí digamos que M4 está em -12, agora S3 é quem registra este primeiro valor negativo. Aí digamos que M4 está em -8, S3 não faz nada. Depois M4 está em -18 aí sim S3 grava -18 pois é um valor negativo maior que o último.

E fica nessa sacanagem o tempo todo.

Alguém modifica a macro pra fazer desta forma ? Grato

 
Postado : 02/01/2017 8:17 am
(@mprudencio)
Posts: 2749
Famed Member
 

Como eu disse disponibilize seu arquivo.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 02/01/2017 2:23 pm
(@exceleigo)
Posts: 17
Active Member
Topic starter
 

Não há nada no arquivo Mprudencio, tô começando a planilha do zero, as posições que eu citei foi só para manter o que consta na macro que eu postei. Mas pode monitorar A1 e registrar em A2 e A3 se for o caso. Daí em A1 eu posso colar o linkDDE do dado a ser monitorado.

Grato

 
Postado : 02/01/2017 2:46 pm