I am trying to create a Check In/Out Form for Computer Inventory.
The Status Column (A) has a drop down for "Going Out" "Coming In" and "Ready"
Based on what the Status Column says, I would like a pop up with an input box to show.
If the Status Column is set to "Going Out", the input popup should say, "Please Enter User's Name". The information entered should go into the corresponding column and Row(If "Going Out" is in A2 then the name entered should go into E2, A3, then E3, and so on).
If the Status Column is set to "Coming In", again, the input popup should say, "Please Enter User's Name" and this information go it F2, F3, etc.
If Status is set to Ready, then nothing needs to happen.
I was able to figure out how to get the pop up box but, I can't get the information to go into the corresponding row.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Text
Case "Going Out"
Call GoingOut
Case "Coming In"
Call ComingIn
Case "Ready for Users"
Exit Sub
Case Else
Exit Sub
End Select
End Sub
Sub GoingOut()
Dim Out As String
Out = InputBox(Prompt:="Please enter user's name.", Title:="User Name")
Sheets("In&Out").Range("E2").Value = Out
End Sub
Sub ComingIn()
Dim NewIn As String
NewIn = InputBox(Prompt:="Please enter user's name.", Title:="User Name")
Sheets("In&Out").Range("F2").Value = NewIn
End Sub
Bookmarks