МатросНаЗебре, огромное спасибо! Это именно то, что мне нужно!

Позволю себе еще 1 вопрос в рамках данной темы. Как генерить из .xltm не .xlsx а .xlsm? Куда нажать чтоб было весело?

Добрый день. Прошу помощи. Есть .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

Огромное мерси! Работает!

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

Не даст вводить :
Тем более речь про цифры, а не числа! Данная проверка значений не позволит ввести число больше 9.

Совершенно верно, текст 0-9 и :

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

Вы бы хоть формулу в файле указали, при которой у вас вылетают Н/Д. Да и условие какое-то странное... Может быть из столбца А подтянуть значения по условию совпадения значение В,С?