Ik heb een mooi formulier die, als je op de datum klikt, om de zwangerschapduur vraagt en dan automatisch berekent hoe oud een kind nu echt is.
Elke dag verder, rekent het formulier er zelf een dag bij. Dit heb ik in orde gekregen m.b.v. dit mooie forum.
Nu doet het formulier dit prima bij de 1e 3 tabbladen, maar bij de resterende 3 andere tabbladen telt hij er niet meer automatisch een dag bij op. Ik kan maar niet opspeuren wat hier nu mis mee is. Ik hoop dat iemand dit wel ziet....
Ik heb het bestand bijgevoegd via link, ik kreeg het helaas niet kleiner dan 100kb. Bestand via wetransfer
En dit is de code die er gebruikt wordt:
Groet,
Josh
Elke dag verder, rekent het formulier er zelf een dag bij. Dit heb ik in orde gekregen m.b.v. dit mooie forum.
Nu doet het formulier dit prima bij de 1e 3 tabbladen, maar bij de resterende 3 andere tabbladen telt hij er niet meer automatisch een dag bij op. Ik kan maar niet opspeuren wat hier nu mis mee is. Ik hoop dat iemand dit wel ziet....
Ik heb het bestand bijgevoegd via link, ik kreeg het helaas niet kleiner dan 100kb. Bestand via wetransfer
En dit is de code die er gebruikt wordt:
Code:
Private Sub Workbook_Open()
For j = 1 To 3
With Sheets("Unit " & j)
If CDbl(.Cells(43, 12)) < CDbl(Date) Then
For i = 5 To 33 Step 4
If .Cells(i, 2) <> vbNullString Then
weeks = DateDiff("w", .Cells(i, 2), Date, 2): days = DateDiff("d", .Cells(i, 2), Date, 2) Mod 7
.Cells(i, 2).Offset(, 1) = weeks & " wkn " & days & " dgn"
trm = Split(.Cells(i, 2).Offset(1), "+")
nuweeks = trm(0) + weeks: nudays = trm(1) + days
If nudays > 6 Then
nuweeks = nuweeks + IIf(nudays Mod 6 <> 0, 1, 2)
nudays = nudays Mod 6
End If
.Cells(i, 2).Offset(2) = "nu " & nuweeks & "+" & nudays
End If
Next
End If
.Cells(43, 12) = Date
End With
Next
End Sub
Groet,
Josh
Laatst bewerkt: