VOORRAAD WORD NEGATIEF, IS HIER EEN OPLOSSING VOOR?

[JOEYVLD]

wederom dank voor uw reactie. ik ga gelijk even proberen.

[JOEYVLD]

Dit werkt perfect! Ik moest alleen de sq1 en sq2 nog even omwisselen, maar mijn probleem is nu perfect opgelost. Hartelijk dank voor uw genomen moeite, ik waardeer dit enorm!

[JOEYVLD]

Hoi Jean Paul. Toch nog een klein probleempje. De voorraad word nu op 0 gezet, waardoor soms een een deel van de voorraad verloren gaat. Is het mogelijk dat de voorraad wel zijn positieve waarde behoudt, en dat de negatieve waarde inderdaad op 0 word gezet? Als je hier naar zou kunnen kijken zou ik dat zeer waarderen. mvg

[JeanPaul28]

Sub Afboeken()

For Each Cl In [C9:C999]
If Cl <> "" Then
sq2 = Cl.Offset(, -1).Value 'Af te boeken waarde
With Sheets("Voorraad")
Set FoundCell = .Range("A:A").Find(Cl)
Stock = .Range(FoundCell.Address).Offset(, 3).Value
If Stock < 0 Then .Range(FoundCell.Address).Offset(, 3).Value = 0
If sq2 > Stock Then
MsgBox "Af te boeken aantal is groter dan de stock " & Cl & " er wordt geen afboeking gedaan"
GoTo Verder
End If
.Range(FoundCell.Address).Offset(, 3).Value = sq1 - sq2
Verder:
End With
End If
Next

End Sub

 

27 februari 2019 aangepast door JeanPaul28

[JOEYVLD]

Dank voor je reactie, heb hem even geprobeerd. Het werkt nog niet helemaal. Het werkt wel als de voorraad lager is dan het af te boeken aantal. Maar als de voorraad hoger is dan het af te boeken aantal schiet hij gelijk de min in, en dan precies het aantal wat ik wil afboeken. Als je nog steeds tijd en zin hebt om hiernaar te kijken zou ik erg waarderen.

[JOEYVLD]

Dit doet hij ook als het af te boeken aantal gelijk is aan de voorraad.

[JeanPaul28]

Schoonheids foutje had Sq1 vervangen in stock, maat niet in de Formule bij aftrek

Sub Afboeken()

For Each Cl In [C9:C999]
If Cl <> "" Then
sq2 = Cl.Offset(, -1).Value 'Af te boeken waarde
With Sheets("Voorraad")
Set FoundCell = .Range("A:A").Find(Cl)
Stock = .Range(FoundCell.Address).Offset(, 3).Value
If Stock < 0 Then .Range(FoundCell.Address).Offset(, 3).Value = 0
Stock = .Range(FoundCell.Address).Offset(, 3).Value
If sq2 > Stock Then
MsgBox "Af te boeken aantal is groter dan de stock " & Cl & " er wordt geen afboeking gedaan"
GoTo Verder
End If
  .Range(FoundCell.Address).Offset(, 3).Value = Stock - sq2
Verder:
End With
End If
Next

End Sub

 

[JOEYVLD]

aha ok! ga weer even testen, thanx!

[JOEYVLD]

Ja dit werkt perfect nu. Ik neem mijn hoed voor u af, erg knap dit zo snel op te lossen, zelf al lange tijd bezig geweest. Mijn dank is groot!

[JeanPaul28]

Hoop dat je er ook iets van geleerd hebt