Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
SUMPRODUCT
 
Notifications
Clear all

SUMPRODUCT

 
2024 - VBA & Macros
7 Posts
3 Usuários
0 Reactions
1,027 Visualizações
RSS
 patpcv92
(@patpcv92)
Posts: 0
New Member
Topic starter
 

Bom dia gente !

Estou com uma situação a mais de 2 semanas que não consigo resolver de forma nenhuma, já visitei mais de 50 sites e vários testes mas não consigo. Portanto preciso de uma ajuda:

Tenho esta fórmula que funciona diretamente na planilha, mas quando coloco no VBA dá erro #VALOR se copio a fórmula diretamente na célula funciona direitinho.

Já tentei com evaluate e diversas outras tentativas mas não vai de jeito nenhum.

strFormula = "=SUMPRODUCT(('Novo contrato Ok'!$x$2:$x$10000<>"")*('Novo contrato Ok'!$x$2:$x$10000<>0))"

Já tentei assim também e não funciona.

strFormula - "=SOMARPRODUTO(('Novo Contrato OK'!$X$2:$X$10000<>"")*('Novo Contrato OK'!$X$2:$X$10000<>0))"

A área abrangida pode ter números letras etc... o que preciso é contar as células preenchidas. Inclusive as células podem ter fórmulas.

Obrigado e boa sorte à todos.

 
Postado : 10/05/2018 8:06 am
 EdsonBR
(@edsonbr)
Posts: 0
New Member
 

patpcv92 bem vindo!

Anexe aqui mesmo um modelo bem semelhante com alguns dados pra não termos que recriar toda a estrutura do seu arquivo e pra podermos fazer testes.

 
Postado : 10/05/2018 8:32 am
 patpcv92
(@patpcv92)
Posts: 0
New Member
Topic starter
 

Obrigado pela resposta já vou preparar e envio.

Obrigado !

 
Postado : 10/05/2018 8:39 am
 patpcv92
(@patpcv92)
Posts: 0
New Member
Topic starter
 

Olá Segue a Planilha!

Novamente muito obrigado pela ajuda.

 
Postado : 10/05/2018 8:48 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde,

Veja se funciona, desta maneira:

With ActiveSheet.Range("E4")
    'Função em inglês
   .Formula = "=SUMPRODUCT(('Novo contrato Ok'!$x$2:$x$10000<>"""")*('Novo contrato Ok'!$x$2:$x$10000<>0))"

   'Ou função em português
   .FormulaLocal = "=SOMARPRODUTO(('Novo contrato Ok'!$x$2:$x$10000<>"""")*('Novo contrato Ok'!$x$2:$x$10000<>0))"
End With

Abraço

 
Postado : 10/05/2018 9:47 am
 patpcv92
(@patpcv92)
Posts: 0
New Member
Topic starter
 

Boa tarde !!

Muito obrigado a todos que visualizaram minha dúvida !

Agradeço muito JOSE CARVALHO funcionou perfeito.

Boa sorte à todos.

Paulo Cezar

 
Postado : 10/05/2018 11:07 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Paulo Cesar

Você não soube como usar a ferramenta para marcar ponto para o colaborador e nem marcou o tópico com Resolvido.

Como você é novato, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador

 
Postado : 10/05/2018 3:12 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico