Página 1 de 1
Contagem dos últimos valores em uma coluna iguais
Enviado: 14 Dez 2015 às 11:03
por 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 !!!!!)
Contagem dos últimos valores em uma coluna iguais
Enviado: 14 Dez 2015 às 11:16
por Parkeless
E aí Mucango!
Tenta essa função:
Código: Selecionar todosFunction 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
Contagem dos últimos valores em uma coluna iguais
Enviado: 14 Dez 2015 às 11:31
por 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 !
Contagem dos últimos valores em uma coluna iguais
Enviado: 14 Dez 2015 às 12:34
por 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?
Contagem dos últimos valores em uma coluna iguais
Enviado: 14 Dez 2015 às 12:57
por Mucango
Parkeless, grato mais uma vez por nos emprestar sua genialidade.
Deu certo, tudo certo. Grato.