Выкладываю шаблон плана, он большой, листы защищены, общий доступ.
Помогите разгрузить макрос если это возможно, а то он очень долго сохраняет, обновляет и тд
На медленных компах вообще по 30-50 сек надо ждать.
Макрос прописан в модулях ЭтаКнига и Лист1

Скачать файл

Здравствуйте, столкнулся с такой проблемкой: есть формула =впр(k25;\\svarog\контроль\[18.01.13.xlsm]лист1'!$c$h;5;0) она обновляется только если заново открыть файл или через данные\изменить связи, а мне нужно чтобы связи обновлялись каждый раз после сохранения файла. Подскажите пожалуйста как сделать?

Здравствуйте! Помогите решить проблему!
Есть план отгрузок на дату,
например на 28.12.12
колонки: время отгрузки, номер накладной, паллет отгружено
план начинается с 1:00 ночи и заканчивается в 23:00 вечера
получается что в нем работают три человека, одному достается кусок с 1:00 до 8:00, второму с 8:00 до 20:00 и третьему с 20:00 и до 23:00
Мне нужно как то настроить автоподпись того кто забивает данные, для каждого вводимого им значения. Подскажите варианты? Чтобы по автоподписи подсчитывать кто сколько сделал.

Цель: есть ячейка с фамилией бригадира. Вбил он данные о отгруженных паллетах, напротив ячейки появилась автоподпись с его фамилией. Пришёл на работу другой бригадир, поменял фамилию, вбил данные и автоподпись уже с его фамилией.

Решение:

Здравствуйте Уважаемые!  
Необходима ваша помощь.  
 
помогите написать условие для макроса  
если в первом файле D2<>"" и E2<>""    
то F2 во втором файле закрашивается зеленым и ячейке присваивается значение "проверено"

Здравствуйте. Во вложении образец, в нем видно что с файлом буду работать 2 человека, Бригадир и Контролер.  
В ячейке А1 выпадающий список, на выбор должность!  
Нужно чтобы при выборе Бригадира скрывались столбцы с O до AA,  
а при выборе Контролера скрывались столбцы с B по N    
помогите пожалуйста!?    
 
p.s. В оригинальном плане оооочень много столбцов задействовано и людей работает значительно больше чем два) чтобы не загружать лишней информацие создал простенький образец

Здравствуйте, помогите с макросом.  
Нужно чтобы автоматически добавлялось примечание в котором бы указывалось время изменения значения ячейки.  
Пример: пустая ячейка, примечания нет, вбиваю значение 155 и у ячейки появляется примечание которое скрыто, если навожу на ячейку - всплывает примечание, маленького размера, со временем, допустим 18:34, если нажимаю del, удаляется и значение ячейки и примечание.

Помогите пожалуйста разобраться с кодом.  
Его задача:  
-вносить автоматически время в столбики T, U, Y, Z, AD.  
-автоматически форматировать текст в формат Arial, 11 шрифт, не жирный, не курсив, не переносить текст.  
 
Ещё не получилось разобраться как зафиксировать ширину столбца. При автоматическом внесении времени, столбик со временем раздвигается.  
 
Возникла ещё такая проблема, когда листов становится много (Оригинальный Файл - это план на месяц, из 31 листа с общим доступом) план начинает вылетать с периодичностью в 10-20 минут, один раз было такое что лист начал непрерывно мигать. В общем работать невозможно...  
 
Код:  
 
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)  
 
'End Sub  
 
With Target.Font  
   .Name = "Arial"  
   .Size = 11  
  .Bold = False  
   .Italic = False  
   .Underline = xlUnderlineStyleNone  
End With  
With Target  
   .WrapText = False  
   .Orientation = 0  
   .AddIndent = False  
   .IndentLevel = 0  
   .ShrinkToFit = False  
   '.MergeCells = False  
End With  
 
 
If Target.Cells.Count > 1 Then Exit Sub  
If Not Intersect(Target, Rows(1)) Is Nothing Then Exit Sub  
 
If Not Intersect(Target, Range("s2:s498,x2:x498,ac2:ac498")) Is Nothing Then  
With Target(1, 2)  
.Value = Time  
.EntireColumn.AutoFit  
End With  
End If  
 
If Not Intersect(Target, Range("v2:v498,aa2:aa498")) Is Nothing Then  
With Target(1, 0)  
.Value = Time  
.EntireColumn.AutoFit  
End With  
End If  
Application.EnableEvents = -1  
 
If Not Intersect(Target, Rows(1)) Is Nothing Then Exit Sub  
With Target.Font  
.Name = "Arial"  
.Size = 11  
.Bold = False  
.Italic = False  
'.Underline = xlUnderlineStyleNone  
End With  
 
End Sub  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Здравствуйте.  
Мне приходит много писем, из них я делаю один общий план. Как сделать так что бы при добавлении текста в ячейки он сразу автоматически форматировался в нужный формат?  
Например всё ариал, 11 шрифт, не жирный, не курсив.  
Подскажите пожалуйста как это сделать?

Подскажите пожалуйста. Как сделать так что бы при заполнении ячейки в соседней отображалось время ввода данных?  
То есть я вбиваю данные, любое значение в ячейку, а в соседней само появляется текущее время. Или как только меняется значение ячейки, сразу же фиксируется время в соседней. Как это сделать?