Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers sinds 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

Vriendelijk verzoek: whitelist www.pc-helpforum.be in je adblocker.

Beste bezoeker. Je ziet deze tekst omdat een adblocker, plugin of andere software onze advertenties blokkeert. PC Helpforum helpt jaarlijks gratis duizenden mensen met computerproblemen. Deze website en server kunnen we enkel onderhouden dankzij de inkomsten uit advertenties. Vandaar een vriendelijk verzoek: whitelist onze site zodat we jullie gratis verder kunnen helpen. Klik hier om te lezen waarom en hoe je kunt whitelisten.



JOEYVLD

VOORRAAD WORD NEGATIEF, IS HIER EEN OPLOSSING VOOR?

Aanbevolen berichten

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

Deel dit bericht


Link naar bericht
Delen op andere sites

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

 

Deel dit bericht


Link naar bericht
Delen op andere sites

  • Topicstarter
  •    0

    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

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

  • Topicstarter
  •    0

    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!

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    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

     

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
    Gast
    Dit topic is nu gesloten voor nieuwe reacties.

    Logo

    OVER ONS

    PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

    ×
    ×
    • Nieuwe aanmaken...

    Belangrijke informatie

    We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.