Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Formula para Calcular valor liquido de recebimento

Dúvidas gerais sobre Excel
resfernandes
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Mai 22, 2012 3:10 pm

Formula para Calcular valor liquido de recebimento

Mensagem por resfernandes »

Pessoal, boa tarde. Espero que todos estejam bem.

Preciso de uma ajuda.
Tenho uma planilha do que foi faturado e uma planilha de recebimento liquido, preciso de uma formula que me traga o resultado do recebimento liquido de uma nota fiscal. Por exemplo a nota 9999 foi faturado a R$ 100,00 e recebido dela descontado as comissões, fretes, etc foi de R$ 75,00.
A única solução foi fazendo um tabela dinâmica, mas o arquivo de 2020 de todo o faturamento e recebimentos, está com mais de 385MB para os três primeiros meses.
Encontrei uma explicação no youtube de usar soma+procv (soma(provc; nf faturada; matriz planilha de recebimento; linha 3;falso), só que ele não soma os abatimentos, mesmo ele estando com o valor negativo (100, - 10, -25).
Teria uma formula mais simples de achar a NF 9999 o recebimento liquido?
Segue link
https://docs.google.com/spreadsheets/d/ ... ue&sd=true


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


ajwebtv01
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Seg Abr 19, 2021 7:42 pm

Re: Formula para Calcular valor liquido de recebimento

Mensagem por ajwebtv01 »

Uma solução simples e rápida. Se é pra um uso exporádico.
Faça um filtro exclusivo e pegue os números das notas ficais.
Abaixo um exemplo de código, ai é so adaptar.
Se for o caso de uso recorrente, ai precisamos pensar em algo mais elaborado


Sub somadia()
Dim linha As Long
Dim linha1 As Long
Dim data1 As Date
Dim data2 As String
Dim dia As String
Dim mes As String
Dim ano As String

Dim somaq As Double

Plan1.Select
Columns("C:C").NumberFormat = "dd/mm/yyyy"

Plan10.Select
somaq = 0


linha = 1
With Plan10
Do
linha = linha + 1
Data = .Cells(linha, 1).Value

linha1 = 1
With Plan1
Do
linha1 = linha1 + 1
dia = Format((.Cells(linha1, 3).Value), "dd")
mes = Format((.Cells(linha1, 3).Value), "mm")
ano = Format((.Cells(linha1, 3).Value), "yyyy")
data2 = dia + "/" + mes + "/" + ano
If data2 = Data Then
somav = somav + .Cells(linha1, 7).Value
End If

Loop Until .Cells(linha1, 3).Value = ""
End With

Plan10.Cells(linha, 2).Value = somaq



somaq = 0

Loop Until .Cells(linha, 1).Value = ""



End With


End Sub


resfernandes
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Mai 22, 2012 3:10 pm

Re: Formula para Calcular valor liquido de recebimento

Mensagem por resfernandes »

ajwebtv01, bom dia. Obrigado pela resposta.

Mas precisaria de uma forma mais simples, os recebimentos dão de 254 mil linhas, não sei de uma VBA vai deixar ela mais pesada.

Mas mesmo assim, agradeço a sua ajuda


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder