Здравствуйте!
В поисковике не нашел, есть не большей макрос. Работает. Но наткнулся на проблему. Как продлить формулу так, как это делает 1-я строчка, только от активной ячейки(с формулой), после работы 5-й строчки (в будущем 6-я строчка)
Заранее спасибо!
Могу прикрепить файлик.
В поисковике не нашел, есть не большей макрос. Работает. Но наткнулся на проблему. Как продлить формулу так, как это делает 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" |