Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как макросу протянуть нужное колличество строк формул
 
#1
20.01.2017 10:56:51
Всем привет, ребята нужна ваша помощь, никак не получается решить уверен пустяковую проблему. В колонки A-D (зеленые) вставляются исходные данные, затем маркрос удаляет все ненужное. Количество строк в исходных данных всегда разное.Тут и начинается самое интересное в колонках E-J (желтые), записаны различные формулы которые необходимо протянуть по вему массиву колонок A-D, чтобы в итоге получилась автосумма в колонке K. Никак не могу научить макрос протягивать нужное колличество строк. Если появляются лишние протянутые строку автосумма не считается. Возможно все формулы в желтых колонках можно записать в макрос, но это для меня космос...
 
 
 
#2
20.01.2017 11:40:56
Код
Sub ПротянутьФормулы()
With ActiveSheet
    .Range("E2:J2").AutoFill .Range("E2:J" & .Cells(.Rows.Count, "D").End(xlUp).Row)
End With
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
20.01.2017 13:40:31
Sanja большое спасибо! С макросами разбираюсь меньше недели и на данный момент строка которую вы прислали для меня как магия)) Но все работает!!!
получилось скрестить то что уже было с вашей строкой, теперь все еще лучше (в один клик). Но, всегда есть но, можно сделать так чтобы макрос проверял и удалял заполненные строки ниже пересчета, оставшиеся после предыдущего документа? Или считал сумму только по колличеству строк нового пересчета а не по всей колонке?
Изменено: BMSs - 20.01.2017 13:47:23
 
 
 
#4
20.01.2017 14:08:49
BMSs, вообще-то на форуме по Excel картинки как-то неуместно выглядят (см. Правила, п.2.3).
Последний раз, в виде исключения
Код
Sub ПротянутьФормулы()
With ActiveSheet
    .Range("E3:J" & .Cells(.Rows.Count, "J").End(xlUp).Row).ClearContents
    .Range("E2:J2").AutoFill .Range("E2:J" & .Cells(.Rows.Count, "D").End(xlUp).Row)
End With
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
20.01.2017 14:15:54
Спасибо, все получилось! И спасибо за "последний раз", учту.
 
 
 
Страницы: 1
Наверх