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

Hi,

Look at Application.OnTime

In the VBA help area
--
Thanks,
Shane Devenshire


"Anthony" wrote:

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

I'll give that a look,
Thanks

"ShaneDevenshire" wrote:

Hi,

Look at Application.OnTime

In the VBA help area
--
Thanks,
Shane Devenshire


"Anthony" wrote:

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