JeanPaul28

hoe ziet er zo een verlof lijst uit die er wordt meegeleverd, is belangrijk voor verwerking.

Update met werkende verlof lijst Kopie van Planning excel 2(jp4Met verlof lijst).xlsm

Kijk eens of dit aan je eisen voldoet, alleen de verlof data is nog niet klaar Kopie van Planning excel 2(jp3Met verlof lijst).xlsm

1. In het tabblad overzicht uitzendbureau voeg je onder aan de nieuwe data bij die je ontvangt (kolom B t/m kolom G) en druk macro knop Update. Bij het wijzigen van de de week in tab Weekplanning zal een advance filter alle data ophalen van die week min Heft en EMB. Deze databank wordt nu gebruikt om je week planning in te vullen. 2. tab validatie staan de validatie lijsten van jaar, week en unieke namen, Cel A3 en B3 zijn validatie cellen, B3:B35 zijn ook validatie cellen 3.Alleen de naam in kolom B zetten van tabblad weekplanning, in mijn voorbeeld staat nu Flore, wis die eens, en Flore zal in de planning verschijnen Het enige wat jij moet doen is Data bijvoegen die je van het bureau ontvangt Jaar kiezen dit is voor 1 x per jaar en week kiezen in cel B3, de filtering gaat van zelf. In dien iemand een week verlof heeft naam kiezen in B5:B35, is ook afdeling gebonden. Hoop dat dit aan je eisen voldoet Kopie van Planning excel 2(jp).xlsm

Verder Uit gewerkt, data uitzendburo bijvoegen, heb er filter HEFT en EMB ook ingevoegd, alleen verlof schakelt persoon een week uit, dus niet voor 1 of 2 dagen Kopie van Planning excel 2(jp).xlsm

Kan het bestand niet openen

Met formule Kopie van Planning excel.xlsx

Werkt wel bij mij

Op deze manier Kopie van Verdeling uitzend.xlsx

Wat je handmatig doet kan ook in een formule gezet worden

Dat kan met een vba code

geef een voorbeeld en wat wil je bereiken uit de bron map

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

ziehier mijn inbreng Kopie van(JP) eten voorbeeld.xlsx

En ik kan geen formule maken zonder begin, misschien iemand anders.

Laat maar eens iets zien wat je al gemaakt hebt

Dank u emielDS, misschien vind de topicstarter dat ook.

Kan deze oplossing u bekoren Kopie van Punten.xlsx

In cel L2, doortrekken naar beneden

Selecteer de te verwijderende cellen houd alt knop ingedrukt en duw op R-NI-W

Met vertikaal zoeken Kopie(jp) van Test.xls

Wij verwachten meestal een voorbeeld bestand, met het beoogde resultaat, zodat we een duidelijk overzicht hebben.

Hoop dat je er ook iets van geleerd hebt

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

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