I have a data base in which I want to click on a button and input all of the data that is interesting to me. But i can't figure out the simplest way to make a loop that moves the range + 1 every time I run the macro. Any ideas? Bigger
I have already tried some functions provided in other questions.
Sub Terreno()
Range("A79").Select
ActiveCell.FormulaR1C1 = InputBox("City: ")
Range("B79").Select
ActiveCell.FormulaR1C1 = InputBox("Name: ")
Range("C79").Select
ActiveCell.FormulaR1C1 = InputBox("Area: ")
Range("D79").Select
ActiveCell.FormulaR1C1 = InputBox("Price: ")
Range("F79").Select
ActiveCell.FormulaR1C1 = InputBox("Currency: ")
Range("I79").Select
ActiveCell.FormulaR1C1 = InputBox("Status: ")
Range("M79").Select
ActiveCell.FormulaR1C1 = InputBox("Contact: ")
Range("N79").Select
ActiveCell.FormulaR1C1 = InputBox("Phone: ")
Range("O79").Select
ActiveCell.FormulaR1C1 = InputBox("E-mail: ")
End Sub
I expect when I run the macro it will change rows in every data input