• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Verlofdagen meenemen naar volgende maand

Status
Niet open voor verdere reacties.
J

JosEindhoven

Gebruiker
Lid geworden
4 dec 2014
Berichten
431
Ik heb een maandelijks verlofoverzicht. Is het mogelijk om de restant dagen mee te nemen naar de volgende maand. Dit zou dan moeten geschieden t/m december.

Zie bijlage
 

Bijlagen

  • Verlof_personeel.xlsm
    157,1 KB · Weergaven: 41
Met behulp van de indirect formule moet het lukken

Kolom AJ aangepast
Tevens Rij 1 en 2 aangepast

Let wel op Januari heeft een iets andere formule in kolom AJ ivm jaarovergang.

Voor de overige maanden is tabblad maart kopieren en in cel A1 de juiste maandnaam zetten.
 

Bijlagen

  • Verlof_personeel-1.xlsm
    68,1 KB · Weergaven: 29
Hallol Willem

Bedankt zover. Ik kon het toch niet laten. Als ik in januari iets invoer dan krijg ik een foutmelding en als in dan naar de vba code ga zie ik het geel gearceerde
 

Bijlagen

  • Knipsel.PNG
    Knipsel.PNG
    3 KB · Weergaven: 28
  • Knipsel1a.PNG
    Knipsel1a.PNG
    9,9 KB · Weergaven: 41
Laatst bewerkt:
Ik heb niet naar je vba gekeken wist niet dat het er in staat.
Ik heb even wat in gevoerd in je blad maar ik krijg geen foutmeldingen.
Kun je aan geven wat je waar in voert als je de melding krijgt?
VBA is niet mijn sterkste kant maar ik wil wel even kijken.
 
De foutmelding krijg ik ook niet.

De code kan je wel anders schrijven. Korter en robuuster
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [B3:AF30]) Is Nothing And Target.Count = 1 Then
    ar = Array("De verlofdagen van ", "De buitengewone verlofdagen van ", "De andere vrije dagen van ")
    Application.EnableEvents = False
    For j = 0 To 2
      If Cells(Target.Row, 3 * j + 36) < 0 Then
        MsgBox ar(j) & Cells(Target.Row, 1).Value & " zijn op"
        Application.Undo
        Exit For
      End If
    Next j
    Application.EnableEvents = True
  End If
End Sub
 
@Pepippipo

Als ik in januari iets invoer dan gebeurt er in kolom AJ niets en krijg ik onmiddellijk de melding : Fout 13 tijdens uitvoering. TYPEN KOMEN NIET MET ELKAAR OVEREEN. Bovendien telt hij niet door in februari. De overgebleven dagen van januari zouden er bij moeten komen in de kolommen AJ,AM en AP.

@VenA
Helemaal correct die code. Past inderdaad beter
 
Vreemd want ik krijg geen enkele foutmelding net als VenA en de teling gaat bij mij goed.
 
Ik werk met MS 365, misschien dat het daaraan ligt maar ik zie niet zo snel bij welke formule het mis zou moeten gaan.


Ik had alleen de formules in kolom AJ aangepast dus kolommen AM en AP zullen dan niet doortellen
Deze formules zul je zelf moeten aanpassen.


Je bijlages in #8 zijn niet te openen.
 
Laatst bewerkt:
Geen idee of het aan de versie ligt. Ik kan in ieder geval de bijlages zo openen.
Misschien dat iemand anders nog een idee heeft.
De bijlage 354522 was trouwens de verkeerde
Hier de goede :Bekijk bijlage 354523
 
Bijlagen moet je bijvoegen via geavanceerd en dan met de paperclip.
 
@ VenA en Popipipo

Hopelijk zijn ze zo wel te lezen
 

Bijlagen

  • Knipsel.PNG
    Knipsel.PNG
    3,1 KB · Weergaven: 17
  • KnipselA.PNG
    KnipselA.PNG
    54 KB · Weergaven: 32
Code: 
=TEKST(($A$1&1)-1;"mmmm")
Als je deze formule ergens in tabblad februari zet wat voor een uitslag krijg je dan?
En waarom heb je er een matrix formule van gemaakt (CTRL SHIFT ENTER)
 
Laatst bewerkt:
Er staan {} om de formules.
Die horen er niet te staan.
Ze komen er te staan als je de formule afsluit met de toetsen combinatie CTRL SHIFT ENTER

Deze horen hier niet te staan.
Bekijk het voorbeeld uit #2 nog eens daar staat de normale formule.
 
Hoe die daar komen weet ik ook niet . Erg vreemd
Kolom AJ werkt nu helemaal goed. Kolom AM en AP nog niet
 
Klopt, aan jou om de formule uit kolom AJ aan te passen voor de formules in AM en AP
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan