Добрый день! Прошу помощи, всю голову сломал. Необходимо просуммировать значения по условию. Информация во вложенном файле.  

Добрый день. Прошу помощи. Есть .xltm шаблон, который наполняется из другого файла, в результате работы множества макросов.
Далее шаблоном генерится .xlsx, в котором необходимо автоматически отсортировать данные по столбцу. Каким образом это можно реализовать?

Доброго дня!
Есть большая таблица с кучей формул. Периодически возникает потребность очистки данных вручную введенных пользователями не трогая формулы в ячейках.
Написан простейший макрос:

Sub nfd_v1()
Application.ScreenUpdating = False
Application.Calculation = xlManual
For Each cell In Selection
   If cell.HasFormula = True Then
       cell = cell
   Else
       cell.Value = ""
   End If
Next
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub

Работает сие зело медленно, и сдается мне, что он после каждой очистки ячейки делает пересчет всего листа.
Как можно побороть данный недуг?  

Доброго дня!
Ситуация следующая. Есть умная таблица в одном из столбце которой данные в виде выпадающего списка.
К этим данным притянуто условное форматирование на весь столбец.
Например если значение =asd то красим ячейку в зеленый цвет.
Все работает до автоматического добавления строки в умной таблице.
При выборе из выпадающего списка значения asd в новой строке ячейка в зеленый цвет не окрашивается.
Как побороть сей недуг?

UPD:
Excel 2023 - не работает
Excel 2016 - работает

Добрый день!
Подскажите, в чем проблема...Макрос ниже по тексту сваливается в ЕГОГ 1004:


Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Range("F1:F1000")
   If cell.Value = "Согласовано" And cell.Value = "Согласование не требуется" Then
       Worksheets("Лист1").Range(Cells.Offset(-5, 0), Cells.Offset(5, 0)).Interior.Color = "13958607"
   ElseIf cell.Value = "" Then
       Worksheets("Лист1").Range(Cells.Offset(-5, 0), Cells.Offset(5, 0)).Interior.Color = "16777215"
   ElseIf cell.Value = "Отклонено" Then
       Worksheets("Лист1").Range(Cells.Offset(-5, 0), Cells.Offset(5, 0)).Interior.Color = "11777023"
   Else
       Worksheets("Лист1").Range(Cells.Offset(-5, 0), Cells.Offset(5, 0)).Interior.Color = "13434879"
   End If
Next
End Sub

Доброго дня, форумчане! Нужна помощь в написании макроса по подсчету закрашенных блоков. Сплошная заливка диапазона считается одним блоком Натолкните пожалуйста на мысль.
Пример желаемого во вложении.

Всем доброго времени суток! Подскажите пожалуйста, как запретить вводить отличные от "0-9:" значения в ячейке (все цифры и двоеточие).