Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Суммирование динамического диапазона с пропусками, Суммирование динамичной колонки
 
#1
15.03.2020 18:05:23
Доброго времени суток! Знатоки Макросов.
Выручите пожалуйста. нужен макрос который смог бы суммировать значения выше
Есть динамичная колонка
которая не смотря на обе варианта составленной накладной, должна внизу в красном прямоугольнике прописать сумму  
обе накладные во вложении.  
 
 
 
#2
15.03.2020 18:22:39
Цитата
нужен макрос
Код
Sub iSumma()
Dim iLastRow As Long
  iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
  Cells(iLastRow + 1, 5) = WorksheetFunction.Sum(Range("E5:E" & iLastRow))
End Sub
Изменено: Kuzmich - 15.03.2020 20:11:19
 
 
 
#3
15.03.2020 18:46:21
но этот макрос не справляется с динамичной колонкой.
к примеру если в списке больше игрушек
макрос должен суммировать если в списке даже более 100 наименований.
то есть мне нужен макрос альтернатива "alt + =" только игнорирующее если на ее пути будет одна пустая ячейка
Изменено: aybek04 - 15.03.2020 19:04:19
 
 
 
#4
15.03.2020 19:24:45
aybek04, название темы ни о чём. Предложите новое - модераторы поменяют.
 
 
 
#5
15.03.2020 19:52:45
Суммирование динамичной колонки с пропусками
 
 
 
#6
15.03.2020 20:51:04
Kuzmich все работает спасибо большое
 
 
 
#7
01.06.2020 16:45:00
Можно ли присоединиться к Вашей теме?
У меня похожая задача, но мне надо чтобы в ячейку (обязательно при помощи макроса) забивалась именно формула, а не её результат вычисления.

Требуется макрос, который будет вписывать в ячейку G238 ФОРМУЛУ суммирования всех ячеек выше. (Нужно чтобы формула была типа =СУММ(............) - а в скобки указывались значения диапазона. Диапазон всегда разный, так как кол-во строк всегда разное.
В данном случае требуется просуммировать диапазон G6:G237, но в таблице всегда разное кол-во строк и получается что диапазоны всегда разные.

P.S. Нужно вписывать макросом именно формулу, а не её результат вычисления. Как это можно сделать?
Пример прилагаю.
 
 
 
#8
01.06.2020 16:57:00
Код
Sub Summa()
Dim iLastRow As Long
  iLastRow = Cells(Rows.Count, "G").End(xlUp).Row
  Cells(iLastRow, "G").Formula = "=Sum(G6:G" & iLastRow - 1 & ")"
End Sub
 
 
 
#9
01.06.2020 17:04:05
Код
Cells(iLastRow, "G").FormulaR1С1 = "=Sum(R6C:R[-1]C")"
Изменено: БМВ - 01.06.2020 17:04:19
По вопросам из тем форума, личку не читаю.
 
 
 
#10
01.06.2020 20:19:20
Kuzmich,Спасибо, подошел способ. Всё работает!
 
 
 
Страницы: 1
Наверх