Create a button that adds data to the row

[RafaInfo]

Hi everyone,

I need to create a excel file that will organize a give stock.
For each user, I have to assign the device and the give company.
Is it possible to create an "add" button which adds given Username,device and quantity to the line?

So if I press the button, if it's possible to have a popup asking for the username, another one for the device and the last one for the quantity.

Thank you

 

[My Aswer Is This]

You said:
Is it possible to create an "add" button which adds given Username,device and quantity to the line?

To the line?
What line.
Please add some specific details.
Like sheet name what column or and row

 

[RafaInfo]

Sorry for my english.
I mean; when I press the button, it will add username at A column (A1 for the first username), device at B column (B1 for the first device) and quantity at C column (C1 for the first given quantity).

If I press again "Add", it will add a new user,device and quantity in a new row (A2 for username, B2 for device and C2 for quantity).

 

[My Aswer Is This]

Would you like this:
It only requires one InputBox

When Input Box popsup

Enter values like this:

George,Clock,45

Notice you must enter a comma between each value.

If you don't like this I can write it to use three Inputboxes.

Sub Enter_Data()
'Modified  12/22/2020  11:09:15 AM  EST
On Error GoTo M
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row + 1
Dim ans As String
ans = InputBox("Enter Username Device Quanity ", "Like This:  George, Bulb, 45")
Dim LString As String
Dim LArray() As String
LString = ans
LArray = Split(LString, ",")
Cells(Lastrow, 1).Value = LArray(0)
Cells(Lastrow, 2).Value = LArray(1)
Cells(Lastrow, 3).Value = LArray(2)
Exit Sub
M:
MsgBox "We had a problem." & vbNewLine & "You entered" & vbNewLine & ans & vbNewLine & "You must enter a comma , between each value"

End Sub

 

[RafaInfo]

Thank you very much.
It works perfectly :D

 

[My Aswer Is This]

Thank you very much.
It works perfectly :D

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.