VOORRAAD WORD NEGATIEF, IS HIER EEN OPLOSSING VOOR?

[JOEYVLD]

HALLO EXCEL EXPERTS. ENIGE TIJD GELEDEN BEN IK VOOR MIJN WERKGEVER MET EEN EXCELL BESTAND VOORRAADBEHEER MET AFBOEKEN BEGONNEN EN AANGEPAST NAAR MIJN WENSEN. ECHTER KRIJG IK ER EEN FOUTJE NIET UIT. HET BETREFT DE VOORRAAD DIE NA AFBOEKEN IN DE MIN KAN GAAN. DE BETREFFENDE CELLEN BEVATTEN ZELF GEEN BEREKENING MAAR ER WORD VIA EEN ANDERE SHEET AFGEBOEKT. IS HET MOGELIJK ERVOOR TE ZORGEN DAT DE VOORRAAD NIET MEER IN DE MIN KAN GAAN. IK ZOU HET ZEER WAARDEREN ALS U MET UW EXPERTISE HIER NAAR ZOU WILLEN KIJKEN. HEEL ERG BEDANKT ALVAST EN MET VRIENDELIJKE GROET.

CSI Voorraadbeheer PCB + COMPONENTEN.xlsm

[JeanPaul28]

test deze eens

Sub Afboeken()
With Sheets("voorraad").Columns(1)
Stock = .Find([B8], , xlValues, xlWhole).Offset(, 3)
If [C8] > Stock Then MsgBox "Afboeken kan maar max " & Stock & " aantallen": Exit Sub
        .Find([B8], , xlValues, xlWhole).Offset(, 3) = .Find([B8], , xlValues, xlWhole).Offset(, 3) - [C8]
    End With
    Dim data(1 To 5)
    data(1) = Now                                            'tijdstip boeking
    data(2) = [B8].Value                                 'artikelnr
    data(3) = [D3].Value
    data(4) = CDbl([C8].Value) * -1
    Sheets("Mutaties").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, UBound(data)).Value = data
End Sub

 

[JOEYVLD]

BEDANKT VOOR DE SNELLE REACTIE IK GA HET GELIJK EVEN PROBEREN!

[bucky]

JOEYVLD,

Zou je in het vervolg je CAPS LOCK willen uit zetten, dit komt namelijk nogal schreeuwerig over.

bucky 

[JOEYVLD]

HET WERKT BIJ MIJ NOG NIET HELAAS. DE VOORRAAD GAAT NOG STEEDS DE MIN IN. HET IS DE MACRO VAN DE AFBOEKKNOP OP DE PICKLIJSTEN DIE DE VOORRAAD IN DE MIN ZET OMDAT DEZE MEEST GEBRUIKT GAAT WORDEN

[JOEYVLD]

caps lock is uit excuus

[bucky]

Excuses zijn niet nodig, en zeker niet als je iets onbewust doet.

Trouwens nog welkom op het forum.

bucky

[JOEYVLD]

Thanx!

[JOEYVLD]

Het betreft deze macro:

 

Sub Afboeken()

For Each cl In [C9:C999]
If cl <> "" Then
sq2 = cl.Offset(, -1).Value
With Sheets("Voorraad")
Set FoundCell = .Range("A:A").Find(cl)
sq1 = .Range(FoundCell.Address).Offset(, 3).Value
.Range(FoundCell.Address).Offset(, 3).Value = sq1 - sq2

End With
End If
Next

End Sub

 

Iemand suggesties? Alvast bedankt!

[JeanPaul28]

Kijk eens of deze macro de job doet

Sub Afboeken()

For Each Cl In [C9:C999]
If Cl <> "" Then
sq2 = Cl.Offset(, -1).Value
With Sheets("Voorraad")
Set FoundCell = .Range("A:A").Find(Cl)
sq1 = .Range(FoundCell.Address).Offset(, 3).Value
If sq1 > sq2 Then
MsgBox "Af te boeken aantal is groter dan de stock " & Cl & " deze word op nul gezet"

End If
.Range(FoundCell.Address).Offset(, 3).Value = Application.WorksheetFunction.Max(0, sq1 - sq2)

End With
End If
Next

End Sub