Time issue with Day Format

[K1KKKA]

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

 

[K1KKKA]

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.



- Hide quoted text -
- Show quoted text -

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