Need code for Input boxes

[Tmoske]

Need code that will open a input box and ask a user for a date and a count of users for that date. I can't install the Date picker add-in so I want the there to be some validation for the date format. Example: 01 JAN 12. I want the output's to be shown in the next empty cell in the range K8:K200 and L8:L200

Thanks in advance,
-Tmoske

 

[bstory84]

Try this.
I did not know the sheet name so this defaults to whatever is the active sheet.

Sub user_input()
Dim kRng As Range
Dim usrDt As Variant
Dim usrNum As Variant
Dim myRow As Integer
    
    
    Set kRng = Range("K8:K200")
 
    usrDt = InputBox("Please Enter Date Here", "Enter DATE", "01 JAN 12")
        If IsDate(usrDt) Then
        Else
            MsgBox ("please enter Valid Date")
            Exit Sub
        End If
    usrNum = InputBox("Please enter count of Users for the day", "Coun of users", "#")
        If IsNumeric(usrNum) Then
            Else
            MsgBox ("please enter a valid number")
            Exit Sub
            End If
    myRow = Application.CountA(kRng)
    Range("K8").Offset(myRow).Value = usrDt
    Range("K8").Offset(myRow, 1).Value = usrNum
    
End Sub

 

[Tmoske]

Great job...this works very well!

Thanks for the quick reply.

-Tmoske