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

18 uren geleden, emielDS zei:

@JeanPaul28

 

prachtige oplossing.

Dank u emielDS, misschien vind de topicstarter dat ook.

Kan deze oplossing u bekoren

Kopie van Punten.xlsx

In cel L2, doortrekken naar beneden

Quote

=ALS(AANTAL.ALS($K$2:$K$1000;J2)=0;"New";" - ")

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