tonissteiner
Gebruiker
- Lid geworden
- 17 sep 2008
- Berichten
- 337
iemand een oplossing voor mijn probleem?
ik heb volgende code:
deze werkt goed zolang er een datum ingevuld is. zodra cancel gedrukt is loopt de code vast. ook indien geen datum ingevuld.
een leeg veld laten zou handig zijn om de filter te resetten.
waar ben ik fout?
alvast bedankt
ik heb volgende code:
Code:
Private Sub CommandButton1_Click()
Dim currentd As Date
currentd = DateValue(InputBox("Date to print?", "Valid Format - dd/mmm/yyyy", Date))
If currentd = Empty Then Exit Sub
' If IsError(currentd) Then
' MsgBox ("Error. Please input a valid Date or leave blank")
' Exit Sub
' End If
With ActiveSheet
.AutoFilterMode = False
.Range("E7").AutoFilter
With .AutoFilter.Range
Range("E7").Select
Selection.AutoFilter Field:=5, Criteria1:=">=" & Format$(currentd, "mm/dd/yyyy"), Operator:=xlAnd, _
Criteria2:="<=" & Format$(currentd, "mm/dd/yyyy")
End With
End With
End Sub
deze werkt goed zolang er een datum ingevuld is. zodra cancel gedrukt is loopt de code vast. ook indien geen datum ingevuld.
een leeg veld laten zou handig zijn om de filter te resetten.
waar ben ik fout?
alvast bedankt