Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Продлить формулу от активной ячейки макросом
 
Здравствуйте!
В поисковике не нашел, есть не большей макрос. Работает. Но наткнулся на проблему. Как продлить формулу так, как это делает 1-я строчка, только от активной ячейки(с формулой), после работы 5-й строчки  (в будущем 6-я строчка)
Заранее спасибо!
Могу прикрепить файлик.

Код
        Range("L7:L" & Cells(Rows.Count, 1).End(xlUp).Row).Formula = "=RC[1]+R3C21"
        Dim i As Range
        Set i = Range("M6:M1000").Cells.Find(What:=TimeSerial(0, 0, 0))
        If Not i Is Nothing Then i.Offset(0, -1).Activate
        ActiveCell.FormulaR1C1 = "=RC[1]+R3C21+1"
 
вот так?
Код
Range("L" & ActiveCell.Row, "L" & Cells(Rows.Count, 1).End(xlUp).Row).Formula = "=RC[1]+R3C21+1"
Работать надо не 12 часов, а головой.
 
Очень сильно СПС
Страницы: 1
Читают тему (гостей: 1)