Прикладываю! Ячейка PK8

Я даже не берусь этого отрицать! Огромное спасибо!

Точно! Прошу прощения! На тестовом файле работает. А на рабочем, вероятно из-за наличия формул в диапазоне вычислений, нет! Это может быть как-то связано?  

Опечатка 2016

К сожалению 2016 =(

У меня выдает 1/4 или не выдает ничего и просто показывает формулу, как-будто вкл отображение формул

Немного не те же все-таки  

Да это понятно. Макрос при транспонировании таблицы и попытке провернуть тоже самое, но не по столбцам, а по строкам выдает пустое значение. Ну то есть /.

Немного непонятно выразился. Прикладываю пример.

Подскажите вот, что еще пожалуйста.
Какие правки в макрос нужно внести, что бы он работал по строкам?

МатросНаЗебре! Огромное спасибо! Все работает как нужно!  

Точно, мой косяк. Не придал значения, в потоке информации, сему факту    

Не все корректно считает  

Благодарю за вариант! Только ввод дополнительного столбца крайне не желателен. Таблица очень огромная. Желательно ее не утяжелять. Оно и так-то бог его знает как будет работать.

Почти работает! Только получилось 0/9, правая часть считается нормально!

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

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

Позволю себе еще 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:" значения в ячейке (все цифры и двоеточие).