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!

JeanPaul28

Lid
  • Aantal items

    144
  • Registratiedatum

  • Laatst bezocht

Over JeanPaul28

  • Titel
    Nieuweling

Recente bezoekers van dit profiel

De recente bezoekers block is uitgeschakeld en zal niet meer getoond worden aan gebruikers.

  1. geef een voorbeeld en wat wil je bereiken uit de bron map
  2. En om hoeveel machienes gaat het, is het voor onderhoud in een fabriek of zijn er meerdere klanten, die je moet bezoeken, zijn er meerdere mechaniekers, dit is allemaal van belang om te weten
  3. ziehier mijn inbreng Kopie van(JP) eten voorbeeld.xlsx
  4. En ik kan geen formule maken zonder begin, misschien iemand anders.
  5. Laat maar eens iets zien wat je al gemaakt hebt
  6. Dank u emielDS, misschien vind de topicstarter dat ook.
  7. Kan deze oplossing u bekoren Kopie van Punten.xlsx
  8. In cel L2, doortrekken naar beneden
  9. Selecteer de te verwijderende cellen houd alt knop ingedrukt en duw op R-NI-W
  10. Met vertikaal zoeken Kopie(jp) van Test.xls
  11. Wij verwachten meestal een voorbeeld bestand, met het beoogde resultaat, zodat we een duidelijk overzicht hebben.
  12. 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
  13. 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
  14. 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
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.