Fórum de Dúvidas sobre Excel e Power BI
https://gurudoexcel.com/
KaiqueMello escreveu: ↑15 Ago 2021 às 11:18 Bom dia a todos!Retificando pra fazer mais sentido.
Preciso excluir linhas que onde o conjunto de números que fazer o resultado do somarprod for zero.
Segue o documento com a explicação em anexo
exclusão com condição.xlsx
=SE(OU(SOMARPRODUTO(($A$2:A2=A2)*($C$2:C2))=0;SOMARPRODUTO(($A$2:A3=A3)*($C$2:C3))=0);0;"")
KaiqueMello escreveu: ↑15 Ago 2021 às 21:16Examinando o exemplo do seu print, o que eu entendi do critério é: lote igual e dois valores simétricos, sendo o valor negativo localizado logo abaixo do positivo.
Eu preciso apagar todos os números que somados resultam no Zero como mostra a imagem abaixo, os números pintados de laranja no exemplo:
O objetivo não é excluir apenas o Zero mas sim o conjunto de valores que somados resultam no Zero.
O que me ocorre de momento é um código que iria analisar toda a coluna E, a partir de cada célula com valor zero e aí buscaria na coluna C, de baixo para cima, os valores envolvidos naquela soma zero e excluiria tais linhas, independente da quantidade de linhas envolvidas.Se houver essa possibilidade, com certeza será ótimo, independente se for por macro ou manual.
Considerando a última planilha todas as linhas seriam excluídas.
Sub ExcluiLinhas()
Dim z As Long, v As Long
Application.ScreenUpdating = False
[E:E] = ""
z = Cells(Rows.Count, 1).End(3).Row + 1
Range("E2:E" & z).Formula = "=SUMPRODUCT((A$2:A2=A2)*(C$2:C2))"
Range("E2:E" & z).Value = Range("E2:E" & z).Value
Do
z = [E:E].Find(What:=0, lookat:=xlWhole, after:=Cells(z, 5), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Row
Do Until Application.Sum(Range(Cells(z, 3), Cells(z - v, 3))) = 0
v = v + 1
Loop
Rows(z - v & ":" & z).Delete
v = 0
If Application.CountIf([E:E], 0) = 0 Then: [E:E] = "": Exit Sub
Loop
End SubKaiqueMello escreveu: ↑16 Ago 2021 às 14:22 A única coisa que gostaria de saber por macro, é se antes de ele realizar a exclusão, eu posso ver se a conta vai bater (dar "0"), antes das linhas serem excluídas.Não, mas você pode verificar de outra forma: antes de rodar o código coloque uma cópia desta fórmula em qualquer célula vazia da linha 1 (esta linha não será deletada)~~~> =SOMA(C:C) ~~~> irá retornar 37.786.827,43. Em seguida transforme a fórmula em valor (copiar/colar valor), assim a a planilha não irá recalcular a cada vez que uma linha for deletada pelo código, o que iria aumentar o tempo de execução.
