Ищу четвертый день решение в интернете, к сожалению не получается.
Я начинающий в программировании VBA, прошу быть по снисходительнее, пожалуйста.
На активном листе следующий макрос:
ищет слово "столб" и проставляет формулу в столбце до последней строки, где есть данные, анализируя столбец "А".
Суть проблемы в том, что от первой строки до строки в которой находится слово "столб" есть пропущенные строки, их я удалить не могу (нужны в процессе работы), так вот макрос проставляет формулу в столбце ниже ровно на столько сколько я отступил сверху строк, т.е. выходит за нужный мне диапазон.
И не получается поставить "If" в совокупе с "MxBox" для вывода окошка "заголовок "столбец" не найден"
Буду очень признателен за помощь.
Я начинающий в программировании VBA, прошу быть по снисходительнее, пожалуйста.
На активном листе следующий макрос:
| Код |
|---|
Sub Вставка_формулы_в_область()
' Поиск
Cells.Find(What:="столб").Activate
'вставка формулы в выделенную область
ActiveCell.Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=RC[-2]+RC[-1]"
End Sub
|
ищет слово "столб" и проставляет формулу в столбце до последней строки, где есть данные, анализируя столбец "А".
Суть проблемы в том, что от первой строки до строки в которой находится слово "столб" есть пропущенные строки, их я удалить не могу (нужны в процессе работы), так вот макрос проставляет формулу в столбце ниже ровно на столько сколько я отступил сверху строк, т.е. выходит за нужный мне диапазон.
И не получается поставить "If" в совокупе с "MxBox" для вывода окошка "заголовок "столбец" не найден"
Буду очень признателен за помощь.
Изменено: - 06.09.2019 12:28:52
(Увидел что код заключается в скобки)
