Input box to enter hours and minutes

[brianfosterblack]

I please need some help with an Inputbox. The user needs to enter the hours and minutes (or minutes only) in the Activecell for the time spent on a task

Activecell.value = InputBox ("Enter the hours and minutes spent on the task in this format 1:30 or 0:45")

The entry needs to be verified as being in the right format.

Can anyone please help with this

 

[dmt32]

Hi,
try

Sub GetTime()
    Dim Entry           As Variant
    Dim ValidTimeEntry  As Boolean
    Dim strDefault      As String
    
    Do
        Entry = InputBox("Enter the hours And minutes spent On the task in this format 1:30 Or 0:45", "Enter Time", strDefault)
        'cancel pressed
        If StrPtr(Entry) = 0 Then Exit Sub
        On Error Resume Next
        ValidTimeEntry = IsDate(TimeValue(Entry))
        On Error GoTo 0
        strDefault = "Invalid Time Entry"
    Loop Until ValidTimeEntry
    
    Entry = TimeValue(Entry)
    
    
    ' rest of code
    
    
End Sub

Dave

 

[brianfosterblack]

Hi,
try

Sub GetTime()
    Dim Entry           As Variant
    Dim ValidTimeEntry  As Boolean
    Dim strDefault      As String
   
    Do
        Entry = InputBox("Enter the hours And minutes spent On the task in this format 1:30 Or 0:45", "Enter Time", strDefault)
        'cancel pressed
        If StrPtr(Entry) = 0 Then Exit Sub
        On Error Resume Next
        ValidTimeEntry = IsDate(TimeValue(Entry))
        On Error GoTo 0
        strDefault = "Invalid Time Entry"
    Loop Until ValidTimeEntry
   
    Entry = TimeValue(Entry)
   
   
    ' rest of code
   
   
End Sub

Dave

Hi Dave, thanks for the reply but this code is not working. It enters nothing in the cell even though the code is running through. The last line of code I am entering before plugging in your code is

Activecell.offset (0,-1).Select

Next line is your code.
I am doing this to select the cell whereas before I had the code as

Activecell.offset (0,-1).value = Inpubox....

 

[dmt32]

Solution provides validation of entry you requested & I added at the end, this code
& comment

Entry = TimeValue(Entry)
    
    
    ' rest of code

where you would use the variable Entry as required in your code

for instance

ActiveCell.Value = Entry

Hope Helpful

Dave

 

[brianfosterblack]

Solution provides validation of entry you requested & I added at the end, this code
& comment

Entry = TimeValue(Entry)
   
   
    ' rest of code

where you would use the variable Entry as required in your code

for instance

ActiveCell.Value = Entry

Hope Helpful

Dave

Hi Dave,
This works perfectly. Thank you so much for your assistance.

 

[dmt32]

Hi Dave,
This works perfectly. Thank you so much for your assistance.

welcome & appreciate the feedback

Dave