Datums

[don42]

Beste allemaal,
wie kan mij helpen met het volgende
had graag een Msgbox met een waarschuwing als
in het gebied A2 tm AC133 een datum wordt ingegeven die kleiner is dan 1-1-15 en groter dan 30-6-15
Het eerste half jaar dus je mag er alleen datums invullen voor het eerste half jaar
wie kan mij daar mee helpen

bvd
Don

 

[Arliator]

Je bedoelt zoiets?
Hij kijkt nu alleen als de datum groter is dan 30-6-2015.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A2:AC133")) > "30/6/2015" Then
MsgBox "Pas op"
End If

End Sub

Plaats dit niet in een module, maar in Blad1, er van uitgaande dat je daar je data in gaat kloppen.

 

[don42]

Hoi bedankt voor je reactie, het werkt bij mij helaas niet
als is bv 2-2-15 in tik dan krijg ik geen melding = goed
maar 5-5-15 geeft wel een msg dat is toch raar!

 

[Arliator]

Zeker raar, want bij mij werkt het wel goed, ik kan alles invullen wat ik wil, maar hij reageert precies zoals ik had verwacht.
Kun je anders je bestand waar het fout gaat uploaden?
Dan kijk ik er vanavond naar, want ik moet nu een paar uur weg.

 

[don42]

Bekijk bijlage datum3.xlsm

Hoop dat je er iets mee kunt het valt me op dat datum boven de 10 bv 12-5-15 de verkeerde melding geeft

 

[edmoor]

Gebruik deze eens. Daar zitten beide datums in en kun je ook gewoon andere dingen dan datums ingeven. Tevens wordt de cel leeg gemaakt wanneer een onjuiste datum is ingegeven. Als je het net iets anders wilt kun je dat eenvoudig aanpassen.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:AC133")) Is Nothing Then
        On Local Error Resume Next
        If Target.Value > DateValue("30-6-2015") Or Target.Value < DateValue("1-6-2015") Then
            MsgBox "Onjuiste datum ingegeven"
            Target.Value = vbNullString
        End If
        On Local Error GoTo 0
    End If
End Sub

 

[Arliator]

Ik zie dat Edmoor een oplossing heeft gepost.
Veel uitgebreider dan ik, ik wacht even af of dit wel werkt.

 

[edmoor]

Ik wilde je niet in de wielen rijden maar omdat de laatste reactie alweer van afgelopen middag is heb ik toch maar even gereageerd.

 

[don42]

Hoi edmoor top, super dat de foute invoer gewist kan worden
maar

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:AC133")) Is Nothing Then
        On Local Error Resume Next
        If Target.Value > DateValue("30-6-2015") Or Target.Value < DateValue("1-1-2015") Then
            MsgBox "Onjuiste datum ingegeven"
            Target.Value = vbNullString
        End If
        On Local Error GoTo 0
    End If
End Sub

maar als ik nu een later datum invul komt de msgBox maar die krijg ik niet meer weg kan op oké klikken wat ik wil

 

[edmoor]

Ik zie het. Dat komt omdat het leeg maken van de cel het Change event weer triggert. Probeer deze maar eens:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:AC133")) Is Nothing Then
        If Target.Value = vbNullString Then Exit Sub
        On Local Error Resume Next
        If Target.Value > DateValue("30-6-2015") Or Target.Value < DateValue("1-1-2015") Then
            MsgBox "Onjuiste datum ingegeven"
            Target.Value = vbNullString
        End If
        On Local Error GoTo 0
    End If
End Sub

 

[don42]

Ja dit is hem
heel erg bedankt voor deze mooie oplossing
:thumb:

 

[edmoor]

Graag gedaan

 

[Arliator]

Edmoor,

Geen enkel probleem dat je het hebt opgelost.
Ik ervaar dat niet als iets verkeerds. Het gaat erom dat de vraagsteller wordt geholpen, wie dat doet maakt mij echt niet uit.
Dus gewoon blijven doen wat mij betreft, ook al heb ik zeer recent een reactie geplaatst, als jij iets beter/ mooier / robuuster weet, gewoon posten, leer ik ook van.
Want ik kan nog lang niet alles in Excel en zeker VBA niet.

 

[edmoor]

Want ik kan nog lang niet alles in Excel en zeker VBA niet.

Ik ook niet, maar met z'n allen hier komen we een heel eind