Range("E3:E" & lLastRow).FormulaR1C1 = "=SUMIF(Лист1!C4,RC1,Лист1!C11)"
Range("F3:F" & lLastRow).FormulaR1C1 = "=SUMIF(Лист1!C4,RC1,Лист1!C12)"
Range("G3:G" & lLastRow).FormulaR1C1 = "=SUMIF(Лист1!C4,RC1,Лист1!C13)"
Range("H3:H" & lLastRow).FormulaR1C1 = "=SUMIF(Лист1!C4,RC1,Лист1!C14)"
Range("I3:I" & lLastRow).FormulaR1C1 = "=RC7-RC5"
Range("J3:J" & lLastRow).FormulaR1C1 = "=RC8-RC6"
Range("M3:M" & lLastRow).FormulaR1C1 = "=SUMIF(Лист2!C4,RC1,Лист2!C17)"
Range("N3:N" & lLastRow).FormulaR1C1 = "=SUMIF(Лист2!C4,RC1,Лист2!C18)"
Range("P3:P" & lLastRow).FormulaR1C1 = "=RC9+RC13"
Range("Q3:Q" & lLastRow).FormulaR1C1 = "=RC10+RC14"
Range("E3:Q" & lLastRow).Value = Range("E3:Q" & lLastRow).Value
Range("A3:Q" & lLastRow).Sort Range("B3"), xlAscending
ActiveSheet.Range("$A$1:$Q" & lLastRow).AutoFilter Field:=16, Criteria1:="<>0", Operator:=xlAnd
Application.ScreenUpdating = 1
End Sub
Добрый вечер. Написал я макрос....вернее часть макроса (нижнюю), если быть точным мои только название столбцов и листов.....
Не могу написать к этому макросу шапку (то есть его верхнюю часть)...пробовал записывать формулы при записи макроса (что бы скопировать шапку) ни чего не выходит... Смысл макроса - просто выполнять прописанные формулы.
помогите завершить макрос