Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
Avatar do usuário
Por LEO2004
Posts Avatar
#52814
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!!
Você não está autorizado a ver ou baixar esse anexo.
Por osvaldomp
#52820
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)
Avatar do usuário
Por LEO2004
Posts Avatar
#52823
Oi Osvaldo,

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

tentei usar sumIfs() , mas não tive sucesso
Por osvaldomp
#52827
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 ?
Avatar do usuário
Por LEO2004
Posts Avatar
#52831
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
Por osvaldomp
#52833
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.
Avatar do usuário
Por LEO2004
Posts Avatar
#52855
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..
Você não está autorizado a ver ou baixar esse anexo.
Por osvaldomp
#52856
Bom dia, Leo.
Desculpe, mas eu não consigo lhe ajudar.
Talvez algum colega aqui do fórum consiga.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord