uma função que tinha feito
- Código: Selecionar todos
Function Ed_NunAusente(ByVal Rang As Range, ByVal Ocorrencia As Long, ByVal Menor_Valor As Long, ByVal Maior_Valor As Long) As Long
reg1 = Rang.Value2
Lc1 = UBound(reg1, 1): Cc1 = UBound(reg1, 2)
ocr = 0
For V = Menor_Valor To Maior_Valor
TtL = 0:
For L = 1 To Lc1
For c = 1 To Cc1
If reg1(L, c) = V Then TtL = 1: Exit For
Next:
Next
If TtL = 0 Then ocr = ocr + 1
If ocr = Ocorrencia And TtL = 0 Then Ed_NunAusente= V: Exit Function
Next
End Function
menor e maior funciona como filtro,
se me animar monto sem isso e mais otimizado
range=
1 - 30 - 6
5 - 10 - 13
formula
=Ed_NunAusente( range; ocorrência; menor 1;
maior 20)
ocorrência= 1 ; resultado= 2
ocorrência= 6 ; resultado= 9
ocorrência= 10 ; resultado= 15
maior 20nesse caso nao identificaria números acima de 20