Excel Assistance с кнопкой VBA, которая добавляет новые строки с выпадающими списками и формулой - PullRequest
0 голосов
/ 04 марта 2019

Я добавил кнопку, чтобы добавить новые строки, которые полуобработаны и нуждаются в некоторой помощи, чтобы улучшить их или открыть для новых предложений.

Поэтому, когда кнопка нажата, появляется всплывающее окно для вводажелаемое количество пустых строк, начиная со строки 5. Это работает, и выпадающие списки есть, однако любая формула очищается.

У меня есть этот VBA

Sub AddRows()

Dim x As Integer

x = InputBox("How many rows would you like to add?", "Insert Rows")

'Selecting range to insert new cells
Range(Cells(5, 1), Cells(x + 4, 1)).EntireRow.Insert

'Copys current cell A6 and past in the new cells
Cells(x + 5, 1).Copy Range(Cells(5, 1), Cells(x + 4, 1))

'if you want the cells to be blank but still have the drop down options
Range(Cells(5, 1), Cells(x + 4, 1)).ClearContents

End Sub

У меня есть формула встолбцы I, J, K, L, Q, R, V, W, X.Есть ли способ, которым новая строка может сохранить формулу?

Я думаю, что она оставила бы строку пустой, если бы я очистила только ячейки без формул.A - H, M - P, S, T, U, Y, Z

Любая помощь с благодарностью.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...