time vs Day format
 

Have posted this in misc group, but think programming may have they
answer


HYCH.... I have the below code that calls a userform to be completed,
depending on the time.

ie, our night shift work from 21:00 to 06:00 and the below code
allows
me to call the userform mnpickfrm as long as the day in cell F2 is
shown as monday, but i am unable to pull this same form after
midnight,


i have the time being placed in q1, as a guide to whether 06:00 has
been passed, obviously the code below is not giving me the option to
pull back the mnpickfrm after midnight, can this be achieved with the
code below or am i missing something???


HYCH


Sub mnpick()


With Range("q1")
.Value = Time
End With
If Weekday(Worksheets("Load Input Sheet").Range("F2").Value) =
vbMonday Then
mnpickfrm.Show
Else
If Weekday(Worksheets("Load Input Sheet").Range("F2").Value) =
vbTuesday Then
Else
If (Worksheets("pick allocations").Range("q1").Value) <
"06:00:00"
Then
mnpickfrm.Show
Else
MsgBox "Incorrect Day Selected"
End If
End If
End If
End Sub

time vs Day format
 

On Jun 6, 12:35 am, K1KKKA wrote:
Have posted this in misc group, but think programming may have they
answer

HYCH.... I have the below code that calls a userform to be completed,
depending on the time.

ie, our night shift work from 21:00 to 06:00 and the below code
allows
me to call the userform mnpickfrm as long as the day in cell F2 is
shown as monday, but i am unable to pull this same form after
midnight,

i have the time being placed in q1, as a guide to whether 06:00 has
been passed, obviously the code below is not giving me the option to
pull back the mnpickfrm after midnight, can this be achieved with the
code below or am i missing something???

HYCH

Sub mnpick()

With Range("q1")
.Value = Time
End With
If Weekday(Worksheets("Load Input Sheet").Range("F2").Value) =
vbMonday Then
mnpickfrm.Show
Else
If Weekday(Worksheets("Load Input Sheet").Range("F2").Value) =
vbTuesday Then
Else
If (Worksheets("pick allocations").Range("q1").Value) <
"06:00:00"
Then
mnpickfrm.Show
Else
MsgBox "Incorrect Day Selected"
End If
End If
End If
End Sub

Understand no one was able to answer this query, but have managed to
sort it out, with a bit of playing round.


Sub mnpick()

With Range("q1")
.Value = Time
End With
If Weekday(Worksheets("Load Input Sheet").Range("F2").Value) =
vbMonday Then
mnpickfrm.Show
Else
If Weekday(Worksheets("Load Input Sheet").Range("F2").Value) = vbTuesday Then
Else

If (Worksheets("pick allocations").Range("q1").Value) <= "06:00:00" {Found converting this figure to decimal (ie 06:00 = 0.25 worked), will now allow the userform to show only prior to 06:00 after this access is denied.}
Then

mnpickfrm.Show
Else
MsgBox "Incorrect Day Selected"
End If
End If
End If
End Sub



Thought i would share this as i was able to get it working, might be
of some use to someone later



Steve