Boa noite Oscar,
Tem que ser através de VBA?
A Função SUBTOTAL resolveria seu problema com relação a contar os valores não ocultos.
Porém, você deverá usá-la com a variavel 'Núm_Função' com o valor 103 pois esse ignora os valores ocultos.
Ficaria assim:
=SUBTOTAL(103;A2:A21)
Com relação a contar os valores únicos (que não repetem), temos uma forma de fazer sem usar VBA, porém, teremos que adicionar uma coluna auxiliar. Há como adicinar uma coluna auxiliar na sua planilha? Pode oculta-la depois.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 02/01/2011 6:12 pm