prompt box for inputting data

would this be better in the VBA forum?

bump bump bump

working on it, give me a min...

amazing thank you

Why not use the database entry form> http://spreadsheets.about.com/od/exc...data_form.htm?

great suggestion, just that it needs to be a little more user friendly and convenient for the users.

i really just need boxes saying DO THIS.. NOW DO THIS. :P

Ok, put this in a standard module:

Sub AddRow()

With ActiveSheet
    .Cells(.Cells(Rows.Count, "b").End(xlUp).Row + 1, 2).Resize(, 8).Value = Array(InputBox("please enter venue name"), _
                                                InputBox("please enter Closest Railhead"), _
                                                InputBox("please enter Alternate railhead"), _
                                                "", _
                                                "", _
                                                InputBox("Please enter venue Postcode"), _
                                                InputBox("Please enter Latitude"), _
                                                InputBox("Please enter Longitude"))
End With

End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose Tools | Macro | Macros
Select a macro in the list, and click the Run button

this is absolutely great, how would i get it to start in A instead of Column B?

Change:

.Cells(.Cells(Rows.Count, "b").End(xlUp).Row + 1, 2)

to

.Cells(.Cells(Rows.Count, "a").End(xlUp).Row + 1, 1)

perfect, thank you so much for your help

i also came up with the attached... dont know if it works for you...
Book1.xlsm
Not quite done, still errors if nothing is entered...

Hi Legend,

try not to select things in your code, it slows it down and makes the screen flicker. For example:

    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.ClearContents

Can be written as:

Rows("1:1").ClearContents

and:

    Range("H1").Select
        ActiveCell.FormulaR1C1 = Longitude

as:

Range("h1").value = Longitude

is there any way to keep the formulas in the D and E cells?

Sorry, my internet blitzed yesterday.
You have marked this as solved, did you get everything you were looking for?
Did my suggestion help? If so, kindly click the star below my name
Thanks.

yes it works perfectly, i decided to stop being lazy and just drag the formula down from the above row. i tried to add a star yesterday but it said i couldn't add any more to your name untill i had starred another person :p thank you so much for the help