função contar linhas de range q tem os dados de outra range

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

função contar linhas de range q tem os dados de outra range

Mensagem por edcronos em Sex Dez 19, 2014 6:47 am

A função conta a quantidade de linhas de uma Range que tem os valores definidos em uma outra range

=Contar_Contem(A5:T19;V2:AE2)
=Contar_Contem("onde procurar" ; " O que procurar")

Código:
   Public Function Contar_Contem(ByVal Range_procu As Range, ByVal range_Valores_Procurados As Range) As Long

    Dim co(), val()
    co = Range_procu.Value2: val = range_Valores_Procurados.Value2
    ctt = 0
    lf = UBound(co, 1): cf = UBound(co, 2): cfv = UBound(val, 2)
    For l = 1 To lf
    GoSub lin
    Next
    Contar_Contem = ctt
    Exit Function
    lin:
    tv = 0
    t = 0
    For v = 1 To cfv
    If val(1, v) <> "" Then a = val(1, v): GoSub lin2 Else tv = tv + 1
    If t = 0 Then Exit For
    Next
    If t = 1 Then ctt = ctt + 1
    Return
    lin2:
    t = 0
    For c = 1 To cf
    If a = co(l, c) Then tn = tn + 1: t = 1: Exit For
    Next
    Return

    End Function


pode ser util para jogos de loterias
ela vai informar em quantos sorteios deu  os numeros que vc escolheu

" O que procurar" só aceita uma linha e desconsidera celulas vazias

não sei se o forum aceita arquivos, ia postar uma planilha de exemplo


edcronos
Iniciante
Iniciante

Mensagens : 1
Data de inscrição : 19/12/2014

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum