У меня есть база данных, в которой я хочу нажать на кнопку и ввести все данные, которые мне интересны. Но я не могу найти самый простой способ сделать цикл, который перемещает диапазон + 1 каждый раз, когда я запускаю макрос. Есть идеи? Bigger
Я уже попробовал некоторые функции, предусмотренные в других вопросах.
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
Я ожидаю, что при запуске макроса он будет менять строки при каждом вводе данных