Добрый день,помогите исправить  Код:

останавливается на Set и выдает ошибку Object doesn't support this property or
method (Error 438)

Добрый день, нашел код скрытия сток по условию, только нет необходимости пробегать по всем ячейка 1го столбца, достаточно просмотра 50 строк, для ускорения работы кода, как исправить код, чтобы цикл заканчивался на 50й строке?  

Нужна формула счета в фильтре видимых ячеек с условием. Промежут.итоги считают все подряд.
В ячейке Е79 пытался, но увы

Пробовал графические диаграммы с динамическим именованным списком, все работает. Пытаюсь сделать диаграмму Ганта с таким же условием и ничего не получается. В ячейке Е10 и Е11 формулы которыми я пытаюсь заменить родные в диаграммах  

Не получается отбросить последний символ ")" пишет #нд#

=СУММПРОИЗВ((условие1)*(условие2)*(что_суммировать)) выдает #ЗНАЧ, потому что в диапазоне попадается текст, как решить проблему?

Нашел такой макросик для защиты всех листов и снятия защиты  
For i = 1 To ThisWorkbook.Sheets.Count  
Sheets(i).Unprotect "---"  
Next i  
и нашел макрос для записи всех собылий в скрый лист "log", а он не работает, когда защищен лист "log" пытался вышеуказанный макросик в начало макроса по записи событий, но на "For i" все останавливается  
Как изменить макросик, чтобы защита Sheets(i).protect работала кроме указанного листа?

Своял такую формулу  
=(СУММ(ЯЧЕЙКА("адрес";ИНДЕКС($D$20:D61;ПОИСКПОЗ(МАКС($AE$20:AE61);$AE$20:AE61;0);))&":"&ЯЧЕЙКА("адрес";ИНДЕКС($D$20:D61;ПОИСКПОЗ(МАКС($AE$20:AE61)-1;$AE$20:AE61;0);))))  
а мне пишет #знач!, чтоя упустил?

В огромной таблице на 2000строк в ячеках заносятся примечания. Есть ли какая нибудь возможность. чтобы эти примечания заносились в отведенный лист.  
Может пользовательская функция?

Уважаемые гуру EXCEL, есть ли  возможность посчитать в отфильтрованом списке средневзвешенное, т.е. суммпроизв должна считаться только в видимых ячейках?

Сократил документ на сколько смог все равно превышает 100кв пришлось заархивировать.  
Формула для выпадающего списка    
=СМЕЩ(Нагрузка!$K$4;0;0;СЧЁТЗ(Нагрузка!$K$4:$K$246);1) выпадающий список слишком большой, а в формуле  
=СМЕЩ(Нагрузка!$K$4;0;0;СЧЁТ(Нагрузка!$K$4:$K$246);1) список короче на сумму значений диапазоне, как решить проблему, чтобы выпадающий список показывал и значения и числа?

Есть такой макрос, который неграмотно собрал из разных макросов из форума и макрорекодера:  
Sub Макрос_skrit_stolbcy()  
   With ActiveSheet()  
   .Protect Password:="209", userinterfaceonly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True _  
       , AllowFormattingCells:=True, AllowFormattingColumns:=True, _  
       AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowSorting:= _  
       True, AllowFiltering:=True, AllowUsingPivotTables:=True  
   .EnableOutlining = True  
End With  
   Range("D6:DZ6").Select  
   Selection.EntireColumn.Hidden = False  
   Selection.SpecialCells(xlCellTypeFormulas, 2).Select  
   Selection.EntireColumn.Hidden = True  
   Range("A6").Select  
   MsgBox "Нобходимые столбцы скрыты!!!", "64", "ПОЖАЛУЙСТА ! ! !"  
End Sub  
как можно изменить строку  
 Selection.SpecialCells(xlCellTypeFormulas, 2).Select  
на условие - в исходном диапазоне выделить ячейки с результатом "2" и пустые, кстати в исходном диапазоне ("D6:DZ6") присутствуют и пустые ячейки и формулы типа =ЕСЛИ(И($EB$8>11;ABS(DJ81)>0);1;2)

Формула с помощью которой узнаю первоначальную дату ввода в пустую ячейку =ЕСЛИ(C9>0;ЕСЛИ(C10<ТДАТА();C10;ТДАТА());"") , а как узнать дату последнего изменения ячейки не удаляя предварительно данных из этой ячейки?

Есть ли возможность создать коротенькую формулу для свода средневзвешенного с 10 листов: (лист1!D19*лист1!D12+лист2!D19*лист2!D12+лист3!D19*лист3!D12+лист4!D19*лист4!D12+лист5!D19*лист5!D12+лист6!D19*лист6!D12+лист7!D19*лист7!D12+лист8!D19*лист8!D12+лист9!D19*лист9!D12+лист10!D19*лист10!D12)/сумм(лист1:лист10!D12)

Суммпроизв работает отлично, но только на одном листе. А как в моём примере?

Доброго всем времени суток, подскажите пожалуйста, как запретить изменение названий листов в книге, не защищая книгу. Листы в книге защищены, в VBA виден пароль.

Существует, ли такой формат ячеек, чтобы заменить формулу "Римское()"

Уважаемые гуру VBA, подскажике пожалуйста коротенький код, отображающий все листы книги, чтобы я его потом привазал к кнопке.  
Sheets("лист").Visible = True -этот код отображает один лист.

В VBA я абсолютный ноль. Макрокомандой скрываю строку(и)  
Range("B6").Select  
Selection.EntireRow.Hidden = True  
так же и отображаю:  
Range("B6:B10").Select  
Selection.EntireRow.Hidden = False  
Нужно сделать так чтобы пользователь сам выделил, что хочет скрыть или отобразить  
Activerange  
Selection.EntireRow.Hidden = True - такой код не работаеет.

Создал макрос макрорекодером, защита листов и сняти защиты.  
Проблема - ставлю пароль 27, а макрос его не видит!  
Sub Макрос2()  
'  
' Макрос2 Макрос  
' Макрос записан 01.10.2008 (Козаченко Р.А.)  
'  
 
'  
   Sheets("Очистные").Select  
   ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _  
       False  
   Sheets("диаграмма-2").Select  
   ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _  
       False  
   Sheets("Рачёт зольности отношением").Select  
   ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _  
       False  
   Sheets("Очистные").Select  
End Sub  
Sub Макрос3()  
'  
' Макрос3 Макрос  
' Макрос записан 01.10.2008 (Козаченко Р.А.)  
'  
 
'  
   Sheets("Очистные").Select  
   ActiveSheet.Unprotect  
   Sheets("диаграмма-2").Select  
   ActiveSheet.Unprotect  
   Sheets("Рачёт зольности отношением").Select  
   ActiveSheet.Unprotect  
   Sheets("Очистные").Select  
End Sub  
Хотя, при записи макрорекодером везде прописывал 27.

Не получается разбить число (допустим за месяц) на рабочие сутки прилагаю файл с моими неудачными попытками!!!

Подсказали неплохую формулу, но она не работает в феврале месяце! Кто нибудь уже пробовал такие примеры?

Есть з столбца, 1-дата, 2-значения. Нужно посчитать среднюю динамику  подекадно, помесячно и квартально. Вручную забивать формулы долго. Есть ли возможность создать одну формулу в каждом столбце начальной строки, чтобы работала на все строки ниже.  
Прилагаю файл, где я начал забивать простейшие формулы