A
Anthony
Hi all,
Can anybody help in showing me how I can have a userform displayed when the
time is equal to 11am ??
Once displayed the user then has two options to chose from,,
YES or NO
if they select NO how do I then redisplay the userform 1hour later, if they
select YES display userform2
i have managed to edit some old code to get part of my question answered.
This code will display my userform if the time is after 11am
Private Sub Workbook_Open()
Dim z As Date, t As Date
z = Sheets("sheet1").Range("E1").Value
t = z - Int(z)
If TimeValue(t) > "11:00" Then
frmSweepcheck.Show
Else
Sheets("sheet1").Select
End If
End Sub
but how do I change this so that the userform Sweepcheck is re-displayed at
1200 (ie 1hr later than 11am) if the user selects NO as the option from the
Sweepcheck userform?
thanks
Can anybody help in showing me how I can have a userform displayed when the
time is equal to 11am ??
Once displayed the user then has two options to chose from,,
YES or NO
if they select NO how do I then redisplay the userform 1hour later, if they
select YES display userform2
i have managed to edit some old code to get part of my question answered.
This code will display my userform if the time is after 11am
Private Sub Workbook_Open()
Dim z As Date, t As Date
z = Sheets("sheet1").Range("E1").Value
t = z - Int(z)
If TimeValue(t) > "11:00" Then
frmSweepcheck.Show
Else
Sheets("sheet1").Select
End If
End Sub
but how do I change this so that the userform Sweepcheck is re-displayed at
1200 (ie 1hr later than 11am) if the user selects NO as the option from the
Sweepcheck userform?
thanks