Input box help

[Coppa]

Any help here would be greatly appreciated!

I have a list of numbers (1-> x in order) , Names, and each name is associated with a region, (Region 1,2,3 or 4).

So my data is structured as

1 Bob Region 1
2 Mary Region 2
3 Mark Region 1
etc

I would like to add an input box which asks
"What is the new students name" <to be typed in>
"Which region do they come from" <to be selected from the limited list of regions>

This would then get added to the bottom of the table including the additional number , i.e in my little example above

4 John Region 2

Any help is much appreciated. Thanks

 

[Akashwani]

Hi Coppa,

Welcome to MrExcel.

Take a look at this sample file and see if you can use/modify it....

Coppa.xls


Good luck.

Ak

 

[VoG]

Try

Sub AddData()
Dim X, s As String, LR As Long
s = InputBox("Enter name and region separated by comma", "Data entry", "John,1")
If s = "" Then Exit Sub
X = Split(s, ",")
LR = Range("A" & Rows.Count).End(xlUp).Row
With Range("A" & LR + 1)
    .Value = .Offset(-1).Value + 1
    .Offset(, 1).Value = X(0)
    .Offset(, 2).Value = "Region " & X(1)
End With
End Sub