Здравствуйте интересует как реализовать следующий функционал: Имеется несколько столбцов и строк, в которых зашиты список и формулы, осуществляющие пересчет на основе выбранного значения из списка. Необходимо по нажатию по кнопке добавлять ниже такой же блок строк с формулами с очисткой значений второго столбца. Прошу помочь в решении или хотя бы направить направление где это можно скопировать с доработкой (опытов в макросах нет).
Здравствуйте интересует как реализовать следующий функционал: Имеется несколько столбцов и строк, в которых зашиты список и формулы, осуществляющие пересчет на основе выбранного значения из списка. Необходимо по нажатию по кнопке добавлять ниже такой же блок строк с формулами с очисткой значений второго столбца. Прошу помочь в решении или хотя бы направить направление где это можно скопировать с доработкой (опытов в макросах нет).ilb29071989
Sub Мяу() Dim lr& With ActiveSheet lr = .Cells(.Rows.Count, 1).End(xlUp).Row .Range("A1:C5").Copy .Cells(lr + 1, 1) .Cells(lr + 1, 2) = "не выбрано" End With End Sub
[/vba]
[vba]
Код
Sub Мяу() Dim lr& With ActiveSheet lr = .Cells(.Rows.Count, 1).End(xlUp).Row .Range("A1:C5").Copy .Cells(lr + 1, 1) .Cells(lr + 1, 2) = "не выбрано" End With End Sub
Спасибо все получилось! Но возник вопрос, что делать, если например значение из первого столбца пустое, а формулы заранее прописаны так, что учитывают весь диапазон, например минимум из 6 значений, если заполнить 2 значения, то при добавлении нового блока ячеек, все строки где был пустой столбец обрежутся, и добавиться блок из 8 строк, как можно решить такую задачу?
Спасибо все получилось! Но возник вопрос, что делать, если например значение из первого столбца пустое, а формулы заранее прописаны так, что учитывают весь диапазон, например минимум из 6 значений, если заполнить 2 значения, то при добавлении нового блока ячеек, все строки где был пустой столбец обрежутся, и добавиться блок из 8 строк, как можно решить такую задачу?ilb29071989
Сообщение отредактировал Serge_007 - Понедельник, 11.07.2022, 12:52