Página 1 de 1

SOMAMASES NO COM CODIGO VBA

Enviado: 11 Mar 2020 às 08:31
por LEO2004
Bom dia preciso de um ajuda,
tentei de muitas maneiras e não consegui fazer o SOMASES pelo VBA com informações de uma planilha com a outra

O que eu preciso, era que soma-se total da base de calculo de acordo com os numero das fiscais , do CST e do CFOP da aba C170 na coluna base de da aba C190..

Segue anexo uma planilha teste..

Desde ja agradeço!!

Re: SOMAMASES NO COM CODIGO VBA

Enviado: 11 Mar 2020 às 13:01
por osvaldomp
Em F3 da planilha C190 e arraste para baixo.
Código: Selecionar todos
=SOMASE('C170'!C$3:C$10;C3;'C170'!F$3:F$10)

SOMAMASES NO COM CODIGO VBA

Enviado: 11 Mar 2020 às 14:22
por LEO2004
Oi Osvaldo,

preciso do somases, pois tenho mais de uma condição para o calculo ..

tentei usar sumIfs() , mas não tive sucesso

Re: SOMAMASES NO COM CODIGO VBA

Enviado: 11 Mar 2020 às 17:18
por osvaldomp
Não vejo na sua tabela a necessidade de outros critérios, basta o número da NF.

Quais seriam os outros critérios ?

Coloque os resultados esperados na tabela e explique como obteve cada resultado.

Solução por fórmula não serve ? Ou isso é um treinamento em macros ?

Re: SOMAMASES NO COM CODIGO VBA

Enviado: 11 Mar 2020 às 17:53
por LEO2004
O que acontece é esse codigo vou ter que usar e uma planilha de importação de sped..

Onde ja esta pronta, porem preciso colocar essa função.

de inicio tentei isso mas não funcionou

Sub Somar()

Dim linha As Long
Dim linha2 As Long


linha = 2
linha2 = 2

Dim base As Double
Dim icms As Double


While Worksheets("C190").Cells("A" & linha).Value = ""
linha2 = 2
base = 0
icms = 0
While Sheets("C170").Cells("B" & linha2).Value <> ""
If Sheets("C170").Cells("C" & linha2).Value = Sheets("C190").Cells("C" & linha).Value Then
If Sheets("C170").Cells("D" & linha2).Value = Sheets("C190").Cells("D" & linha).Value Then
If Sheets("C170").Cells("E" & linha2).Value = Sheets("C190").Cells("E" & linha).Value Then

base = base + Sheets("C170").Cells("F" & linha2).Value
icms = icms + Sheets("C170").Cells("G" & linha2).Value
Sheets("C190").Cells("F" & linha).Value = base
Sheets("C190").Cells("G" & linha).Value = icms


End If

End If

End If

linha2 = linha2 + 1
Wend

linha = linha + 1

Wend



End Sub

Re: SOMAMASES NO COM CODIGO VBA

Enviado: 11 Mar 2020 às 18:12
por osvaldomp
Sugestão: deixe de lado por um momento as tentativas que você tem feito para solucionar e responda com exatidão as dúvidas que coloquei no post anterior, veja abaixo.

Não vejo na sua tabela a necessidade de outros critérios, basta o número da NF.

Quais seriam os outros critérios ?

Coloque os resultados esperados na tabela e explique como obteve cada resultado.

Re: SOMAMASES NO COM CODIGO VBA

Enviado: 12 Mar 2020 às 10:06
por LEO2004
Bom dia Osvaldo,

Desculpa me pedi nas respostas..

Para essa codigo preciso que os critérios sejam NF, CST, CFOP..

Coloquei uma planilha de simulação de como fica as planilhas para executar os codigo em anexo..

Re: SOMAMASES NO COM CODIGO VBA

Enviado: 12 Mar 2020 às 10:13
por osvaldomp
Bom dia, Leo.
Desculpe, mas eu não consigo lhe ajudar.
Talvez algum colega aqui do fórum consiga.

Re: SOMAMASES NO COM CODIGO VBA

Enviado: 12 Mar 2020 às 11:15
por LEO2004
tranquilo amigo,

mesmo obrigado