Maxima e Minima em tempo real. em Macro

[Halley]

Em uma unica célula eu recebo valor "X", esse valor, ele é alterado constantemente, as vezes, em um segundo ele é alterado mais de uma vez.

Eu preciso das seguintes informações dessa célula. O valor Maximo e Minimo de uma quantidade de vezes que ele foi alterado automaticamente. EX:

Maximo = Qual é o maior valor entre, o valor atual e as ultimas 30 vezes que esse valor foi alterado?

Minimo = Qual é o menor valor entre, o valor atual e as ultimas 30 vezes que esse valor foi alterado?

Essas informações devem ser informadas enquanto a célula receber os valores.

Eu recebo o valor atual em B2. O valor Maximo deve ficar em A5, e o minimo em B5.

Alguém pode me ajudar?

[lobismano]

Amigo.

Acho que isso pode começar a ajudar.

Public cont As Integer
Public maiorvalor As Integer
Public menorvalor As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Row = 2 And Target.Column = 2 Then

    If cont = 0 Then
        maiorvalor = Target.Value
        menorvalor = Target.Value
        Else
        
            If Target.Value > maiorvalor Then
            maiorvalor = Target.Value
            End If
        
            If Target.Value < menorvalor Then
            menorvalor = Target.Value
            End If
    
    End If
    
    Range("D2").Value = menorvalor
    Range("E2").Value = maiorvalor
    
    cont = cont + 1
    
    If cont = 30 Then
        cont = 0
    End If

End If

End Sub

At.

[Halley]

Olá Lobismano,

Obrigado pela ajuda :D .

estou com dificuldade em entender. pode me ajudar?

1 - simulando: Alterando o valor de (B2(=G2)) através de G2 "seria o mesmo que o link que tenho do programa",

Enquanto a celula B2 não é ativada manualmente com um click (mesmo com as mudanças de valores acontecendo), não a mudanças em máximo e minimo.

Como faço para obter as mudanças sem a necessidade de clicar em cima da celula? Lembrando que os valores é de um link automático.

2 - Quando digito valores tipo "29,50" ele aparece "30" em máximo ou minimo.

3 - Em valores tipo "52350", ele da um bug, e a macro trava.

Tentei arrumar alterando o formato do numero "inicio/ numero." mas não funcionou.

Como devo fazer para ele aceitar esse tipo de numeração?

Editado Janeiro 15, 2013 por Halley

[Halley]

Como devo fazer para ele aceitar esse tipo de numeração?

consegui resolver essa parte. . Troquei o integer por Double. :D

Mas falta ainda a primeira. :mellow:

Como faço para obter as mudanças sem a necessidade de clicar em cima da celula?

Enquanto a célula B2 não é ativada manualmente com um click (mesmo com as mudanças de valores acontecendo dentro da célula), não a mudanças em máximo e minimo.

Alguém pode ajudar?

[lobismano]

Troque:

Worksheet_SelectionChange

por:

Worksheet_Change

At.

[Halley]

Lobismano,

Fiz a alteração, mas não deu certo. Antes para alterar o valor eu dava um click dentro e outro fora. com a alteração sugerida tenho que dar 2 clicks dentro e 1 fora para alterar MAX E MIN..

Preciso muito desse procedimento. Estou pesquisando na net, mas não estou encontrando.

TEM OUTRA DICA? :D

[lobismano]

Amigo,

Qual é o evento que deve ser considerado para determinar o fim do valor entrado?

Ex.: um enter, clique em outra celula, etc.