Siparişlerimden bakiye kalan ürünleri bulmak

[marinerr4]

Merhaba, üreticime gönderdiğim listeden bana göndermediği ürünleri bulmak listelemek istiyorum. Yardımcı olabilirseniz sevinirim.
Dosyam https://dosya.co/awl8vzllj1l5/bakiye_takip.xlsx.html

 

[ataköylü-59]

Merhaba
İlave sütun kullanarak bir çözüm sunmağa çalıştım. Sanırım istediğiniz gibi olmuştur.

İndir Kopya bakiye takip

Dosyayı indir Kopya bakiye takip

dosya.co

 

[marinerr4]

Merhaba
İlave sütun kullanarak bir çözüm sunmağa çalıştım. Sanırım istediğiniz gibi olmuştur.

İndir Kopya bakiye takip

Dosyayı indir Kopya bakiye takip

dosya.co

Çok teşekkür ederim. İstediğim buydu.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub gelmeyenler()
eski = WorksheetFunction.Max(Cells(Rows.Count, "L").End(3).Row, 4)
sonA = WorksheetFunction.Max(Cells(Rows.Count, "A").End(3).Row, 3)
sonF = WorksheetFunction.Max(Cells(Rows.Count, "F").End(3).Row, 3)
Range("L4:O" & eski).ClearContents
For i = 3 To sonA
    If WorksheetFunction.SumIfs(Range("B3:B" & sonA), Range("A3:A" & sonA), Cells(i, "A"), _
        Range("D3:D" & sonA), Cells(i, "D")) > WorksheetFunction.SumIfs(Range("G3:G" & sonF), _
        Range("F3:F" & sonF), Cells(i, "A"), Range("I3:I" & sonF), Cells(i, "D")) Then
            yeni = Cells(Rows.Count, "L").End(3).Row + 1
            Cells(yeni, "L") = Cells(i, "A")
            Cells(yeni, "M") = WorksheetFunction.SumIfs(Range("B3:B" & sonA), Range("A3:A" & sonA), Cells(i, "A"), _
                Range("D3:D" & sonA), Cells(i, "D")) - WorksheetFunction.SumIfs(Range("G3:G" & sonF), _
                Range("F3:F" & sonF), Cells(i, "A"), Range("I3:I" & sonF), Cells(i, "D"))
            Cells(yeni, "N") = Cells(i, "C")
            Cells(yeni, "O") = Cells(i, "D")
    End If
Next
End Sub

 

[marinerr4]

Aşağıdaki makroyu deneyiniz:

Sub gelmeyenler()
eski = WorksheetFunction.Max(Cells(Rows.Count, "L").End(3).Row, 4)
sonA = WorksheetFunction.Max(Cells(Rows.Count, "A").End(3).Row, 3)
sonF = WorksheetFunction.Max(Cells(Rows.Count, "F").End(3).Row, 3)
Range("L4:O" & eski).ClearContents
For i = 3 To sonA
    If WorksheetFunction.SumIfs(Range("B3:B" & sonA), Range("A3:A" & sonA), Cells(i, "A"), _
        Range("D3:D" & sonA), Cells(i, "D")) > WorksheetFunction.SumIfs(Range("G3:G" & sonF), _
        Range("F3:F" & sonF), Cells(i, "A"), Range("I3:I" & sonF), Cells(i, "D")) Then
            yeni = Cells(Rows.Count, "L").End(3).Row + 1
            Cells(yeni, "L") = Cells(i, "A")
            Cells(yeni, "M") = WorksheetFunction.SumIfs(Range("B3:B" & sonA), Range("A3:A" & sonA), Cells(i, "A"), _
                Range("D3:D" & sonA), Cells(i, "D")) - WorksheetFunction.SumIfs(Range("G3:G" & sonF), _
                Range("F3:F" & sonF), Cells(i, "A"), Range("I3:I" & sonF), Cells(i, "D"))
            Cells(yeni, "N") = Cells(i, "C")
            Cells(yeni, "O") = Cells(i, "D")
    End If
Next
End Sub

Çok teşekkür ederim, makroyu kaydettim ve çalıştırdım. sağolun