SomarProdutos em VBA

[mrfg2000]

Saudações amigos deste maravilhoso fórum.

Primeiramente obrigado por ler esse tópico.

Preciso de uma ajuda , pois me deparei com a seguinte situação.

Existe uma função no excel chamada   subtotal(9;xxx:xxx)  , para fazer a soma apenas dos valores que as linhas não estejam ocultas por Filtro.

já  a função somarprodutos(xxx:xxx)   ele faz a multiplicação de uma coluna com a outra coluna ...  não precisando multiplicar linha por linha coluna por coluna.

porem ele faz a multiplicação das linhas filtradas também incluindo as linha ocultas por filtro.

Teria como fazer uma função em VBA  igual a função somarprodutos    só que respeitando o filtro ????   ou seja multiplicando apenas as colunas visiveis e desconsiderando as linhas ocultas por filtro ?

Para ajudar segue um arquivo em nexo como modelo veja que ele não respeita os filtro.

Obrigado

 

 

 

 

 

[Armando Amador Pereira]

Olá, Amigo.

O Critério de filtro é a data?

[Armando Amador Pereira]

Agora que vi, filtra a data... então faça o seguinte, se souber usar bem o VBA

Crie um módulo e insira esse código.

2) Crie a planilha com as colunas A, B e C, digite o texto da coluna E1
3) formate F1 como data  / formate G4 e G5 como Número, 2 decimais e ponto milhar

para dar vida a esse módulo precisamos impor um atalho de teclas
na guia Desenvolvedor, clique em [Macros]

Surge a tela seguinte:

     Aqui já consta o Macro criado chamada SomaMultiplica que está no código acima.
Neste formulário clique em [OPÇÕES], assim vem esta outra tela

   
Digite a letra "E"  maiúscula (Foi uma opção minha), e clique [OK]. Pronto, volte na sua planilha e pressione as teclas de atalho impostas...
O resultado aparece nas posições G4 e G5      :)

[Armando Amador Pereira]

Inserindo Modulo

 

Montando a Planilha

 

Configurando a Macro para funcionar o módulo na planilha
1) Clique e Macro

Surge esta janela

             Clique em [OPÇÕES]