Este fórum está sendo desativado

[vitordmd]

estou tentando usar a fórmula de somar produto e contse em conjunto para que me retorno a quantidade de valores diferentes em um determinado intervalo, porém está aparecendo um erro de TIPOS INCOMPÁTIVEIS.

[osvaldomp]

Me parece que em VBA a função CountIf() não aceita uma matriz no segundo argumento.

Seguem alternativas.

Código: Selecionar todos

   Cells(1, 3) = Evaluate("SumProduct(1 / CountIf(" & Range(Cells(1, 2), Cells(6, 2)).Address & "," & Range(Cells(1, 2), Cells(6, 2)).Address & "))")

#
ou com Sum no lugar de SumProduct

Código: Selecionar todos

  Cells(1, 3) = Evaluate("Sum(1 / CountIf(" & Range(Cells(1, 2), Cells(6, 2)).Address & "," & Range(Cells(1, 2), Cells(6, 2)).Address & "))")

[vitordmd]

Funcionou, muito obrigado.