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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Formula para Calcular valor liquido de recebimento
-
- Acabou de chegar
- Mensagens: 3
- Registrado em: Ter Mai 22, 2012 3:10 pm
Re: Formula para Calcular valor liquido de recebimento
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
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
-
- Acabou de chegar
- Mensagens: 3
- Registrado em: Ter Mai 22, 2012 3:10 pm
Re: Formula para Calcular valor liquido de recebimento
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
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