Teller achter ziektedagen met 1 omhoog

[rewico]

Daar ben ik weer. Elke stap verder roept weer andere problemen/vragen op.
De basis in de bijlage heb ik ergens hiervan daan en met veel hulp en zelf prutsen is dit tot zover het resultaat.
Het gaat goed behalve dat ergens onder water staat dat als ik in b.v. B het woord ziek invul er 5.30 aan uren wordt ingevuld en de teller achter ziektedagen met 1 omhoog gaat.
Omdat er een scriptje draait om bij 1200 de dubbele punt mee te geven gaat dit met het woord ziek terecht fout.
Zou iemand eens willen kijken hoe het zo te maken is dat er in B wel het woord ziek ingevuld mag worden, er dan nergens uren ingevuld worden maar wel de teller ziektedagen omhoog gaat.
Hoop dat de vraag een beetje duidelijk is.

 

[Warme bakkertje]

De rode tekst zorgt ervoor dat het script enkel loopt als een getal ingevuld wordt.

 If Not Intersect(target, Columns("B:C")) Is Nothing And Not IsEmpty(target) And [COLOR="Red"]IsNumeric(target) [/COLOR]And target.Cells.Count = 1 Then

Formule in F3

=ALS(ISTEKST(B3);TIJD(0;0;0);ALS(B3>C3;"24:00"-B3+C3-(E3-D3);C3-B3-(E3-D3)))

 

[rewico]

Dan volgt nu dan toch de domme vraag.
Zie nergens in het script die tekst staan.
Of snap ik het verkeerd?

 

[Warme bakkertje]

Ha nee, die heb ik er juist bijgezet
Voor de formule zie mijn vorige post

 

[rewico]

Formule had ik ook al gevonden, 5.30 vervangen voor 0.0. maar die VB regel snap ik niet.
Behalve niet snappen is het juist de bedoeling dat er ook het woord ziek ingevuld mag worden.

 

[Warme bakkertje]

Door de rode tekst kan je ' ziek ' invullen zonder dat het script verdergaat om de ' : ' toe te voegen
Vervang anders de macro die je nu gebruikt door onderstaande

Private Sub Worksheet_Change(ByVal target As Range)
  If Not Intersect(target, Columns("B:C")) Is Nothing And Not IsEmpty(target) And target.Cells.Count = 1 Then
    If Not IsNumeric(target) Then: Exit Sub
    Application.EnableEvents = False
    target = Replace(Format(target / 100, "00.00"), ",", ":")
    Application.EnableEvents = True
  End If
End Sub

 

[rewico]

Heel erg bedankt voor alweer goede hulp. Werkt nu picobello. opa begint de structuur nu iets beter te begrijpen.

 

[Warme bakkertje]

Suc6 dan verder opa

 

[rewico]

Toch nog iets kleins, het gaat goed in kolom B en c maar niet in d en E.
heb If Not Intersect(target, Columns("B:C:D:E")) toegevoegd maar is daar niet zo blij mee. er komt dan 0;00 te staan

 

[Warme bakkertje]

If Not Intersect(target, Columns("B:E"))

 

[huijb]

Daar ben ik weer.

Dan weet je ook hoe het werkt. Een duidelijke topictitel is een must voor de helpers. Derhalve titel veranderd.