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.
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