Страницы: 1
RSS
Вставить формулу в столбец с определенным значением
 
Добрый день, уважаемые!

Помогите решить задачу:
Есть большая книга с кучей листов, в которой каждая колонка называется либо "Auto" либо "Manual".
В ней строки заполняются каждую неделю, и необходимо каждую неделю формулы с определенных колонок "протягивать" вниз (протягивать формулу сразу на несколько недель вперед не нужно)
Нужно "протащить" макросом формулу вниз на одну строку ниже, но только в том случае, если колонка называется "Auto", если колонка называется "Manual", то ничего с ней делать не надо, переходить к следующей колонке и выпонить тоже самое действие по этому условию, и так далее

Вот это условие я никак не могу прописать, очень надеюсь на вашу помощь!
Маленькиий файлик с примером в приложении
 
Код
Sub Auto_Fill()
On Error Resume Next
Dim cl As Range
lClmn = Cells(1, Columns.Count).End(xlToLeft).Column
For Each cl In Range(Cells(1, 1), Cells(1, lClmn)).Cells
    If cl.Value = "Auto" Then
        lRow = Cells(Rows.Count, cl.Column).End(xlUp).Row
        Cells(lRow, cl.Column).AutoFill Destination:=Range(Cells(lRow, cl.Column), Cells(lRow + 1, cl.Column))
    End If
Next
End Sub
Согласие есть продукт при полном непротивлении сторон
 
Спасибо, работает!!
Страницы: 1
Наверх