Thnx, aller eerst nog de beste wensen voor het nieuwe jaar.
Ik zit met een issue, ik heb in de kolommen de formule aangepast naar bv =ALS(W2<>"N.N.";ALS.FOUT(DATUMVERSCHIL(VANDAAG();W2+365;"d");"Verlopen");" -")
Maar door 1 of andere manier wijzigt deze soms bij invoer, ik heb het idee dat onderstaande code hier invloed op heeft en de aangepaste formule overschrijf als er een fout ontstaat.
Zoals ik al aangaf zijn niet alle data nodig en word bij sommige N.N. (Niet nodig) ingevoerd.(waarna een foutmelding komt) en deze zorgt er juist voor de de bastaande formule in blad1 komt te vervallen en deze terug wordt gezet.
Bijgaand even mijn aangepaste bestand
Ik zit met een issue, ik heb in de kolommen de formule aangepast naar bv =ALS(W2<>"N.N.";ALS.FOUT(DATUMVERSCHIL(VANDAAG();W2+365;"d");"Verlopen");" -")
Maar door 1 of andere manier wijzigt deze soms bij invoer, ik heb het idee dat onderstaande code hier invloed op heeft en de aangepaste formule overschrijf als er een fout ontstaat.
Code:
Private Sub C_1_Click()
' For i = 1 To 45
'If Me("T" & i).Value = "" Then
' MsgBox "Niet volledig ingevuld!", vbInformation, "Niet compleet"
'Me("T" & i).SetFocus
'Exit Sub
'End If
'Next
With Blad1
x = .[a1000].End(xlUp).Offset(1).Row
For i = 1 To 47
If Me("t" & i) <> "" Then
If i = 6 Or i = 13 Or i = 23 Or i = 25 Or i = 27 Or i = 29 Or i = 31 Or i = 33 Or i = 35 Or i = 37 Or i = 39 Or i = 42 Or i = 44 Or i = 46 Then
Select Case i
Case 6
.Cells(x, i).Value = Format(Me("T" & i).Value, "mm/dd/yyyy")
Case 13
.Cells(x, i).Value = Format(Me("T" & i).Value, "mm/dd/yyyy")
.Cells(x, i + 1).FormulaR1C1 = "=IFERROR(DATEDIF(TODAY(),RC[-1] ,""d""),""neen"")"
i = i + 1
Case 23, 25
.Cells(x, i).Value = Format(Me("T" & i).Value, "mm/dd/yyyy")
.Cells(x, i + 1).FormulaR1C1 = "=IFERROR(DATEDIF(TODAY(),RC[-1]+365 ,""d""),""neen"")"
i = i + 1
Case 27, 35, 37, 39, 42, 44, 46
.Cells(x, i).Value = Format(Me("T" & i).Value, "mm/dd/yyyy")
.Cells(x, i + 1).FormulaR1C1 = "=IFERROR(DATEDIF(TODAY(),RC[-1]+1095 ,""d""),""neen"")"
i = i + 1
Case 29, 33
.Cells(x, i).Value = Format(Me("T" & i).Value, "mm/dd/yyyy")
.Cells(x, i + 1).FormulaR1C1 = "=IFERROR(DATEDIF(TODAY(),RC[-1]+3652 ,""d""),""neen"")"
i = i + 1
Case 31
.Cells(x, i).Value = Format(Me("T" & i).Value, "mm/dd/yyyy")
.Cells(x, i + 1).FormulaR1C1 = "=IFERROR(DATEDIF(TODAY(),RC[-1]+1825 ,""d""),""neen"")"
i = i + 1
End Select
Else
.Cells(x, i).Value = Me("T" & i).Value
End If
End If
Next
.Cells(1, 1).CurrentRegion.Sort key1:=.Cells(1, 2), key2:=.Cells(1, 6), Header:=xlYes
End With
MsgBox "Cursist toegevoegd", vbInformation, "Klaar"
For Each ctrl In Controls
If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Then ctrl.Value = ""
Next
Call UserForm_Initialize
End Sub
Zoals ik al aangaf zijn niet alle data nodig en word bij sommige N.N. (Niet nodig) ingevoerd.(waarna een foutmelding komt) en deze zorgt er juist voor de de bastaande formule in blad1 komt te vervallen en deze terug wordt gezet.
Bijgaand even mijn aangepaste bestand