Este fórum está sendo desativado

[Mucango]

Preciso de orientação de como conseguir, ou através das funções ou de VBA, a contagem automática dos últimos valores de uma coluna, que atendam a condição de igualdade, por exemplo :

2
3
4
5
6
4
4
4

neste caso, apareceria o valor 3 (pois o último valor na coluna (4), se repete três vezes

Valeu (socorro PARKELESS !!!!!)

[Parkeless]

E aí Mucango!

Tenta essa função:

Código: Selecionar todos

Function UltimosIguais(Intervalo As Range)
Dim i As Long
Dim Ultimovalor

If Intervalo.Rows.Count = 1048576 Then
    UltimosIguais = "Essa função não funciona com colunas inteiras."
    Exit Function
End If

Ultimovalor = Intervalo.Cells(Intervalo.Rows.Count, 1) 'Definir último valor

UltimosIguais = 1 'Número inicial = 1
For i = Intervalo.Rows.Count - 1 To 1 Step -1 'Do fim para o início
    If Intervalo.Cells(i, 1) = Ultimovalor Then 'Se for igual ao último, somar, se não, sair
        UltimosIguais = UltimosIguais + 1
    Else
        Exit Function
    End If
Next i


End Function

[Mucango]

Parkeless, excelente mais uma vez, mas, por favor, só ajusta para eu poder pesquisar a partir de um critério, como você fez nos outros, neste caso, eu selecionaria o número 4 ou qualquer outro à minha escolha !!


Valeu !

[Parkeless]

Mucango,

A função que fiz foi para contar quais números se repetem em sequência, a partir do último valor...

Pode dar um exemplo onde o critério não é o último valor, e o resultado esperado?

[Mucango]

Parkeless, grato mais uma vez por nos emprestar sua genialidade.

Deu certo, tudo certo. Grato.